📄 index.asp
字号:
<!--#INCLUDE FILE="odbc_connection.asp"-->
<HTML>
<head>
<title>我的留言板</title>
<link rel="stylesheet" href="guest.css">
<script language="JAVASCRIPT">
<!--
function Trim(str){
while (str !="" && str.charAt(0) == " ") str = str.substring(1,str.length);
while (str !="" && str.charAt(str.length-1) == " ") str = str.substring(0,str.length-1);
return str;
}
function check_Null(){
if (Trim(document.form1.title.value)==""){
alert("主题不能为空!");
return false;
}
if (Trim(document.form1.name.value)==""){
alert("姓名不能为空!");
return false;
}
return true;
}
// -->
</script>
</head>
<body >
<center><h1>我的留言板<h1></center>
<center>
<table border='1' width='80%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0' height="114">
<tr bgcolor=#203F80>
<td>
<TABLE border="0" width=100%>
<form METHOD="POST" ACTION="add.asp" name="form1" onsubmit="javascript: return check_Null();">
<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 WRAP=SOFT></TextArea></td></tr>
<tr><td><font color=white>姓名：</font></td><td><input type="text" name="name" size="10">** </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>
</form>
</table>
</td>
</tr>
</table>
<p>
</CENTER>
<%
'现在开始显示已有留言
Dim Sql,rs '声明变量
Sql="Select * From guest "
Sql=Sql & " Order By guest_id desc" '这里用了一个个字段排序
SET rs=db.Execute(Sql) '返回一个Recordset对象
If Not rs.Bof And Not rs.Eof Then '如果有记录，就接着执行
%>
<CENTER>
<%
DO WHILE NOT RS.EOF
%>
<TABLE border="0" bordercolor="#8800FF" width="80%">
<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("guest_id") & "&title=" & rs("title") & "' ><small><font color=#000000>删除</font></small></a>"
%>
</TD>
</TR>
<TR>
<TD>
<%
response.write "<a href='readd.asp?id=" & rs("guest_id") & "&title=" & rs("title") & "' ><small><font color=#0033CC>回复</font></small></a>"
%>
</TD>
<TD>
<font color="#0033CC">
<%
response.write rs("reback")
%>
</font>
</TD>
</TR>
</TABLE>
<%
RS.MOVENEXT
LOOP
%>
</CENTER>
<%end if %>
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -