asp 怎么给最新文章加new图标
many="top"&manySetRsValue=server.CreateObject("ADODB.Recordset")sqlValue="select"&man...
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 展开
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 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询