📄 list.asp
字号:
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文章标题列表 </title>
<style type="text/css">
<!--
a:visited, a:link { text-decoration: none; color: #003399}
a:hover { text-decoration: none; color: #3333FF}
a.linkwhite:link, a.linkwhite:visited { text-decoration:none; color:white}
a.linkwhite:hover { text-decoration: underline; color:white}
a.linkblack:link, a.linkblack:visited { text-decoration:none; color:black}
a.linkblack:hover { text-decoration: underline; color:black}
input { font-family: "宋体"; font-size: 9pt}
td { font-family: "宋体"; font-size: 9pt; color: #000000}
.en { font-family:"Verdana", "Arial"; font-size: 9pt}
.white { color: #FFFFFF}
.line { line-height: 20px}
.title { font-size: 14px }
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<p align="center"><strong><font face="华文彩云" color="#008080" size="3">单击可以阅读和回复</font></strong></p>
<p><%
Check Request("SerialNum")
sql="SELECT * FROM details WHERE Levels=1 ORDER BY DateAndTime DESC"
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
rootRs.Open sql,conn,1,1
rootRs.pagesize=4
rootRs.AbsolutePage =1
if Request("page")<>"" then rootRs.AbsolutePage =Request("page")
RowCount =4
If Not rootRs.Eof Then
Response.Write "<center><table border='1'><tr><td><center><font size='2'><b>New</b></font></center></td><td>" & _
"<center><font size='2'><b>Title</b></font></center></td><td><center><font size='2'>" & _
"<b>Author</b></font></center></td><td><center><font size='2'><b>Time</b></font></center></td><td><center>" & _
"<font size='2'><b>Hits</b></font></center></td><td><center><font size='2'><b>Length</b>" & _
"</font></center></td></tr>"
Do While Not rootRs.Eof AND RowCount>0
'Response.Write "<li>" & vbCrlf
Response.Write "<tr><td>"
If DateDiff( "d",rootRs("DateAndTime"),DateAdd("d",-3,Now()))<0 Then
Response.Write "<center>Y</center>"
else
Response.Write "<center>N</center>"
End If
Response.Write "</td>"
Response.Write "<td><center><a href=showdetail.asp?SerialNum=" & Request("SerialNum") & "&Num=" & rootRs("Num") & " target=right>" &rootRs("Theme") & "</a></center></td>"
Response.Write "<td><center><b><font color=red>" & rootRs("UID") & "</font></b></center></td>"
Response.Write "<td><em><center><font color=vbwhite>" & rootRs("DateAndTime") & "</font></center></em></td>"
Response.Write "<td><center><font color=vbpurple>" & rootRs("VisitTimes") & "</font></center></td>"
Response.Write "<td><center><font color=vbgray>" & rootRs("Length") & "字</font></center></td>"
Response.Write "</td></tr>"
If rootRs("child")<>"" And rootRs("child")<>"0" Then
ShowChild rootRs("child")
End If
rootRs.MoveNext
RowCount=RowCount-1
Loop
'Response.Write "</ul>"
Response.Write "</table>"
Else
Response.Write "<font color=purple size=4>本论坛暂时无文章。</font>"
End If
If rootRs.pagecount>1 then
Response.Write "<table border='3'>"
Response.Write "<tr>"
Response.Write "<td><b>帖子分页：</b></td>"
For i=1 to rootRs.pagecount
Response.Write "<td><a href='list.asp?page=" & i & "&SerialNum=" & Request("SerialNum") & "'>"
Response.Write "[<b>" & i & "</b>]</a>"
Response.Write "</td>"
Next
Response.Write "</tr></table></center>"
End if
rootRs.close
Set rootRs=nothing
conn.close
Set conn=nothing
%> </p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -