📄 gform.asp

📁 伤心森林留言本 MD5 校验: 6fba55b713119dfa46a8118a09845643

💻 ASP

字号:

<!--#include file="Master.asp" -->
<%
User = Request("User")
Pwd = Request("Pwd")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Data.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

If User = "" And Pwd = "" Then
Else
If User = Master Then
   If Pwd = Password Then
      Link = "?User=" & User & "&Pwd=" & Pwd
   Else
      Response.Write "<CENTER><B>资料错误！您不是版主！</B>"
      Response.End
   End If
Else
   Response.Write "<CENTER><B>资料错误！您不是版主！</B>"
   Response.End
End If
End If

Function SqlStr( data )
   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function

'取得各栏位的资料
Events = Request("Event")
Name = Request("Name")
Sex = Request("Sex")
Job = Request("Job")
Face = Request("Face")
Email = Request("Email")
HomePage = Request("HomePage")
Memo = Request("Memo")
IP = Request("REMOTE_ADDR")


'判断使用者是否正确填写留言板
If Name = "" Or Sex = "" Or Memo = "" Then
   Response.Write "<BODY BGCOLOR='#FFFFFF' BACKGROUND='bg.jpg'>"
   Response.Write "<CENTER><FONT SIZE='6'><B>请将表单填入完整！</B></FONT><BR>"
   Response.Write "姓名、性别、留言请务必填写！"
   Response.End '停止处理以下程式
End If

'将资料简化
If Sex = "Man" Then
Sex = "M"
Else
Sex = "F"
End If

'判断电子邮件是否有填入
If Email = "" Or Email = "@" Then
Email = "No"
End If


Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM GuestBook Order By AddDate DESC", conn, 3, 2

If Not Rs.EOF Then
No = Rs("Number")
Else
No = 0
End If

Rs.AddNew
Rs("Number") = No + 1
Rs("Re") = 0
Rs("Name") = Name
Rs("Sex") = Sex
Rs("Job") = Job
Rs("EMail") = Email
Rs("WebURL") = HomePage
Rs("Face") = Face
Rs("Data") = Memo
Rs("Rights") = Events
Rs("IP") = IP
Rs.Update

conn.Close

Response.Redirect "Index.asp" & Link '引导至『留言观看』的档案
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -