📄 reno.asp

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

💻 ASP

字号:

<!--#include file="Master.asp" -->
<%
No = Request("No")
Name = Request("Name")
Sex = Request("Sex")
Memo = Request("Memo")
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

'判断使用者是否正确填写留言板
If Name = "" Or Sex = "" Or Memo = "" Then
   Response.Write "<BODY BGCOLOR='#FFFFFF'>"
   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

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

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

Rs.AddNew
Rs("Number") = Number + 1
Rs("Re") = No
Rs("Name") = Name
Rs("Sex") = Sex
Rs("Job") = "Null"
Rs("EMail") = "Null"
Rs("WebURL") = "Null"
Rs("Data") = Memo
Rs("Rights") = 1
Rs.Update
Rs.Close
conn.Close

Response.Redirect "Index.asp" & Link
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -