asp怎么给最新文章加new图标呢?
刚刚发了个问题点错了,直接点位了确认答案了……这次悬赏就只有多点……呵呵,下面是相关的代码……知道的,直接给我加进去,我运行通过了就加分,谢谢大家了啊……我都整了很久了语...
刚刚发了个问题点错了,直接点位了确认答案了……这次悬赏就只有多点 ……呵呵,下面是相关的代码……知道的,直接给我加进去,我运行通过了就加分,谢谢大家了啊……我都整了很久了语法还是不对!
many="top "&many
Set RsValue=server.CreateObject("ADODB.Recordset")
sqlValue="select "&many&" * from News "&SortV&" "&orderV
RsValue.open sqlValue,conn,3,3
If Not RsValue.eof Then
While Not RsValue.eof
response.write "<li>"
If timel=1 then
response.write "<span>["&Trim(Left(RsValue("InfoTime"),10))&"]
</span>"
Else
response.write ""
End If
response.write "<a href='index_con.asp?ID="&RsValue("ID")&"'
style='color:#000000'>"&Left(RsValue("Title"),lengthL)&"</a></li>"
RsValue.MoveNext
Wend
End If
End Function
我想在今日最新下面加new,请问怎么加的啊?
时间字段名是 Infotime 下面这段加上没用呢?
if news="1" then
if datediff("d",rs("Infotime"),date())<=5 then
Response.Write "<img src=images/new.gif>"
end if
end if 展开
many="top "&many
Set RsValue=server.CreateObject("ADODB.Recordset")
sqlValue="select "&many&" * from News "&SortV&" "&orderV
RsValue.open sqlValue,conn,3,3
If Not RsValue.eof Then
While Not RsValue.eof
response.write "<li>"
If timel=1 then
response.write "<span>["&Trim(Left(RsValue("InfoTime"),10))&"]
</span>"
Else
response.write ""
End If
response.write "<a href='index_con.asp?ID="&RsValue("ID")&"'
style='color:#000000'>"&Left(RsValue("Title"),lengthL)&"</a></li>"
RsValue.MoveNext
Wend
End If
End Function
我想在今日最新下面加new,请问怎么加的啊?
时间字段名是 Infotime 下面这段加上没用呢?
if news="1" then
if datediff("d",rs("Infotime"),date())<=5 then
Response.Write "<img src=images/new.gif>"
end if
end if 展开
2个回答
展开全部
建立一个newpic变量,获取图片,然后把它加在文章标题前面或后面,符合条件则显示:
请先确认你的infotime值是时间类值,如果是文本类,请cdate(rs("Infotime"))
再请确认你的news="1"有效。
dim newpic
newpic=""
if news="1" then
if datediff("d",rs("Infotime"),date())<=5 then
newpic = "<img src=images/new.gif>"
end if
end if
response.write newpic&"<a href='index_con.asp?ID="&RsValue("ID")&"'
style='color:#000000'>"&Left(RsValue("Title"),lengthL)&"</a></li>"
加后面:
response.write "<a href='index_con.asp?ID="&RsValue("ID")&"'
style='color:#000000'>"&Left(RsValue("Title"),lengthL)&"</a>"&newpic&"</li>"
请先确认你的infotime值是时间类值,如果是文本类,请cdate(rs("Infotime"))
再请确认你的news="1"有效。
dim newpic
newpic=""
if news="1" then
if datediff("d",rs("Infotime"),date())<=5 then
newpic = "<img src=images/new.gif>"
end if
end if
response.write newpic&"<a href='index_con.asp?ID="&RsValue("ID")&"'
style='color:#000000'>"&Left(RsValue("Title"),lengthL)&"</a></li>"
加后面:
response.write "<a href='index_con.asp?ID="&RsValue("ID")&"'
style='color:#000000'>"&Left(RsValue("Title"),lengthL)&"</a>"&newpic&"</li>"
展开全部
response.write "<a href='index_con.asp?ID="&RsValue("ID")&"'
style='color:#000000'>"&Left(RsValue("Title"),lengthL)&"</a>"
if datediff("d",rs("Infotime"),date())<=5 then
Response.Write "<img src=images/new.gif>"
end if
response.write "</li>"
style='color:#000000'>"&Left(RsValue("Title"),lengthL)&"</a>"
if datediff("d",rs("Infotime"),date())<=5 then
Response.Write "<img src=images/new.gif>"
end if
response.write "</li>"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询