index.asp

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

<!--#include file="Master.asp" -->
<%
User = Request("User")
Pwd = Request("Pwd")
Page = Request("Page")

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
      IPView = True
   Else
      Response.Write "<CENTER><B>资料错误！您不是版主！</B>"
      Response.End
   End If
Else
   Response.Write "<CENTER><B>资料错误！您不是版主！</B>"
   Response.End
End If
End If

If Page = "" Then
   Page = 1
End If

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From GuestBook Where Re = '0' Order By AddDate DESC", conn, 3
If rs.EOF Then
Hr = "<P>没有任何留言..."
Else
Hr = "<HR SIZE=""1"" WIDTH=""80%"">"

rs.PageSize = 10
rs.AbsolutePage = Page

If rs.AbsolutePage > rs.PageCount Then
   rs.AbsolutePage = 1
End If


For i = 1 to rs.PageSize
No = rs("Number")
Email = rs("EMail")
HomePage = rs("WebURL")
Name = rs("Name")
Sex = rs("Sex")
Job = rs("Job")
Face = rs("Face")
Rights = rs("Rights")
IP = rs("IP")
MemoTime = rs("AddDate")
Name = Replace(Name,"<","&lt;")
Name = Replace(Name,">","&gt;")
HomePage = Replace(HomePage,"<","&lt;")
HomePage = Replace(HomePage,">","&gt;")
Email = Replace(Email,"<","&lt;")
Email = Replace(Email,">","&gt;")
If Rights = "0" Then
If User = "" And Pwd = "" Then
A1 = ""
A2 = ""
B1 = ""
ReButton = ""
Place = " ALIGN='CENTER'"
Memo = "<FONT COLOR='#555555'>给版主的悄悄话···</FONT>"
Else
A1 = "<A HREF='Editor.asp?User=" & User & "&Pwd=" & Pwd & "&No=" & No & "'>"
A2 = "</A>"
B1 = "&User=" & User & "&Pwd=" & Pwd
Place = ""
ReButton = ""
Memo = rs("Data")
If Faceview Then
Faceimg = "<TD VALIGN='TOP' ALIGN='RIGHT'><IMG SRC='Faceimg/" & Faceimage & "/" & Face & ".gif'></TD>"
End If

If Not HTML Then
Memo = Replace(Memo,"<","&lt;")
Memo = Replace(Memo,">","&gt;")
End If
End If
Else
Place = ""
ReButton = "[ </FONT><A HREF=""Re.asp?No=" & No & B1 & """>网友回复</A><FONT FACE='Arial' SIZE='1'> ]"
Memo = rs("Data")
If Faceview Then
Faceimg = "<TD VALIGN='TOP' ALIGN='RIGHT'><IMG SRC='Faceimg/" & Faceimage & "/" & Face & ".gif'></TD>"
End If

If Not HTML Then
Memo = Replace(Memo,"<","&lt;")
Memo = Replace(Memo,">","&gt;")
End If
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "Select * From GuestBook Where Re = '" & No & "' Order By AddDate", conn, 3

If Not rs1.EOF Then
For a = 1 to rs1.RecordCount
If rs1("Sex") = "M" Then
Ncolor = Mancolor
Else
Ncolor = Girlcolor
End If
If Not HTML Then
Data = Replace(rs1("Data"),"<","&lt;")
Data = Replace(Data,">","&gt;")
End If
ReTab = ReTab & chr(13) & chr(10) & "<TR><TD COLSPAN='2'><FONT COLOR='" & Ncolor & "'>" & rs1("Name") & "</FONT><FONT COLOR='" & Retitle & "'>回应：</FONT><BR><FONT COLOR='" & Redata & "'>" & Replace(rs1("Data"),chr(13) & chr(10),"<BR>") & "</FONT></TD></TR>"
rs1.MoveNext
Next
Else
ReTab = ""
End If
rs1.Close
End If

Memo = Replace(Memo,"<xmp>","&lt;xmp&gt;")
Memo = Replace(Memo,"<Xmp>","&lt;Xmp&gt;")
Memo = Replace(Memo,"<xMp>","&lt;xMp&gt;")
Memo = Replace(Memo,"<xmP>","&lt;xmP&gt;")
Memo = Replace(Memo,"<XmP>","&lt;XmP&gt;")
Memo = Replace(Memo,"<XMp>","&lt;XMp&gt;")
Memo = Replace(Memo,"<xMP>","&lt;xMp&gt;")
Memo = Replace(Memo,"<XMP>","&lt;XMP&gt;")
Memo = Replace(Memo,chr(13) & chr(10),"<BR>")

If Email = "No" Then
Email = "<IMG SRC='NMail.gif' BORDER='0'>"
Else
Email = "<A HREF='mailto:" & Email & "'><IMG SRC='Mail.gif' BORDER='0' ALT='电子邮件信箱'></A>"
End If
If HomePage = "http://" Or HomePage = "" Then
HomePage = "<IMG SRC='NWeb.gif' BORDER='0'>"
Else
HomePage = "<A HREF='" & HomePage & "'><IMG SRC='Web.gif' BORDER='0' ALT='首页'></A>"
End If

If IPView Then
    IPBar = "[ " & IP & " ]"
Else
    IPBar = ""
End If

If Sex = "M" Then
    Sex = "男"
Else
    Sex = "女"
End If

If User = "" And Pwd = "" Then
A1 = ""
A2 = ""
B1 = ""
Else
A1 = "<A HREF='Editor.asp?User=" & User & "&Pwd=" & Pwd & "&No=" & No & "'>"
A2 = "</A>"
B1 = "&User=" & User & "&Pwd=" & Pwd
End If

Tab = Tab & "<HR SIZE='1' WIDTH='80%'><TABLE BORDER='0' WIDTH='80%'>" & chr(13) & chr(10)

Tab = Tab & "<TR><TD COLSPAN='2'><TABLE BORDER='0'><TR><TD>" & A1 & "<IMG SRC='BUTTOM-G.GIF' ALT='编辑' BORDER='0'>" & A2 & " " & chr(13) & chr(10)

Tab = Tab & Name & "</TD><TD>" & chr(13) & chr(10)

Tab = Tab & "</TD><TD><FONT style='font: 9pt 宋体'>[</FONT><FONT style='font: 9pt 宋体' COLOR='BLUE'>" & Sex & "</FONT><FONT style='font: 9pt 宋体'>][</FONT><FONT style='font: 9pt 宋体'>" & Job & "</FONT><FONT style='font: 9pt 宋体'>]</FONT></TD></TR></TABLE></TD></TR>" & chr(13) & chr(10)

Tab = Tab & "<TR><TD" & Place & ">" & Memo & "<BR><BR></TD>" & Faceimg & "</TR>" & chr(13) & chr(10) & ReTab

Tab = Tab & "<TR><TD ALIGN='RIGHT' COLSPAN='2'><FONT FACE='Arial' SIZE='1'>" & ReButton & IPBar & "[ " & MemoTime & " ]</FONT>" & HomePage & Email & "</TD></TR>"

Tab = Tab & "</TABLE>" & chr(13) & chr(10)

ReTab = ""
rs.MoveNext
If rs.EOF Then
   Exit For
End If
Next

If Page > 1 Then
BackPage = "<HR BORDER=""1"" WIDTH=""80%"" COLOR='#FFFFFF'><A HREF=""Index.asp?Page=" & Page - 1 & B1 & """><FONT COLOR=""#BB0000"">上一页</FONT></A>"
End If

