📄 sys_gsbook.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.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
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_Sys.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="600" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><p><strong>=> 留言系统管理</strong></p>
<form method="POST" action="Sys_Search.asp" name="form">
<p>搜索留言：<strong>
<input name="Content" type="text" size="20" maxlength="20" Class=put>
<select name="SearchMode" Class=put>
<option value="Title" selected>留言标题</option>
<option value="Author">留言作者</option>
</select>
<input type="submit" name="Submit" value="=> 搜索" Class=put2>
</strong></p>
</form>
<p>
<%
Select Case ClassPage.CurrentPage
Case 1
ClassPage.GetOntop()
If ClassPage.Ontop = 1 Then
for i=0 to ubound(ClassPage.ArriRs,2)
%>
</p>
<p><a href=ShowGsbook.asp?Id=<%=ClassPage.ArriRs(15,i)%>><font color=000ff><u><%=ClassPage.ArriRs(7,i)%></u></font></a>
[<%=ClassPage.ArriRs(2,i)%>] - <%=datevalue(ClassPage.ArriRs(11,i))%>
- [置顶]<br><font color="#FF0000">[操作：<a href="EditGsbook.asp?Id=<%=ClassPage.ArriRs(15,i)%>" target="_blank">修改</a>
| <a href="DelGsbook.asp?Id=<%=ClassPage.ArriRs(15,i)%>">删除</a>
| <a href="Ontop.asp?Id=<%=ClassPage.ArriRs(15,i)%>">取消置顶</a> |
<a href="ReGsbook.asp?Id=<%=ClassPage.ArriRs(15,i)%>" target="_blank">回复</a>]</font></p>
<%
Next
End If
End Select
Select Case ClassPage.ArrRsErr
Case 1
Response.Write "<Table width=500><tr><td ><br>=============== 留言板还没有任何内容！ ===============</td></tr></table>"
Response.End
End Select
ClassSystem.Closedb()
for i=0 to ubound(ClassPage.ArrRs,2)
%>
<div> 标题：<a href=ShowGsbook.asp?Id=<%=ClassPage.ArrRs(15,i)%> target=_blank><u><%=ClassPage.ArrRs(7,i)%></u></a>
[作者：<%=ClassPage.ArrRs(2,i)%>] - 留言于<%=ClassPage.ArrRs(11,i)%>
<br>
<font color="#FF0000">[操作：<a href="EditGsbook.asp?Id=<%=ClassPage.ArrRs(15,i)%>" target="_blank">修改</a>
| <a href="DelGsbook.asp?Id=<%=ClassPage.ArrRs(15,i)%>" target="_blank">删除</a>
| <a href="Ontop.asp?Id=<%=ClassPage.ArrRs(15,i)%>" target="_blank">置顶</a>
| <a href="ReGsbook.asp?Id=<%=ClassPage.ArrRs(15,i)%>" target="_blank">回复</a>]</font><br>
<br>
</div>
<%
Next
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
%>
</td>
</tr>
</table></td>
</tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -