📄 index.asp
字号:
<% Option Explicit %>
<!--#Include File="odbc_connection.asp"-->
<!--#Include File="config.asp"-->
<HTML>
<head>
<title><%=GuestTitle%></title>
<link rel="stylesheet" href="guest.css">
<script language="JavaScript">
<!--
//函数check_Null用来进行客户端验证
function check_Null(){
if (document.form1.title.value==""){
alert("主题不能为空!");
return false;
}
if (document.form1.name.value==""){
alert("姓名不能为空!");
return false;
}
if (document.form1.title.value.length>100){
alert("主题不能超过100个字符");
return false;
}
if (document.form1.name.value.length>30){
alert("姓名不能超过30个字符");
return false;
}
return true;
}
// -->
</script>
</head>
<body >
<!--注释：下面要从配置文件中读取常量GuestTitle-->
<h1 align="center"><%=GuestTitle%></h1>
<!--注释：下面是提交留言表单，单击提交按钮后，首先会调用上面的客户端验证函数验证，
验证通过后，再传送到add.asp，添加完毕后，重定向回本页面-->
<form method="post" action="add.asp" name="form1" onsubmit="javascript: return check_Null();">
<table border="0" width="80%" bgcolor="#203F80" align="center">
<tr>
<td><font color="white">主题：</font></td>
<td><input type="text" name="title" size="60">** </td>
</tr>
<tr>
<td><font color="white">内容：</font></td>
<td><Textarea Name="body" Rows="4" Cols="60"></TextArea></td>
</tr>
<tr>
<td><font color="white">姓名：</font></td>
<td><input type="text" name="name" size="13">** </td>
</tr>
<tr>
<td><font color="white">email：</font></td>
<td><input type="text" name="email" size="40"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value=" 提 交 " Size="20" ></td>
</tr>
</table>
</form>
<p>
<%
'----------------------------------------------------------------------------------
'以下开始显示原有留言
Dim rs,strsql
'建立Recordset对象，因为要分页显示数据，所以请注意Open方法的参数
Set rs=Server.CreateObject("ADODB.Recordset")
strsql ="Select * From guest Order By Submit_date Desc"
rs.Open strsql,db,1
'如果记录集是空的，就停止运行程序，如果非空，就分页显示
If rs.Bof Or rs.Eof Then
Response.Write "<p align='center'>暂时没有留言"
Response.End
Else
'下面一段判断当前显示第几页
Dim page_no
If Session("page_no")="" Then
'如是第一次打开，为1
page_no=1
Session("page_no")=page_no
Elseif Request.QueryString("page_no")<>"" Then
'如果选择了页码，就令其为指定页码
page_no=Cint(Request.QueryString ("page_no"))
Session("page_no")=page_no
Else
'其它情况下，则从Session中读取原来的页码
page_no=Session("page_no")
End If
'下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。
rs.PageSize=PageSize '从config.asp读取参数设置，每页显示多少条
rs.AbsolutePage=page_no '设置当前显示第几页
Dim I '该变量用来控制显示当前页记录
I=rs.PageSize
Do While Not rs.Eof And I>0 '循环直到当前页结束或记录集结尾
I=I-1
%>
<TABLE border="0" bordercolor="#8800FF" width="80%" align="center">
<tr>
<td colspan=2><hr></td>
</tr>
<tr>
<td width=20%>主题</td>
<td><%=rs("title")%></td>
</tr>
<tr>
<td>内容</td>
<td><%=rs("body")%></td>
</tr>
<tr>
<td>留言人</td>
<td>
<a href="mailto:<%=rs("email")%>"><small><font color="#000000"><%=rs("name")%></font></small></a>  <%=rs("submit_date")%>
<%
Response.Write "<a href='delete.asp?id=" & rs("id") & "' ><small>删除</small></a>"
%>
</td>
</tr>
<tr>
<td>
<%
Response.Write "<a href='readd.asp?id=" & rs("id") & "&title=" & rs("title") & "' ><small>回复</small></a>"
%>
</td>
<td>
<% Response.Write rs("reback") %>
</td>
</tr>
</TABLE>
<%
rs.MoveNext
Loop
'下面一段在下方显示页数信息，从1到总页数循环，如不是当前页，就加上超链接
Response.Write "<p align='center'>请选择数据页: "
For I=1 To rs.PageCount
If I=page_no Then '如是当前页，就不加超链接
Response.Write I & " "
Else '如不是当前页，就加上超链接
Response.Write "<a href='index.asp?page_no=" & I & "'>" & I & "</a> "
End If
Next
End If
'----------------------------------------------------------------------------------
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -