📄 index.asp
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/showpage.asp" -->
<!--#include file="inc/ubb.asp"-->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck,ClassPage
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassPage = New ShowPage
ClassSystem.CheckLockIp()
ClassSystem.GetWebSys()
ClassSystem.FirstUs ClassSystem.ArrRs(16,0)
ClassCheck.GetUserInfo()
ClassCheck.CheckOpenGsbook ClassCheck.loginok,ClassSystem.ArrRs(13,0),ClassSystem.ArrRs(14,0)
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassPage.SetCurrentPage Request("Page")
ClassPage.GetPageInfo ClassPage.CurrentPage,ClassPage.Pagesize
ClassPage.SetTotalPage ClassPage.Recordcounti,ClassPage.Pagesize
%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<title><%=ClassSystem.ArrRs(0,0)%> - <%=ClassSystem.ArrRs(1,0)%></title></head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 class="body" Bgproperties="fixed">
<!--#include file="Include/Top.asp" -->
<div class="div">
<%
Select Case ClassPage.CurrentPage
Case 1
ClassPage.GetOntop()
Select Case ClassPage.Ontop
Case 1
TableGsbook="TableGsbook2"
TGsbook="TGsbook2"
Onpic="7.gif"
for i=0 to ubound(ClassPage.ArriRs,2)
ClassPage.GetGsbookInfo ClassPage.ArriRs(0,i),ClassCheck.loginok,ClassPage.ArriRs(7,i),ClassPage.ArriRs(8,i),ClassPage.ArriRs(4,i),ClassPage.ArriRs(5,i),ClassPage.ArriRs(10,i),ClassPage.ArriRs(2,i),ClassPage.ArriRs(15,i)
Response.write "<table Class=TableTop border=0 cellpadding=0 cellspacing=0><tr><td class=TableTop_Left rowspan=11> </td><td colspan=2 align=center> </td></tr>"&_
"<tr><td colspan=2 Class=TableTop_Right1 align=center><table border=0 cellpadding=0 cellspacing=1 Class="&TableGsbook&">"&_
"<tr><td height=2></td><tr> "&_
"<td class="&TGsbook&"><table width=100% border=0 cellspacing=0 cellpadding=0>"&_
"<tr><td width=68% > <font Class=GsbookFont_Author><img src=images/"&Onpic&"> "&ClassPage.ArriRs(2,i)&"( "
If ClassPage.ArriRs(3,i)=True Then response.write "<font color=0000ff>♂</font>" else Response.write "<font color=red>♀</font>"
Response.Write ") 留言于"&ClassPage.ArriRs(11,i)&" </font><font color=#FF0000>[置顶]</font></td>"&_
"<td width=32% align=right><a href="&ClassPage.Email&"><img src=images/email.gif width=20 height=16 border=0></a> "&_
"<a href="&ClassPage.MyWeb&"><img src=images/home.gif width=15 height=14 border=0></a>"&_
" <img src=images/ip.gif width=13 height=12 alt="&ClassPage.Ip&"> </td>"&_
"</tr></table></td></tr><tr><td height=1 bgcolor=#eeeeee></td></tr>"&_
"<tr><td align=center valign=top bgcolor=#FFFFFF><table width=95% border=0 cellspacing=0 cellpadding=0>"&_
"<tr><td width=21% rowspan=5 align=center valign=top><img src=face/"&ClassPage.ArriRs(6,i)&".gif></td><td height=5></td></tr>"&_
"<tr><td height=20> </td><td height=20><font Class=GsbookFont_Title>Title:<u>"&ClassPage.Title&"</u></font></td>"&_
"</tr><tr><td width=2% > </td>"&_
"<td width=77% ><table width=100% border=0 cellpadding=0 cellspacing=0><font Class=GsbookFont_Content> "&Autolink(ClassPage.Content)&"</font></table>"&_
"<a href=ShowGsbook.asp?Id="&ClassPage.ArriRs(15,i)&" target=_blank><img src=images/click.gif width=12 height=12 border=0></a></td>"&_
"</tr><tr><td height=20> </td><td height=20 align=right><table width=60 border=0 cellspacing=0 cellpadding=0>"&_
"<tr><td width=17 Class=GsbookPic_1><a href=ReGsbook.asp?Id="&ClassPage.ArriRs(15,i)&" title=回复留言><img src=images/a5.gif width=17 height=19 border=0></a></td><td width=3></td>"&_
"<td width=17 Class=GsbookPic_2><a href=EditGsbook.asp?Id="&ClassPage.ArriRs(15,i)&" title=修改留言 ><img src=images/a5.gif width=17 height=19 border=0></a></td>"&_
"<td width=3></td><td width=17 Class=GsbookPic_3><a title=删除留言 href=DelGsbook.asp?Id="&ClassPage.ArriRs(15,i)&"><img src=images/a5.gif width=17 height=19 border=0></a></td>"&_
"<td width=3></td></tr></table></td></tr>"
Select Case ClassPage.ArriRs(9,i)
Case True
If ClassPage.ArriRs(0,i)<>True And ClassCheck.loginok=0 Then
ReContent = "请<a href=ShowGsbook.asp?Id="&ClassPage.ArriRs(15,i)&" target=_blank><u>点此</u></a>输入留言密码查看悄悄话回复！"
ReId = "Null"
Else
ClassPage.GetReInfo ClassPage.ArriRs(15,i)
ReContent = ClassPage.ArriiRs(1,0)
ReId = ClassPage.ArriiRs(2,0)
End If
Response.write "<tr><td height=20> </td><td width=77% height=20> <table width=99% border=0 cellpadding=0 cellspacing=1 bgcolor=#FFD999>"&_
"<tr> <td bgcolor=#FFFFFF><table width=98% border=0 align=center cellpadding=0 cellspacing=0>"&_
"<tr> <td height=2></td></tr><tr>"&_
"<td Class=TdGsbookRe><font Class=GsbookFont_Re><img src=images/6.gif width=16 height=15> Re:"&ReContent&" <a href=ReGsbook.asp?Id="&ClassPage.ArriRs(15,i)&"><img src=Images/editre.gif width=13 height=14 border=0 Title=修改回复></a> "&_
"<a title=删除回复 href=DelReGsbook.asp?Id="&ReId&"><img src=Images/delre.gif width=10 height=13 border=0></a> "&_
"</font></td></tr><td height=2></td></table></td></tr></table></td></tr>"
End Select
Response.write "<tr><td colspan=3> </td></tr></table></td></tr></table></td></tr></table></div><div class=div>"
Next
End Select
End Select
Select Case ClassPage.ArrRsErr
Case 1
Response.Write "<Table width=500><tr><td ><br><br><br>=============== 留言板还没有任何内容！ ===============</td></tr></table>"
Response.End
End Select
for i=0 to ubound(ClassPage.ArrRs,2)
ClassPage.GetStyle i
ClassPage.GetGsbookInfo ClassPage.ArrRs(0,i),ClassCheck.loginok,ClassPage.ArrRs(7,i),ClassPage.ArrRs(8,i),ClassPage.ArrRs(4,i),ClassPage.ArrRs(5,i),ClassPage.ArrRs(10,i),ClassPage.ArrRs(2,i),ClassPage.ArrRs(15,i)
Response.write "<table Class=TableTop border=0 cellpadding=0 cellspacing=0>"&_
"<tr><td class=TableTop_Left rowspan=11> </td>"&_
"<td colspan=2 align=center> </td></tr><tr> "&_
"<td colspan=2 class=TableTop_Right>"&_
"<Div Class="&ClassPage.Css_div&">"&_
"<table border=0 cellpadding=0 cellspacing=1 Class="&ClassPage.Css_TableGsbook&">"&_
"<tr><td height=2></td><tr> "&_
"<td class="&ClassPage.Css_TGsbook&"><table width=100% border=0 cellspacing=0 cellpadding=0>"&_
"<tr><td width=68% > <font Class=GsbookFont_Author><img src=images/"&ClassPage.Css_Onpic&" width=13 height=13>"&ClassPage.ArrRs(2,i)&"( "
If ClassPage.ArrRs(3,i)=True Then response.write "<font color=0000ff>♂</font>" else Response.write "<font color=red>♀</font>"
Response.Write ") 留言于"&ClassPage.ArrRs(11,i)&"</font></td>"&_
"<td width=32% align=right><a href="&ClassPage.Email&"><img src=images/email.gif width=20 height=16 border=0></a>"&_
" <a href="&ClassPage.MyWeb&"><img src=images/home.gif width=15 height=14 border=0></a> "&_
"<img src=images/ip.gif width=13 height=12 alt="&ClassPage.Ip&"> </td>"&_
"</tr></table></td></tr>"&_
"<tr><td height=1 bgcolor=#eeeeee></td></tr>"&_
"<tr><td align=center valign=top bgcolor=#FFFFFF> <table width=95% border=0 cellspacing=0 cellpadding=0>"&_
"<tr><td width=21% rowspan=5 align=center valign=top><img src=face/"&ClassPage.ArrRs(6,i)&".gif></td><td height=5></td></tr>"&_
"<tr><td height=20> </td><td height=20><font Class=GsbookFont_Title>Title:<u>"&ClassPage.Title&"</u></font></td></tr>"&_
"<tr><td width=2% > </td>"&_
"<td width=77% ><table width=100% border=0 cellpadding=0 cellspacing=0><font Class=GsbookFont_Content> "&Autolink(ClassPage.Content)&"</font></table>"&_
"<a href=ShowGsbook.asp?Id="&ClassPage.ArrRs(15,i)&" target=_blank><img src=images/click.gif width=12 height=12 border=0></a></td>"&_
"</tr><tr><td height=20> </td><td height=20 align=right><table width=60 border=0 cellspacing=0 cellpadding=0>"&_
"<tr><td width=17 Class=GsbookPic_1><a href=ReGsbook.asp?Id="&ClassPage.ArrRs(15,i)&" title=回复留言 ><img src=images/a5.gif width=17 height=19 border=0></a></td>"&_
"<td width=3></td>"&_
"<td width=17 Class=GsbookPic_2><a href=EditGsbook.asp?Id="&ClassPage.ArrRs(15,i)&" title=修改留言 ><img src=images/a5.gif width=17 height=19 border=0></a></td>"&_
"<td width=3></td><td width=17 Class=GsbookPic_3><a title=删除留言 href=DelGsbook.asp?Id="&ClassPage.ArrRs(15,i)&"><img src=images/a5.gif width=17 height=19 border=0></a></td>"&_
"<td width=3></td></tr></table></td></tr>"
Select Case ClassPage.ArrRs(9,i)
Case True
If ClassPage.ArrRs(0,i)<>True And ClassCheck.loginok=0 Then
ReContent = "请<a href=ShowGsbook.asp?Id="&ClassPage.ArrRs(15,i)&" target=_blank><u>点此</u></a>输入留言密码查看悄悄话回复！"
ReId = "Null"
Else
ClassPage.GetReInfo ClassPage.ArrRs(15,i)
ReContent = ClassPage.ArriiRs(1,0)
ReId = ClassPage.ArriiRs(2,0)
End If
Response.write "<tr><td height=20> </td>"&_
"<td width=77% height=20> <table width=99% border=0 cellpadding=0 cellspacing=1 Class=TableGsbookRe>"&_
"<tr><td bgcolor=#FFFFFF><table width=98% border=0 align=center cellpadding=0 cellspacing=0>"&_
"<tr><td height=2></td></tr><tr> "&_
"<td Class=TdGsbookRe><font Class=GsbookFont_Re><img src=images/6.gif width=16 height=15> Re:"&ReContent&" <a href=ReGsbook.asp?Id="&ClassPage.ArrRs(15,i)&"><img src=Images/editre.gif width=13 height=14 border=0 Title=修改回复></a> "&_
"<a title=删除回复 href=DelReGsbook.asp?Id="&ReId&"><img src=Images/delre.gif width=10 height=13 border=0></a> "&_
"</font></td></tr><td height=2></td></table></td></tr></table></td></tr>"
End Select
Response.write "<tr><td colspan=3> </td></tr></table></td></tr></table></div></td></tr></table>"
Next
ClassSystem.Closedb()
Response.write "</div><div class=div>"&_
"<table Class=TableTop border=0 align=center cellpadding=0 cellspacing=0>"&_
"<tr><td align=center> </td></tr>"&_
"<tr><td align=center> "
If ClassPage.TotalPage>1 Then
CurrentPage = Int(ClassPage.CurrentPage)
TotalPage = Int(ClassPage.TotalPage)
response.write "<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>"&_
"<TBODY><TR width=100% >"&_
"<TD align=center bgcolor=#ffffff class=p9> 共 "&ClassPage.recordcounti&" 个留言 "&CurrentPage&"/"&TotalPage&"页"
If CurrentPage>=10 Then CurrentPagei=CurrentPage-10 else CurrentPagei=1
If CurrentPage>=2 Then
response.write " <a href=?Page=1><font color=000000>首页</font></a> <a href=?page="&CurrentPagei&" title=前十页><font face=webdings color=000000>9</font>..</a><a href=?page="&CurrentPage-1&" title=上一页><font face=webdings color=000000>7</font></a><b> "
Else
response.write " <font color=000000>首页</font> <font face=webdings color=000000>9</font>..<font face=webdings color=000000>7</font><b> "
End If
If CurrentPage>4 Then i=CurrentPage-4 else i=1
Do
If i=CurrentPage Then exit Do
response.write "<a href=?page="&i&"><font color=000000>"&i&"</font></a> "
i=i+1
loop
response.write "<font color=#FF0000>"&CurrentPage&"</font> "
n=CurrentPage
Do
If n-CurrentPage>4 or n>=TotalPage Then exit Do
response.write "<a href=?page="&n+1&"><font color=000000>"&n+1&"</font></a> "
n=n+1
loop
If TotalPage-CurrentPage>=10 Then CurrentPagen=CurrentPage+10 else CurrentPagen=TotalPage
response.write "</b> "
If CurrentPage < TotalPage Then
response.write "<a href=?page="&CurrentPage+1&" title=下一页><font face=webdings color=000000>8</font></a><a href=?page="&CurrentPagen&" title=下十页>..<font face=webdings color=000000>:</font></a> <a href=?page="&TotalPage&"><font color=000000>末页</font></a>"
Else
response.write "<font face=webdings color=000000>8</font>..<font face=webdings color=000000>:</font> <font color=000000>末页</font>"
End If
response.write "</TD></TR></TBODY></TABLE>"
end If
Response.write "</td></tr></table></div>"
%>
<!--#Include File="Include/CopyRight.asp" -->
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -