📄 form.asp

📁 项目开发对初学者来说非常重要

💻 ASP

字号:

<!--#include file="adovbs.inc" -->
<%
'读取各字段的数据
Name = Request("Name")
Email = Request("Email")
Subject = Request("Subject")
Memo = Request("Memo")
'检查各字段是否输入了数据
If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
   Response.Write "字段空白不接受！"
   Response.End '不再处理以下的程序
End If
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open("FILEDSN=D:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "GuestBook", conn, adOpenDynamic, adLockPessimistic
rs.AddNew
rs("姓名") = Name
rs("Email") = Email
rs("主题") = Subject
rs("留言") = Memo
rs.Update
'将网页转到"查看留言"的网页 book.asp
Response.Redirect "book.asp"
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -