📄 manly.asp
字号:
<%@ codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" then Response.Redirect "manerr.asp?id=100"
If grade <> 12 Then
qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
If qx(14) <> "1" Then Response.Redirect "manerr.asp?id=270"
End If
page = Request.QueryString("page")
If page = "" Then page = 1
If Not(IsNumeric(page)) then page = 1
page = Int(page)
If page < 1 Then page = 1
Dim show()
Redim Preserve show(0)
gbperpage = 10
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
if grade <> 12 then
sql="SELECT * FROM gbook WHERE mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "' ORDER BY writetime DESC"
else
sql="SELECT * FROM gbook ORDER BY writetime DESC"
end if
rs.Open sql, conn, 1, 1
rs.PageSize = gbperpage
totalrec = rs.RecordCount
If totalrec > 0 then
totalpage = rs.PageCount
if page > totalpage then page = totalpage
rs.AbsolutePage = page
rs.CacheSize = rs.PageSize
i = 0
Do While (Not rs.Eof) and (i<rs.PageSize)
i = i + 1
Redim Preserve show(i)
v0=rs("id")
v1=rs("writetime")
v2=rs("mm")
v3=rs("towho")
v4=rs("fromwho")
v5=rs("title")
v6=rs("intro")
v7=rs("hideip")
v8=rs("ip")
v9=rs("address")
v10=rs("email")
v11=rs("homename")
v12=rs("homeurl")
show(i) = "w(" & Chr(34) & v0 & Chr(34) & ", " & Chr(34) & v1 & Chr(34) & ", " & Chr(34) & v2 & Chr(34) & ", " & Chr(34) & v3 & Chr(34) & ", " & Chr(34) & v4 & Chr(34) & ", " & Chr(34) & v5 & Chr(34) & ", " & Chr(34) & v6 & Chr(34) & ", " & Chr(34) & v7 & Chr(34) & ", " & Chr(34) & v8 & Chr(34) & ", " & Chr(34) & v9 & Chr(34) & ", " & Chr(34) & v10 & Chr(34) & ", " & Chr(34) & v11 & Chr(34) & ", " & Chr(34) & v12 & Chr(34) & ")"
rs.MoveNext
Loop
Else
totalpage = 1
page = 1
End If
rs.close
conn.close
set rs=nothing
set conn=nothing
ubshow = UBound(show)
%>
<html>
<head>
<title>留言簿</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
a{color:blue;text-decoration:none}
a:hover{color:red;text-decoration:none}
a:active{text-decoration:none}
a:visited{text-decoration:none}
td{font-family:'宋体';font-size:9pt}
input{font-family:'宋体';font-size:9pt;background-color:FFFFFF;color:000000;border: 1 double}
body{font-family:'宋体';font-size:9pt;line-height:160%}
.cp{font-family:'宋体';color=red;font-size:9pt}
</style>
<script Language=JavaScript>
var page = <%=page%>;
var totalpage = <%=totalpage%>;
function cx(v){
window.open("friendqueryview.asp?id=" + unescape(v), "", "width=365,height=235");
}
function gopage(v){
pp = document.bd[v].pg.value;
url = "manly.asp?page=" + pp;
this.location.href=url;
}
function wp(){
var spl = "";
if(page - 1 >= 1){
spl = spl + "<a href='manly.asp?page=1'>首页</a> ";
spl = spl + "<a href='manly.asp?page=" + (page - 1) + "'>上页</a> ";
}
else{
spl = spl + "首页 ";
spl = spl + "上页 ";
}
if(page + 1 <= totalpage){
spl = spl + "<a href='manly.asp?page=" + (page + 1) + "'>下页</a> ";
spl = spl + "<a href='manly.asp?page=" + totalpage + "'>末页</a> ";
}
else{
spl = spl + "下页 ";
spl = spl + "末页 ";
}
spl = spl + "<a href=javascript:history.go(0)>刷新</a>";
document.write(spl);
}
function w(v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12){
if(v2 == 1){v2 = " <font color=red size=3>【悄悄话】</font>"}else{v2 = ""}
hh = "<a href=javascript:del(" + v0 + ")>〖删除 ID:[" + v0 + "] 〗</a>"
if(v7 == "0"){v8 = v8 + " "}else{v8 = ""}
ly = "<table width=100% border=0 cellspacing=0><tr>";
ly = ly + "<td><font color=009900>写给聊友：</font><b>" + v3 + "</b>" + v2 + "</td><td width=150>" + hh + "</td>";
ly = ly + "<td align=right width=150><font color=009900>时间：</font>" + v1 + "</td></tr></table><hr size=1 color=AAAAAA noshade>";
ly = ly + "<font color=0066FF>留言主题：</font><b><font color=red>" + v5 + "</font></b><br>";
ly = ly + "<font color=0066FF>留言内容：</font>" + v6 + "<br><hr size=1 color=AAAAAA noshade>";
ly = ly + "<table width=100% border=0 cellspacing=0><tr>";
ly = ly + "<td><font color=009900>留 言 者：</font><a href=javascript:cx(\"" + escape(v4) + "\")><b>" + v4 + "</b></a></td>";
ly = ly + "<td align=right><font color=009900>来自：</font>" + v8 + v9 + "</td></tr></table>";
ly = ly + "<table width=100% border=0 cellspacing=0><tr>";
ly = ly + "<td><font color=009900>电子信箱：</font><a href=\"mailto:" + v10 + "\">" + v10 + "</a></td>";
ly = ly + "<td align=right><font color=009900>主页地址：</font><a href=\"" + v12 + "\" title=\"" + v11 + "\" target=_blank onMouseOver=\"window.status='访问此聊友的主页《" + v11 + "》。';return true\" onMouseOut=\"window.status='';return true\">" + v11 + "</a></td></tr></table>";
ly = ly + "<table width=100% border=0 cellspacing=0><tr>";
ly = ly + "<td></td></tr></table><hr color=009900>";
document.write(ly);
}
function del(v0){
if(confirm("真的要删除 ID 为 [" + v0 + "] 的留言吗？")){
var why = prompt("请输入删除留言 [" + v0 + "] 的原因：", "")
if(why == ""){
alert("必须输入原因才能删除！");
}
else{
if(why != null){
log = "yes";
<%If nickname = "聊天室管理员" Then%>
if(confirm("要记入日常管理日志请选择“确认”\n\n不记入日常管理日志请选择“取消”")){
log = "yes";
}
else{
log = "no";
}
<%End If%>
url = "manlydel.asp?id=" + v0 + "&log=" + log + "&why=" + why;
window.open(url, '', 'width = 380, height = 170');
}
}
}
}
</script>
</head>
<body bgcolor="FFFFFF">
<div align="center">
<h1><font color="0099FF">【留言管理】</font></h1>
</div>
<hr color=009900>
<table width="100%" border="0">
<tr>
<form name="bd" method="post" action="javascript:gopage(0)">
<td>共 <font color=red><%=totalrec%></font> 条，每页 <font color=red><%=gbperpage%></font> 条，共 <font color=red><%=totalpage%></font> 页，第
<input type="text" name="pg" maxlength="5" size="2" value="<%=page%>">
<input type="submit" name="Submit" value="Go">
</td>
</form>
<td align="right"><script Language=javascript>wp()</script></td>
</tr>
</table>
<hr color=009900>
<%
For i = 1 To ubshow
Response.Write "<script>" & show(i) & "</script>" & Chr(13) & Chr(10)
Next
%>
<table width="100%" border="0">
<tr>
<form name="bd" method="post" action="javascript:gopage(1)">
<td>共 <font color=red><%=totalrec%></font> 条，每页 <font color=red><%=gbperpage%></font> 条，共 <font color=red><%=totalpage%></font> 页，第
<input type="text" name="pg" maxlength="3" size="2" value="<%=page%>">
<input type="submit" name="Submit" value="Go">
</td>
</form>
<td align="right"><script Language=javascript>wp()</script></td>
</tr>
</table>
<hr color=009900>
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -