📄 new.asp
字号:
<html>
<head>
<title>new</title>
<meta http-equiv="refresh" content="5">
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">
</head>
<body bgcolor="#ccddff">
<div id="Layer1" style="position:absolute; left:12px; top:2pt; width:116px; height:20px; z-index:1">
<table width="101%" border="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" height="20">
<tr>
<td>
<div align="center"><font color="#CC00CC" size="4"><p>最 新 书 籍</p></font></div>
</td>
</tr>
</table>
</div>
<div id="Layer1" style="position:absolute; left:12px; top:150pt; width:116px; height:20px; z-index:1">
<table width="101%" border="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" height="20">
<tr>
<td>
<div align="center"><font color="#CC00CC" size="4"><p>最 新 网 站</p></font></div>
</td>
</tr>
</table>
</div>
<!--#include file="globe/DataConnect.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Book order by ID"
rs.pagesize=4
rs.open sql,cnn,1,1
total=rs.recordcount
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="SELECT * FROM Website order by ID"
rs1.pagesize=4
rs1.Open sql1,cnn,1,1
total1=rs1.RecordCount
if rs.recordcount>4 then
number=4
else
number=rs.recordcount
end if
begin=rs.recordcount-number+1
if rs1.recordcount>4 then
number1=4
else
number1=rs1.recordcount
end if
begin1=rs1.recordcount-number1+1
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>"
rs.movefirst
rs.move begin-1
for i=begin to rs.recordcount
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
next
response.write "</tbody></table></div>"
end if
rs.Close
Set rs = Nothing:Set sql = Nothing
'new Website
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>"
rs1.move begin1-1
for i=begin1 to rs1.recordcount
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
next
response.write "</tbody></table></div>"
end if
rs1.Close
Set rs1 = Nothing:Set sql1 = Nothing
%>
<!--#include file="globe/DataClose.asp"-->
</body>
<head>
<meta http-equiv="pragma" content="no cache">
</head>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -