📄 index.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<title>简单留言本(ASP+ACCESS)</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<meta name="author" content="學無止境，QQ:182407777" />
<meta name="Copyright" content="www.wesent.cn,自由版权,任意转载" />
<meta name="description" content="asp,access,asp初学" />
<meta content="asp,access,asp初学，學無止境" name="keywords" />
</head>
<body>
<BR><BR>
<center><a href="admin_login.htm" target="_blank">留言管理</a> </center><BR><BR>
<font color="red">最新留言如下：<BR><BR></font>
<!-- #include file="include/conn.asp" -->
<% Set rs = server.CreateObject("ADODB.Recordset")
sql="select * from contents order by id desc"
rs.Open sql,conn,1,1
Do While Not rs.eof
response.write ("<table><tr><td>留言人ID:<font color='red'>"&rs("id")&"</font></td>")
response.write ("<td> 姓名:"&rs("name")&"</td>")
response.write ("<td> 留言时间:"&rs("time")&"</td>")
response.write ("<td> 留言人IP:"&rs("ip")&"</td></tr>")
response.write ("<tr><td colspan='4'>留言:"&rs("content")&"</td></tr></table><br/>")
response.write ("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ")
rs.movenext
Loop
rem 释放资源
rs.close
Set rs = Nothing
%>
<br><br><br>
<form action="add_messages.asp" method="post">
姓名:<input type="text" name="user_name" size="60"><br>
留言:<textarea name="user_post" rows="20" cols="59"></textarea>
<input type="submit" value="提交留言">
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -