📄 index.asp
字号:
<!--#include file="pass.asp "-->
<!--#include file="format.asp"-->
<!--#include file="conn.asp"-->
<head>
<title>网络教学平台</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
margin-left: 122px;
}
.STYLE1 {font-weight: bold}
-->
</style></head>
<body bgcolor="#FFFFFF" >
<center>
<form name="form1" method="post" action="replysearch.asp">
<table width="770" height="613" border="0" cellpadding="0" cellspacing="0">
<tr >
<td height="20" background="xxj1.gif" bgcolor="#FFFFFF"><table width="100%">
<tr>
<td align="left"> 关键字：
<input name="keyword" type=text id="keyword" size=25>
搜索类别：
<select name="condition" size=1 id="condition">
<option value="标题">标题</option>
<option value="内容">内容</option>
</select>
<input type=submit value="搜 索" name="sub2" /></td>
</tr>
<tr>
<td><hr color="#689EE0" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr >
<td height="30" align="right" valign="middle" background="xxj1.gif" bgcolor="#FFFFFF"><a href="zxly.asp" target="mainFrame">撰写留言</a> <a href="ckly.asp" target="mainFrame">查看留言</a> </td>
</tr>
<tr >
<td height="573" valign=top bgcolor="#FFFFFF"><table bgcolor=#CFCDC9 cellpadding=4 cellspacing=1 width="100%">
<tr>
<td align="center" background="image/dj_bg.gif" bgcolor="#FFCC99"><strong>回复</strong></td>
<td align="center" background="image/dj_bg.gif" bgcolor="#FFCC99"><strong>标题</strong></td>
<td align="center" background="image/dj_bg.gif" bgcolor="#FFCC99"><strong>大名</strong></td>
<td align="center" background="image/dj_bg.gif" bgcolor="#FFCC99"><strong>时间</strong></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 align="center" bgcolor="#FFFFFF"><%=rs("replyNum")%></td>
<td align="center" bgcolor="#FFFFFF"><a href=reply.asp?id=<%=rs("id")%>><%=rs("title")%></a></td>
<td align="center" bgcolor="#FFFFFF"><%=conn.execute("select * from [user] where id="&id)("name")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("time")%></td>
</tr>
<% rs.movenext
if rs.eof then exit for
next %>
<tr>
<td height=20 colspan=4 align="center" bgcolor="#FFFFFF"><% 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></td>
</tr>
</table>
</form>
</center>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -