📄 gform.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<%
' 读取各字段的数据
Name = Request("Name")
Email = Request("Email")
Subject = Request("Subject")
Memo = Request("Memo")
Pic = Request("Pic")
' 检查各字段是否输入有数据
If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
ShowMessage "栏位留白不接受!"
Response.End
End If
Set rs = GetMdbRecordset( "gbook.mdb", "GuestBook" )
rs.AddNew
rs("姓名") = Name
rs("Email") = Email
rs("主题") = Subject
rs("留言") = Memo
If Pic <> "No" Then rs("图标") = Pic
rs.Update
' 将网页重定向到「观看留言」的网页 gbook.asp
Response.Redirect "gbook.asp"
%>
<%
Sub ShowMessage( msg )
%>
<html>
<head>
<title></title>
</head>
<body>
<h2><%=msg%></h2>
<hr>
<form>
<p><input Type="Button" Value="返回上一页" OnClick="history.back();"></p>
</form>
<%
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -