📄 delete.asp

📁 伤心森林留言本 MD5 校验: 6fba55b713119dfa46a8118a09845643
💻 ASP
字号:
<!--#include file="Master.asp" -->
<%
User = Request("User")
Pwd = Request("Pwd")
No = Request("No")
Key = Request("Key")
Name = Request("Name")
Sex = Request("Sex")
Job = Request("Job")
Email = Request("Email")
Web = Request("Web")
Memo = Request("Memo")
Enter = Request("Enter")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Data.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

If User = Master And Pwd = Password Then
If Key = "删除留言" Then
If Enter = "" Then
%><HTML>
<HEAD>
<TITLE>确定要删除此篇留言？</TITLE>
<STYLE type="text/css">
<!--
A{text-decoration:none}
TEXTAREA,td,a,input,i,Body,select{font-size:9pt}
TEXTAREA,input,select{color:#111111;background-color:#fefdfa}
INPUT,TEXTAREA,select{border-left:1 solid #888888;border-right:1 solid #C0C0C0;border-top:1 solid #888888;border-bottom:1 solid #C0C0C0}
-->
</STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="ORANGE" ALINK="ORANGE" VLINK="ORANGE">
<CENTER>
<IMG SRC="GBook.gif"><P>
您确定要删除此篇留言？<P>
<A HREF="Delete.asp?User=<% =User %>&Pwd=<% =Pwd %>&No=<% =No %>&Enter=Del&Key=删除留言"><IMG SRC="Yes.gif" BORDER="0"></A>
<A HREF="javascript:history.go( -1 );"><IMG SRC="No.gif" BORDER="0"></A>
</BODY>
</HTML><%
Response.End
End If

Set rs = conn.Execute( "DELETE FROM GuestBook Where Number = '" & No & "' Or Re = '" & No & "'" )

Response.Redirect "Index.asp?User=" & User & "&Pwd=" & Pwd
End If
If Key = "储存修改" Then
If Name = "" Or Sex = "" Or Job = "" Or Email = "" Or Web = "" Or Memo = "" Then
Response.Write "<CENTER><FONT COLOR=""#FF0000""><B>请将资料填完整！</B></FONT>"
Response.End
End If

If Sex = "Man" Then
    Sex = "M"
Else
    Sex = "F"
End If

Set rs = conn.Execute( "UPDATE GuestBook SET Name = '" & Name & "' Where Number = '" & No & "'" )
Set rs = conn.Execute( "UPDATE GuestBook SET Sex = '" & Sex & "' Where Number = '" & No & "'" )
Set rs = conn.Execute( "UPDATE GuestBook SET Job = '" & Job & "' Where Number = '" & No & "'" )
Set rs = conn.Execute( "UPDATE GuestBook SET EMail = '" & Email & "' Where Number = '" & No & "'" )
Set rs = conn.Execute( "UPDATE GuestBook SET WebURL = '" & Web & "' Where Number = '" & No & "'" )
Set rs = conn.Execute( "UPDATE GuestBook SET Data = '" & Memo & "' Where Number = '" & No & "'" )

Response.Redirect "Index.asp?User=" & User & "&Pwd=" & Pwd
End If
Else
Response.Write "<CENTER><B>您不是版主身份！不能更动资料！</B>"
End If

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -