📄 index.asp
字号:
<html>
<head>
<title>lyb</title>
</head>
<body bgColor=LavenderBlush>
<h1 align="center">我的留言板</h1>
<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="" name="form1">
<input type="hidden" name="task" value="insert"><p>
<tr><td><font color=white>姓  名：</font></td><td><input type="text" name="xm" size="10"><font color="white"></font>
<tr><td><font color=white>内  容：</font></td><td><textarea name="ly" rows=4 cols=60 wrap=soft></textarea>**
<tr><td><font color=white>E_Mail：</font></td><td><input type="text" name="email" size="60">
<tr><td></td><td><input type="submit" value="提交" Size="20">
    <input type="reset" value="重写" Size="20">
</form>
</table>
</table>
<p>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "ql","",""
if request.form("task")="insert" then
xm=Request("xm")
if Request("ly")="" then
msgbox("输入一个留言吧")
Response.end
else
ly=Request.form("ly")
end if
sj=Date()
sj=sj&" "&Hour(Time())&":"&Minute(Time())&":"&Second(time())
email=Request("email")
sql="insert into lyb(xm,ly,sj,email) values('"&xm&"','"&ly&"','"&sj&"','"&email&"')"
conn.Execute(sql)
end if
sql="Select * from lyb order by sj DESC"
set rs=conn.Execute(sql)
%>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<hr>
<font size=3 face=黑体>姓    名: </font><font color=blue><%=rs("xm")%></font><br>
<font size=3 face=黑体>留言时间: </font><%=rs("sj")%><br>
<font size=3 face=黑体>内    容: </font><%=rs("ly")%><br>
<font size=3 face=黑体>E_Mail :  </font><%=rs("email")%>
<% rs.MoveNext
loop %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -