查看: 1160|回复: 1

[问与答] asp中加一个条件,谁帮我一下啊

[复制链接]
小丸子 发表于 2019-4-1 00:32:04 | 显示全部楼层 |阅读模式
<%
'set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from  board  order by boardid desc"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
n=1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("..\js\board"&rs_2("boardid")&".js"),true)
str="document.write('"
sql_1 = "select top "&rs("boardnum")&" id,boardid,title,ifimg,fpath,fname,ifshow,addtime from article where boardid="&rs_2("boardid")&" and ifshow=1 order by id desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
str=str & "')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >"&rs_2("boardname")&"</td><td><font color=red>暂时还没有文章!</font></td></tr>"
else
do while not rs_1.EOF
temptime =month(rs_1("addtime")) & "月" & day(rs_1("addtime")) & "日"
call titlen(boardlen)
if rs("boardtime")=1 then
str = str & ""&rs("boardsign")&"<a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank  title="&rs_1("title")&">"& tlen& "</a><font color=666666>("& temptime & ")</font><br>"
else
str = str & ""&rs("boardsign")&"<a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><br>"
end if
rs_1.movenext
n=n+1
loop
str=str & "')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>"&rs_2("boardname")&"</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
rs_2.MoveNext
Loop
rs_2.Close
set rs1=nothing
set rs2=nothing
%>


这一段输出到js,然后主页调用。
想加个如果("ifimg")=1(就是说这条新闻里如果有图片)
那么标题末尾显示一张图片,提示这条新闻内容中有图片。<img src=../image/tu.gif>

TT截图未命名.jpg
就是这个样子。
ttasp 发表于 2019-4-1 14:29:53 | 显示全部楼层
挺简单的,在标题后面判断下就行了

  1. if rs("ifimg")=1 then
  2. response.write "<img src=../image/tu.gif>"
  3. end if

复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号