📄 ckly.asp

📁 自己做的毕业设计

💻 ASP

字号:

<!--#include file="pass.asp "-->
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<LINK href="image/css.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style></head>
<body>
<center>
<table bgcolor=#CFCDC9 cellpadding=0 cellspacing=1 width="562">
<tr><td colspan=4 bgcolor="#FFCC99">
	<b>查看留言</b></td></tr>
<tr><td bgcolor="#FFCC99" background="image/dj_bg.gif">回复</td>
	<td bgcolor="#FFCC99" background="image/dj_bg.gif">标题</td>
	<td bgcolor="#FFCC99" background="image/dj_bg.gif">大名</td>
	<td bgcolor="#FFCC99" background="image/dj_bg.gif">时间</td></tr>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from guest_topic order by time desc,id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,3,3
%>
<%
if rs.eof then%>
<tr><td colspan=4 bgcolor="#FFFFFF">暂时没有留言！</td></tr>
<% response.end 
end if%>
<%
rs.pagesize=15
page=CLng(request("page"))
if page<1 then page=1
rs.absolutepage=page
for i=1 to rs.pagesize 
id=rs("user_id")%>
<tr><td bgcolor="#FFFFFF"><%=rs("replyNum")%></td><td bgcolor="#FFFFFF"><a href=reply.asp?id=<%=rs("id")%>><%=rs("title")%></a></td>
	<td bgcolor="#FFFFFF"><%=conn.execute("select * from [user] where id="&id)("name")%></td><td bgcolor="#FFFFFF"><%=rs("time")%></td></tr>
<% rs.movenext
if rs.eof then exit for
next %>
<tr><td colspan=4 bgcolor="#FFFFFF"  height=20>
<% if page<>1 then %>
<a href=ckly.asp?page=1>第一页</a>
<a hrefckly.asp?page=<%=(page-1)%>>上一页</a>
<% end if
if page<>rs.pagecount then %>
<a href=ckly.asp?page=<%=(page+1)%>>下一页</a>
<a href=ckly.asp?page=<%=rs.pagecount%>>最后一页</a>
<% end if%>
</td></tr>
</table>
</center>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -