📄 showgsbook.asp
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/Showpage.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()
ClassCheck.GetUserInfo()
ClassCheck.CheckOpenGsbook ClassCheck.loginok,ClassSystem.ArrRs(13,0),ClassSystem.ArrRs(14,0)
ClassCheck.CheckOpenRead ClassCheck.loginok,ClassSystem.ArrRs(7,0)
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassPage.CheckGsbookId Request.QueryString("Id")
ClassPage.ShowGsbookInfo ClassPage.Id
If ClassPage.ArrRs(1,0)<>True Then CallErr("<Li>错误参数！")
Select Case Request.QueryString("InType")
Case "UserEditLogin"
ClassCheck.UserEditLogin Request.Form("EditPass"),ClassPage.Id,ClassPage.ArrRs(12,0)
End Select
Select Case ClassPage.ArrRs(0,0)
Case False
ClassCheck.SetEditPower()
ClassCheck.GetEditPower ClassCheck.loginok,ClassPage.ArrRs(12,0),ClassPage.ArrRs(11,0),ClassCheck.UserEdit,ClassCheck.UserEditId,ClassPage.Id,ClassSystem.ArrRs(12,0),3
End Select
Select Case ClassPage.ArrRs(9,0)
Case True
ClassPage.GetReInfo ClassPage.Id
End Select
ClassSystem.Closedb()
%>
<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">
<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>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p><strong>我的昵称</strong>：<%=ClassPage.ArrRs(2,0)%> <strong>性别:
<%If ClassPage.ArrRs(3,0)=True Then response.write "<font color=0000ff>♂</font>" else Response.write "<font color=red>♀</font>"%>
</strong></p>
<p><strong>留言时间</strong>：<%=ClassPage.ArrRs(11,0)%> </p>
<p><strong>我的邮箱</strong>：<%If ClassPage.ArrRs(4,0)<>"空" Then response.write "<a href=Mailto:"&ClassPage.ArrRs(4,0)&" Title:给我发邮件><u>"&ClassPage.ArrRs(4,0)&"</u></a>" Else Response.Write "没有留下"%> 我的主页：<%If ClassPage.ArrRs(5,0)<>"空" Then response.write "<a href="&ClassPage.ArrRs(5,0)&" Target=_blank Title:访问我的主页><u>"&ClassPage.ArrRs(5,0)&"</u></a>" Else Response.Write "建设中.."%></p>
<p><strong>表情图图</strong>：<img src="face/<%=ClassPage.ArrRs(6,0)%>.gif">
</p>
<p><strong>留言标题</strong>：<%=ClassPage.ArrRs(7,0)%> </p>
<p><strong>留言内容</strong>：<%=ClassPage.ArrRs(8,0)%> </p>
<p><strong>来源IP</strong>：<%If ClassCheck.loginok<>1 Then response.write "权限不足，IP保密" else response.write ClassPage.ArrRs(10,0)%> </p>
<p><a href="ReGsbook.asp?Id=<%=ClassPage.Id%>"><font color="#0000FF"><u>回复留言</u></font></a><font color="#0000FF">
</font> | <a href="EditGsbook.asp?Id=<%=ClassPage.Id%>"><font color="#0000FF"><u>修改留言</u></font></a>
| <a href="Ontop.asp?Id=<%=ClassPage.Id%>"><font color="#0000FF"><u>留言置顶</u></font></a><font color="#0000FF"></font>
| <a href="DelGsbook.asp?Id=<%=ClassPage.Id%>"><font color="#0000FF"><u>删除留言</u></font></a>
| <a href="LockUserIp.asp?Id=<%=ClassPage.Id%>"><font color="#0000FF"><u>锁定作者Ip</u></font></a></p>
<%
Select Case ClassPage.ArrRs(9,0)
Case True
%>
<hr noshade color=#cccccc>
<P><font color="#FF0000">=> 管理员于<%=ClassPage.ArriiRs(3,0)%>回复</font><br>
<br>
<strong> 回复标题</strong>：<%=ClassPage.ArriiRs(0,0)%><br><br>
<strong> 回复内容</strong>：<%=ClassPage.ArriiRs(1,0)%>
</P>
<P> <a href="ReGsbook.asp?Id=<%=ClassPage.Id%>"><font color="#FF0000"><u>修改回复</u></font></a>
| <a href="DelReGsbook.asp?Id=<%=ClassPage.ArriiRs(2,0)%>"><font color="#FF0000"><u>删除回复</u></font></a></P>
<%
End Select
%>
<p></p>
</td>
</tr>
</table></td>
</tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -