top.asp

二手书籍系统

<%
sub vipcom()
viprs.open vipsql,conn,1,1
do while not viprs.eof
sj=DateDiff("d",""&viprs("zcdata")&"",now())
if sj<1 then                   
fsj="<FONT color=red>"&month(viprs("zcdata"))&"/"&day(viprs("zcdata"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(viprs("zcdata"))&"/"&day(viprs("zcdata"))&"</FONT >"                   
end if 
response.write "<font color=#CC6600><span style=""font-size: 12pt"">·</span></font><A class='left' target=_blank href=""com.asp?com="&viprs("username")&""" >"&viprs("com")&"</a>  "&fsj&"<br>"
viprs.movenext
loop
viprs.close
set viprs=nothing
end sub

sub newcom()
dim comrs
set comrs=server.createobject("adodb.recordset")
comrs.open sql,conn,1,1
do while not comrs.eof
sj=DateDiff("d",""&comrs("zcdata")&"",now())
if sj<1 then                   
fsj="<FONT color=red>"&month(comrs("zcdata"))&"/"&day(comrs("zcdata"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(comrs("zcdata"))&"/"&day(comrs("zcdata"))&"</FONT >"                   
end if 
response.write "<font color=#CC6600><span style=""font-size: 12pt"">·</span></font><A class='left' target=_blank href=""com.asp?com="&comrs("username")&""" >"&comrs("com")&"</a> "&fsj&"<br>"
comrs.movenext
loop
comrs.close
set comrs=nothing
end sub

sub tu()
set rs01=server.createobject("ADODB.recordset")	      
rs01.open sql01,conn,1,1         
if rs01.eof and rs01.bof then      
response.write "<p align='center'>没有图片置顶推荐信息</p>"       
else      
do while not rs01.eof
response.write "<td align=""center"">"  
response.write "<a title="&rs01("biaoti")&" target=""_blank"" href=xinximemo.asp?cnmai="&rs01("id")&">"
response.write "<img src="""&rs01("tupian")&""" width=70 height=60 border=1 style=""border: 1px solid #C0C0C0; ; padding-left:2px; padding-right:2px"" alt="""&rs01("biaoti")&""">"
response.write "</a></td>"        
rs01.movenext                
loop            
end if       
rs01.close
set rs01=nothing
end sub

sub nr()
set rs01=server.createobject("ADODB.recordset")
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
sj=DateDiff("d",""&rs01("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=red>"&month(rs01("fbsj"))&"/"&day(rs01("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs01("fbsj"))&"/"&day(rs01("fbsj"))&"</FONT >"                   
end if 
response.write "<tr><td  height=16 colspan=3>&nbsp;"
Select Case rs01("leixing")
Case "1"
response.write "<font color=""#800000"">"&leixing1&"</font>"
Case "2"
response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
Case "3"
response.write "<font color=""#008000"">"&leixing3&"</font>"
Case "4"
response.write "<font color=""#FF6600"">"&leixing4&"</font>"
Case "5"
response.write "<font color=""#ff0000"">"&leixing5&"</font>"
Case "6"
response.write "<font color=""#000080"">"&leixing6&"</font>"
Case "7"
response.write "<font color=""#0000FF"">"&leixing7&"</font>"
Case "8"
response.write "<font color=""#008080"">"&leixing8&"</font>"
Case Else
response.write "<font color=""#000000"">"&leixing9&"</font>"
End Select
response.write "┄"
if rs01("tupian")<>"0" then
response.write "<font color=""red"">图-</font>"
end if
response.write "<a class='nei' target=""_blank"" title="""&rs01("biaoti")&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write "<u>"&mid(rs01("biaoti"),1,12)&"</u>"
else
response.write "<font color=#"&rs01("a")&"><u>"&left(rs01("biaoti"),btnum)&"</u></font>"
end if
response.write "</a>"
if b<>0 then
response.write "<img src=""image/num/jsq.gif"">"
for i=1 to bb
response.write "<img src=""image/num/"&Mid(b,i,1)&".gif"">"
next
end if
response.write " "&fsj&"<br>"
response.write "</td></tr>"
rs01.movenext
loop
end if
rs01.close
set rs01=nothing
end sub
%>

<%
sub gg()
ggrs.open ggsql,conn,1,1
do while not ggrs.eof
sj=DateDiff("d",""&ggrs("data")&"",now())
if sj<1 then                   
fsj="<FONT color=red>"&month(ggrs("data"))&"/"&day(ggrs("data"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(ggrs("data"))&"/"&day(ggrs("data"))&"</FONT >"                   
end if 
response.write "<font color=#CC6600><span style=""font-size: 12pt"">·</span></font><A class='left' target=_blank href=""gonggao.asp?id="&ggrs("id")&""" >"&ggrs("biaoti")&"</a>  "&fsj&"<br>"
ggrs.movenext
loop
ggrs.close
set ggrs=nothing
end sub
%>

<%
sub news()
newsrs.open newssql,conn,1,1
do while not newsrs.eof
sj=DateDiff("d",""&newsrs("data")&"",now())
if sj<1 then                   
fsj="<FONT color=red>"&month(newsrs("data"))&"/"&day(newsrs("data"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(newsrs("data"))&"/"&day(newsrs("data"))&"</FONT >"                   
end if 
response.write "<font color=#CC6600><span style=""font-size: 12pt"">·</span></font><A class='left' target=_blank href=""news.asp?id="&newsrs("id")&""" >"&newsrs("biaoti")&"</a>  "&fsj&"<br>"
newsrs.movenext
loop
newsrs.close
set newsrs=nothing
end sub
%>

<%
Conn.Execute("Update xinxi Set b=0 where DateDiff('D',fbsj,now())>="&b_y&" and yz=1")
Conn.Execute("Update xinxi Set tuijian=0 where DateDiff('D',fbsj,now())>="&tui_y&" and yz=1")
%>