📄 re.asp

📁 伤心森林留言本 MD5 校验: 6fba55b713119dfa46a8118a09845643
💻 ASP
字号:
<!--#include file="Master.asp" -->
<%
No = Request("No")
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 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 rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From GuestBook Where Number = '" & No & "'", conn, 3

If Not rs.EOF Then
Name = rs("Name")
Sex = rs("Sex")
If Sex = "M" Then
Color = Mancolor
Else
Color = Girlcolor
End If
Memo = rs("Data")
Memo = Replace(Memo,chr(13) & chr(10),"<br>")
End If

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

rs.Close
conn.Close
%>
<HTML>
<HEAD>
<TITLE><% =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"><BR>

[<A HREF="Index.asp<% =Link %>"><FONT COLOR="ORANGE">看看留言</FONT></A>][<A HREF="Login.html"><FONT COLOR="ORANGE">管理系统</FONT></A>]

<FORM action="ReNo.asp" method="post">

<TABLE BORDER="0" cellpadding="0" cellspacing="0" WIDTH="320">
<TR><TD COLSPAN="3"><FONT COLOR="<% =Color %>"><% =Name %></FONT>的留言：</TD></TR>
<TR><TD BGCOLOR="#f9f6f0" COLSPAN="3"><% =Memo %></TD></TR>
<TR><TD COLSPAN="3"><BR></TD></TR>
<TR>

<TD WIDTH="90"><IMG SRC="BUTTOM-B.GIF"> 您的姓名：</TD>
<TD WIDTH="230" COLSPAN="2"><INPUT TYPE="TEXT" Name="Name" SIZE="35"></TD>

</TR>
<TR>

<TD WIDTH="90"><IMG SRC="BUTTOM-B.GIF"> 您的性别：</TD>
<TD WIDTH="115"><INPUT TYPE="RADIO" Name="Sex" VALUE="Man">男</TD>
<TD WIDTH="115"><INPUT TYPE="RADIO" Name="Sex" VALUE="Female">女</TD>

</TR>
<TR>

<TD COLSPAN="3"><IMG SRC="BUTTOM-B.GIF"> 回复内容：</TD></TR><TR>
<TD COLSPAN="3"><TEXTAREA Name="Memo" ROWS="6" COLS="48"></TEXTAREA></TD>

</TR>
<TR>
<INPUT TYPE="HIDDEN" NAME="User" VALUE="<% =User %>">
<INPUT TYPE="HIDDEN" NAME="Pwd" VALUE="<% =Pwd %>">
<INPUT TYPE="HIDDEN" NAME="No" VALUE="<% =No %>">
<TD COLSPAN="3">
<INPUT TYPE="Submit" VALUE="确定送出">
<INPUT TYPE="Reset" VALUE="清除重写">
</TD>

</TR>
</TABLE><BR>
<font color="#808080">伤心森林留言本V1.5</font> 
</BODY>
</HTML>
⌨️ 快捷键说明

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