📄 list.asp
字号:
<html>
<head>
<title>list</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="5">
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">
</head>
<body bgcolor="#ccddff">
<%Dim Num,SubName,SubNum,rs,sql,total,rs1,sql1,total1,BookName,DTime,UserName,ClickNum,WebsiteName%>
<!--#include file="globe/DataConnect.asp"-->
<%
Num=trim(request.querystring("Num"))
SubName=trim(request.querystring("SubName"))
SubNum=trim(request.querystring("SubNum"))
set rs=server.createobject("adodb.recordset")
sql="select * from Book where SubName='"&SubName&"'"
rs.pagesize=3
rs.open sql,cnn,1,1
total=rs.recordcount
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="SELECT * FROM Website WHERE SubName='"&SubName&"'"
rs1.pagesize=3
rs1.Open sql1,cnn,1,1
total1=rs1.RecordCount
'response.write "<form name='form' method='post' action='list.asp?Num="&Num&"&SubName="&SubName&"&SubNum="&SubNum&"'>"
response.write "<div id='layer1' style='position:absolute;top:2pt;left:10pt'>"
response.write "<TABLE bgColor=#ffffff border=1 borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0>"
response.write "<TBODY><TR><TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=650><font color=#3366CC'>【"&SubName&"】类书籍，</font>"
if total>=3 then
Response.Write " <font color=#3366CC><--同学，书有三本了，够了，看吧！不要贪多。--></font>"
else
response.write " <a href='DeliverBook.asp?Num="&Num&"&SubName="&SubName&"&SubNum="&SubNum&"'><font color=#3366CC><--同学，书不够多，快来推荐书籍呀！--></font></a>"
end if
response.write "</TD></tr></tbody></table></div><br>"
if total>0 then
response.write "<div id='layer2' style='position:absolute;top:40pt;left:10pt;'>"
response.write "<table style='font-family:宋体;font-size:11pt' bgColor=#ffffff border=1 borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0>"
response.write "<TBODY><TR>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=20 width=280><center><font color=#3366CC'>书籍名称</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=20 width=80><center><font color=#3366CC'>推荐人</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=20 width=60><center><font color=#3366CC'>点击数</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=20 width=160><center><font color=#3366CC'>推荐时间</font></center></td></tr>"
do while Not rs.EOF
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=280>"
BookName=rs("BookName")
DTime=rs("DTime")
UserName=rs("UserName")
ClickNum=rs("ClickNum")
ID=rs("ID")
response.write "<a href='ViewBook.asp?ID="&ID&"'>"&BookName&"</a></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=80>"
response.write "<center><font color=#0099CC>"&UserName&"</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=60>"
response.write "<center><font color=red>"&ClickNum&"</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=160>"
response.write "<center>"&DTime&"</center></td></tr>"
rs.movenext
loop
response.write "</tbody></table></div>"
end if
'Website part
response.write "<div id='layer1' style='position:absolute;top:150pt;left:10pt'>"
response.write "<TABLE bgColor=#ffffff border=1 borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0>"
response.write "<TBODY><TR><TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=650><font color=#3366CC'>【"&SubName&"】类网站，</font>"
if total1>=3 then
Response.Write " <font color=#3366CC><--同学，网站有三个了，够了，看吧！不要贪多。--></font>"
else
response.write " <a href='DeliverWebsite.asp?Num="&Num&"&SubName="&SubName&"&SubNum="&SubNum&"'><font color=#3366CC><--同学，网站不够多，快来推荐网站呀！--></font></a>"
end if
response.write "</TD></tr></tbody></table></div><br>"
if total1>0 then
response.write "<div id='layer2' style='position:absolute;top:190pt;left:10pt;'>"
response.write "<table style='font-family:宋体;font-size:11pt' bgColor=#ffffff border=1 borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0>"
response.write "<TBODY><TR>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=20 width=280><center><font color=#3366CC'>网站名称</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=20 width=80><center><font color=#3366CC'>推荐人</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=20 width=60><center><font color=#3366CC'>点击数</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=20 width=160><center><font color=#3366CC'>推荐时间</font></center></td></tr>"
do while Not rs1.EOF
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=280>"
WebsiteName=rs1("WebsiteName")
DTime=rs1("DTime")
UserName=rs1("UserName")
ClickNum=rs1("ClickNum")
ID=rs1("ID")
response.write "<a href='ViewWebsite.asp?ID="&ID&"'>"&WebsiteName&"</a></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=80>"
response.write "<center><font color=#0099CC>"&UserName&"</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=60>"
response.write "<center><font color=red>"&ClickNum&"</font></center></td>"
response.write "<TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 height=25 width=160>"
response.write "<center>"&DTime&"</center></td></tr>"
rs1.movenext
loop
response.write "</tbody></table></div>"
end if
'response.write "</form>"
rs1.Close
Set rs1 = Nothing
%>
<!--#include file="globe/DataClose.asp"-->
<head>
<meta http-equiv="pragma" content="no cache">
</head>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -