📄 editor.asp

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

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

function xmp(N)
N= Replace(N,"<xmp>","&lt;xmp&gt;")
N = Replace(N,"<Xmp>","&lt;Xmp&gt;")
N = Replace(N,"<xMp>","&lt;xMp&gt;")
N = Replace(N,"<xmP>","&lt;xmP&gt;")
N = Replace(N,"<XmP>","&lt;XmP&gt;")
N = Replace(N,"<XMp>","&lt;XMp&gt;")
N = Replace(N,"<xMP>","&lt;xMp&gt;")
N = Replace(N,"<XMP>","&lt;XMP&gt;")
N = Replace(N,">","&gt;")
xmp = Replace(N,"<","&lt;")
End function

Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Data.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From GuestBook Where Number = '" & No & "'", conn, 1, 3
If Not rs.EOF Then
Name = rs("Name")
Sex = rs("Sex")
Job = rs("Job")
Email = rs("EMail")
Web = rs("WebURL")
Memo = rs("Data")

Name = xmp(Name)
Job = xmp(Job)
Email = xmp(Email)
Web = xmp(Web)
Memo = xmp(Memo)

If Sex = "M" Then
SexTab1 = " CHECKED"
Else
SexTab2 = " CHECKED"
End If

End If
rs.Close
conn.Close
%><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">
<FORM ACTION="Delete.asp" METHOD="POST">
<TABLE BORDER="0">
<TR><TD>姓名：</TD><TD COLSPAN="2"><INPUT TYPE="TEXT" NAME="Name" VALUE="<% =Name %>" SIZE="41"></TD></TR>
<TR><TD>性别：</TD><TD><INPUT TYPE="RADIO" Name="Sex" VALUE="Man"<% =SexTab1 %>>男</TD><TD><INPUT TYPE="RADIO" Name="Sex" VALUE="Female"<% =SexTab2 %>>女</TD></TR>
<TR><TD>职业：</TD><TD COLSPAN="2"><INPUT TYPE="TEXT" NAME="Job" VALUE="<% =Job %>" SIZE="41"></TD></TR>
<TR><TD>电子邮件：</TD><TD COLSPAN="2"><INPUT TYPE="TEXT" NAME="Email" VALUE="<% =Email %>" SIZE="41"></TD></TR>
<TR><TD>主页地址：</TD><TD COLSPAN="2"><INPUT TYPE="TEXT" NAME="Web" VALUE="<% =Web %>" SIZE="41"></TD></TR>
<TR><TD>留言内容：</TD><TD COLSPAN="2"><TEXTAREA Name="Memo" ROWS="6" COLS="40"><% =Memo %></TEXTAREA></TD></TR>
<TR><TD COLSPAN="3" ALIGN="CENTER"><INPUT TYPE="HIDDEN" NAME="No" VALUE="<% =No %>"><INPUT TYPE="HIDDEN" NAME="User" VALUE="<% =User %>"><INPUT TYPE="HIDDEN" NAME="Pwd" VALUE="<% =Pwd %>"><INPUT TYPE="SUBMIT" NAME="Key" VALUE="确认修改"> <INPUT TYPE="SUBMIT" NAME="Key" VALUE="删除留言"> <INPUT TYPE="BUTTON" VALUE="取消更改" OnClick="javascript:history.go( -1 );"></TD></TR>
</TABLE>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明

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