If Page - rs.PageCount < 0 Then
NextPage = "<A HREF=""Index.asp?Page=" & Page + 1 & B1 & """><FONT COLOR=""#BB0000"">下一页</FONT></A>"
End If
End If
rs.Close
conn.Close
%><HTML>
<HEAD>
<TITLE>
<% =Title %>
</TITLE>
<STYLE type="text/css">
<!--
A{text-decoration:none}
a,p,I,Body,td{font-size:9pt;line-height=160%}
-->
</STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="ORANGE" ALINK="ORANGE" VLINK="ORANGE"><CENTER> 
<BR>
<% =BackPage %>
<% =Tab %>
<% =Hr %>
<BR>
<% =NextPage %><BR>
<font color="#808080">伤心森林留言本V1.5</font> 
<!--滚动条设置代码-->
<style type="text/css">
body{
      SCROLLBAR-FACE-COLOR:#ADBE73;
      SCROLLBAR-HIGHLIGHT-COLOR:#FFFFFF;
      SCROLLBAR-SHADOW-COLOR:#808080;
      SCROLLBAR-3DLIGHT-COLOR:#7BA24A;
      SCROLLBAR-ARROW-COLOR:#000000;
      SCROLLBAR-TRACK-COLOR:#D4D0C8;
      SCROLLBAR-DARKSHADOW-COLOR:#000000;
      CURSOR:Default;
    }
</style>
<!--按钮设置代码-->
<style type="text/css">
INPUT.buttonface
{
      BACKGROUND:#D4D0C8;
      COLOR:#000000;
      BORDER-TOP:1 Hidden #FFFFFF;
      BORDER-LEFT:1 Hidden #FFFFFF;
      BORDER-RIGHT:1 Hidden #808080;
      BORDER-BOTTOM:1 Hidden #808080;
      FONT-SIZE:9pt;
      FONT-FAMILY:宋体,verdana,Arial, Helvetica;
      FONT-WEIGHT:Normal;
      TEXT-DECORATION: None;
      CURSOR:Default;
}
</style>
<!--多行文本框设置代码-->
<style type="text/css">
TEXTAREA.MultiLineText
{
      BACKGROUND-COLOR:#FFFFFF;
      COLOR:#000000;
      FONT-SIZE:9pt;
      FONT-WEIGHT:Normal;
      TEXT-DECORATION:None;
      FOTN-FAMILY:宋体,verdana,Arial, Helvetica;
      TEXT-ALIGN:Left;
      BORDER-TOP:1 Hidden #808080;
      BORDER-LEFT:1 Hidden #808080;
      BORDER-RIGHT:1 Hidden #FFFFFF;
      BORDER-BOTTOM:1 Hidden #FFFFFF;
      CURSOR:Text;
}
</style>
<!--单行文本框设置代码-->
<style type="text/css">
INPUT.smallInput
{
      BACKGROUND-COLOR:#FFFFFF;
      COLOR:#000000;
      FONT-SIZE:9pt;
      FONT-WEIGHT:Normal;
      TEXT-DECORATION:None;
      FOTN-FAMILY:宋体,verdana,Arial, Helvetica;
      TEXT-ALIGN:Left;
      BORDER-TOP:1 Hidden #808080;
      BORDER-LEFT:1 Hidden #808080;
      BORDER-RIGHT:1 Hidden #FFFFFF;
      BORDER-BOTTOM:1 Hidden #FFFFFF;
      CURSOR:Text;
}
</style>
<!--超级链接设置代码-->
<style type="text/css">
A:link {
      FONT-SIZE:9pt;COLOR:#000000; TEXT-DECORATION:None
}
A:visited {
      FONT-SIZE:9pt; COLOR:#000000; TEXT-DECORATION:None
}
A:active {
      FONT-SIZE:9pt; COLOR:#000000; TEXT-DECORATION:None
}
A:hover {
      FONT-SIZE:9pt; COLOR:#0099FF; TEXT-DECORATION:None
}
</style>
</BODY>
</HTML>