📄 default.asp
字号:
<%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="copyright.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM book WHERE board=1 Order By redate desc"
rs.open sql,conn,1,3
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 ="SELECT * From config Order By id DESC"
rs2.open sql2,conn,1,3
'-------------------------------
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then '判断page(当前数次)不为空或小于0则
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize = rs2("num2")
total = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs2("title")%>-首页</title>
</head>
<%top%>
<body>
<br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="96%" id="AutoNumber5" height="30" bgcolor="#F5F5F5">
<tr>
<td width="19%" height="19" valign="middle">
</td>
<form method="POST" action="search.asp">
<td width="8%" height="19" valign="middle">
<p align="right">
<input type="text" name="key" size="20" style="border-style: groove; border-width: 1">
<input type="submit" value="搜索" name="B1" style="border-style: ridge; border-width: 1; background-color: #E8E8E8"></p>
</td>
</form>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CC00" width="96%" id="AutoNumber1" height="41" bgcolor=<%=CColor%>>
<tr>
<td width="2%" height="28" bgcolor="#E6E6E6">
<p align="center"> </td>
<td width="30%" height="28" bgcolor="#E6E6E6">
<p align="center">主题</td>
<td width="9%" height="28" bgcolor="#E6E6E6" align="center">作者</td>
<td width="4%" height="28" bgcolor="#E6E6E6" align="center">人气</td>
<td width="4%" height="28" bgcolor="#E6E6E6" align="center">回复</td>
<td width="11%" height="28" bgcolor="#E6E6E6" align="center">最后回复</td>
</tr>
<%if rs.eof or rs.bof then%>
<tr>
<td width="70%" height="26" colspan="6">
<p align="left"><font color="#FF0000"><%pp=request("page")%><%if pp>rs.pagecount then%>::操作错误。。没有该页。。因为该论坛现只有<%=rs.pagecount%>页::<%else%>:::没有记录。。不如你来添加记录吧？:::<%end if%></font></td>
</tr>
<%end if%>
<%
do while not rs.eof and mypagesize>0
%>
<%
if c = 0 then
CColor = ""&rs2("color1")&""
else
CColor = ""&rs2("color2")&""
end if
%>
<% response.write "<tr>"
response.write "<td width='2%' height='26' bgcolor="&CColor&">"
response.write "<p align='center'> "
if rs("hits")>60 then
response.write "<img border='0' src='img/folderhot.gif' alt='::人气大于60的热门贴子::'>"
else
response.write "<img border='0' src='img/folder.gif'>"
end if
response.write "</td>"
response.write "<td width='34%' height='26' bgcolor="&CColor&">"
response.write "<a title='"&rs("subject")&"' href='topic.asp?id="&rs("id")&"'>"
response.write ""&rs("subject")&"</a>"
if session("a")="1" then
response.write " <font color='#FF0000'><a title='删除该主题' href='delid.asp?id="&rs("id")&"'><font color='#FF0000'>Delete</font></a> <a title='编辑这个主题' href='edit.asp?id="&rs("id")&"'><font color='red'>Edit</font></a> <a title='退出登陆' href='out.asp'><font color='red'>Out</font></a></font></td>"
end if
response.write "<td width='9%' height='26' bgcolor="&CColor&">"
response.write "<p align='center'>"
if rs("e")<>"" then
response.write "<a href='mailto:"&rs("e")&"'>"&rs("n")&"</a></td>"
else
response.write ""&rs("n")&"</td>"
end if
response.write "<td width='4%' height='26' bgcolor="&CColor&">"
response.write "<p align='center'>"&rs("hits")&"</td>"
response.write "<td width='4%' height='26' bgcolor="&CColor&">"
response.write "<p align='center'>"&rs("retimes")&"</td>"
response.write "<td width='11%' height='26' bgcolor="&CColor&">"
response.write "<p align='center'>"&rs("redate")&"</td>"
response.write "</tr>"
%><%
mypagesize=mypagesize-1
rs.movenext
c = c + 1
if c = 2 then c = 0
loop
%>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CC00" width="96%" id="AutoNumber4" height="20" bgcolor="#F5F5F5">
<tr>
<td width="18%" height="20" bgcolor="#E8E8E8"><p align="center">总数:<%=total%>
页数:<%=rs.pagecount%></td>
<td width="82%" height="20"><p align="center"><%
if page>1 then%>
<a href='default.asp?page=<%=page-1%>'>上一页</a>
<%
end if
%>
<%
if rs.pagecount <= 20 then
for p=1 to rs.pagecount
response.write "<a title='第"&p&"页' href='default.asp?page="&p&"'><font color='blue'>"&p&"</font></a> "'--------------暂时先用这吧
next
else
if page>=20 then
for p=20 to rs.pagecount
response.write "<a title='第"&p&"页' href='default.asp?page="&p&"'><font color='#99ccoo'>"&p&"</font></a> "
next
response.write "<a href='default.asp?page="&rs.pagecount&"' title='最后一页'><font color='blue'>>></font></a>"
else
for p=1 to 20
response.write "<a title='第"&p&"页' href='default.asp?page="&p&"'><font color='#99ccoo'>"&p&"</font></a> "
next
response.write "<a href='default.asp?page="&rs.pagecount&"' title='最后一页'><font color='blue'>>></font></a>"
end if
end if
%>
<%
if page<rs.pagecount then%>
<a href='default.asp?page=<%=page+1%>'>下一页</a>
<%
end if
%></td>
</tr>
</table>
</center>
</div>
</p>
<%copyright%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -