postinput.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 16 行

<% 
' 读取各输入框的数据
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
' 第一行包含"姓名"与"Email"
Line1 = "留言人：" & Name
Line1 = Line1 & String(5, "　")    ' 插入5个汉字空格
Email = "<A HREF=mailto:" & Email & ">" & Email & "</A>"
Line1 = Line1 & "Email