?? admin_guestbook.asp
字號:
<!--#include file="Include/xbqq_Setup.asp"-->
<!--#include file="conn.asp" -->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<%CheckAdmin1%>
<link href="other/xbqq_style.css" rel="stylesheet" type="text/css">
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="100%">
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top align=left>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=56>
<%
dim indexfilename,indeximg,n,x
indexfilename=right(Request.ServerVariables("PATH_TRANSLATED"),(len(Request.ServerVariables("PATH_TRANSLATED"))-instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\")))
imdeximg="Images/xbqq_skin/" '圖片文件夾
n=6 '每頁顯示留言數(shù)
x=5 '每頁顯示的頁數(shù)
txt=1000 '留言的最大字?jǐn)?shù)
dim webtitle,webname,webyn,webgl,webyn2,view2
set rs1 = conn.execute("select * From Gaobei_Set")
webtitle=rs1("title")
if rs1("webname")<>"" then webname=rs1("webname")
if rs1("gbyn")<>"" then webyn=rs1("gbyn")
webgl=rs1("gl")
rs1.close
set rs1=nothing
'設(shè)置頁腳信息,這里可以加入你的地址
page =Request.QueryString("page")
if page="" or page=0 then page=1
action = Request.QueryString("action")
action_e = Request.Form("action_e")
if action_e <>"" then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "你提交的路徑有誤，禁止從站點(diǎn)外部提交數(shù)據(jù)請不要亂該參數(shù)！"
response.write "</td></tr></table></center>"
response.end
end if
end if
%>
<script language="JavaScript">
function gbcount(message,total,used,remain)
{
var max;
max = total.value;
if (message.value.length > max) {
message.value = message.value.substring(0,max);
used.value = max;
remain.value = 0;
alert("留言不能超過 <%=txt%> 個字!");
}
else {
used.value = message.value.length;
remain.value = max - used.value;
}
}
</script>
<table width="600" height="18" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
<tr>
<td width="100%" height="18" align="center" valign="top">
<%
'主程序
Select Case action_e
Case ""
Case "reply"
Call Reply_Execute()
Case "admin"
Call Admin_Login_Execute()
Case "EditPWD"
Call EditPWD_Execute()
Case "Edit"
Call Edit_Execute()
Case "Edit_web"
Call Edit_web()
End Select
Call Main_Menu()
Select Case action
Case "UbbHelp"
Call UbbHelp()
Case "Admin_Login"
Call Admin_Login()
Case "Exit"
Call Exit_Admin()
Call View_Words()
Case ""
Call View_Words()
Case "Add_New"
Call Add_New()
Case "reply"
Call Reply()
Case "View_Words"
Call View_Words()
Case "Delete"
Call Delete()
Call View_Words()
Case "EditPWD"
Call EditPWD()
Case "Edit"
Call Edit()
Case "Edit_web"
Call Edit_web()
End Select
%>
</td>
</tr>
</table>
<% Sub Main_Menu() %>
<table width="600" height="24" border="0" align="center" class="unnamed1">
<tr>
<td>
<div align="left">
<%
if webyn=1 then
set rscount=server.createobject("adodb.recordset")
sqlCount="select count(View) from words where view=0"
rsCount.open sqlCount,conn,1,1
if RsCount(0)=0 then
response.write "<font color=#FF0000>您暫時沒有未處理的留言</font>"
else
response.write "<font color=#FF0000>您還有<b> " & rsCount(0) & " </b>條留言未處理</font>"
rsCount.close
end if
else
response.write "您沒有設(shè)置留言審核功能"
end if
%>
<a href="<%=indexfilename%>?action=Edit_web">基本設(shè)置</a> <hr>
</div></td>
</tr>
</table>
<%
End Sub
'''''''''''''''''''''''
'查看留言
Sub View_Words()
dim gbcount,y,j,k
set rs = conn.execute("select COUNT(*) as gbcount From words")
gbcount=rs("gbcount")
rs.close
if gbcount/n = int(gbcount/n) then '計(jì)算出分頁數(shù)
y=int(gbcount/n)
else
y=int(gbcount/n)+1
end if
page2= int(page/x)
if page/x>page2 then page2=page2+1
k=page2*x
if k>y then k=y
'打開留言字段'
if page=1 then
sql="select top "&n&" id,name,sex,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
else
sql="select id,name,sex,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
end if
if Page >100 then
rs.Open sql,Conn,1
else
Set Rs=Conn.Execute(sql)
end if
if Page>1 then RS.Move n*page-n
%>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="100%" height="20" >有<%=gbcount %>條留言 <%=page %>/<%=y %>頁 分頁 <a href="?page=1"><<</a>
<% if page2>1 then %>
<a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<% Next %>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
<a href="?page=<%=y %>">>></a>
</td>
</tr>
</table>
<% if rs.bof and rs.eof then Response.Write "當(dāng)前沒有留言記錄" %>
<%
dim lou,words,reply,email,qq,web,come
if Request.QueryString("page")<2 then
lou=gbcount
else
lou=gbcount-((Request.QueryString("page")-1)*n)
end if
i=0
do while not rs.eof and i<n
i=i+1
reply=""
words=""
words=rs("words")
reply=rs("reply")
%>
<TABLE width=600 height=51 border=0 align=center cellPadding=0 cellSpacing=1 style="border-collapse:collapse" >
<TBODY>
<TR >
<TD colSpan=2 height=25><table width="100%" height="31" border="0" background="Images/xbqq_skin/gbdaohang.gif" class="unnamed1">
<tr>
<td height="21"> 主題:<b><%=rs("title")%></b></td>
<td>
<div align="right">
<% if len(trim(rs("web")))>8 then %>
<a href="<%=rs("web")%>" target="_blank"><img src="<%=imdeximg%>homepage.gif" alt="<%=rs("web")%>" width=16 height=16 border="0"></a>
<% end if %>
<% if len(trim(rs("email")))>6 then %>
<a href="mailto:<%=rs("email")%>"><img src="<%=imdeximg%>email.gif" alt="<%=rs("email")%>" width="16" height="16" border="0"></a>
<% end if %>
<% if len(trim(rs("qq")))>3 then %>
<img src="<%=imdeximg%>oicq.gif" alt="<%=Rs("qq")%>" width="16" height="16" border="0">
<% end if %>
<% if len(trim(Rs("come")))>1 then %>
<img src="<%=imdeximg%>come.gif" alt="來自:<%=Rs("come")%>" width="16" height="16">
<% end if %>
<img src="<%=imdeximg%>ip.gif" alt="IP:<%=Rs("ip")%>" width="16" height="16" align=absMiddle><font color="#666666"><a href="<%=indexfilename%>?action=Edit&id=<%=Rs("id")%>">
<img src="<%=imdeximg%>reply.gif" alt="編輯回復(fù)" width="16" height="16" border="0"></a>
<a href="<%=indexfilename%>?action=Delete&id=<%=Rs("id")%>" onClick="return confirm('確定要刪除嗎？\n\n該操作不可恢復(fù)！')">
<img src="<%=imdeximg%>del.gif" alt="刪除留言" width="15" height="15" border="0"></a></font>
</div></td>
<td width="14%"> 第 <font color="#ff0000"><%=lou %></font> 條留言</td>
</tr>
</table> </TD>
</TR>
<TR>
<TD width="111" height="21" align=middle valign="top">
<table width="100%" border="0" align="center">
<tr>
<td width="118"align="center">
<%if rs("sex")=1 then %>
<img src="<%=imdeximg%>male.gif">
<% else %>
<img src="<%=imdeximg%>female.gif">
<% end if %>
<br>
留言：<%=rs("name")%>
</td>
</tr>
</table></TD>
<TD width="446" height="21" style="word-break:break-all">
<table width="96%" height="132" border="0" align="center">
<tr>
<td width="100%" height="70" style="word-break:break-all">
<br>
<% if webyn=1 and rs("view")=1 then %>
<%=Ubb(unHtml(words))%>
<% if len(trim(reply))>1 then%>
<hr size="1">
<span class="style1">斑竹回復(fù):</span><br>
<font color="#990000"> <%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn<>1 then %>
<%=Ubb(unHtml(words))%>
<% if len(trim(reply))>1 then%>
<hr size="1">
<span class="style1">斑竹回復(fù):</span><br>
<font color="#990000"><%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn=1 and rs("view")=0 then%>
<font color="#FF0000">此留言還未經(jīng)過處理</font>
<%end if %>
</td>
</tr>
<tr>
<td height="22" align="right" style="word-break:break-all">發(fā)表于:<%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<%
lou=lou-1
rs.movenext
loop
Rs.Close
Set Rs = Nothing
%>
<table width="600" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td width="100%" height="20" align="right" class="unnamed1"><hr>有<%=gbcount %>條留言 <%=page %>/<%=y %>頁 分頁 <a href="?page=1"><<</a>
<% if page2>1 then %>
<a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<% Next %>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
<a href="?page=<%=y %>">>></a>
</td>
</tr>
</table>
<% End Sub %>
<%
Sub Edit()
Sql="Select * From words Where id="&Request.QueryString("id")
set rs=conn.execute(sql)
view2=""
if rs("view")=1 then
view2="checked"
end if
%>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center" bgcolor="#EAEAEA"> 編輯留言內(nèi)容及回復(fù)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">留言者：</td>
<td>網(wǎng)名:<font color="#ff0000"><%=Rs("name")%></font> 性別: <font color="#ff0000">
<%if Rs("sex")=1 then Response.Write "男" else Response.Write "女" end if%>
</font> 來自:<font color="#ff0000"><%=Rs("come")%></font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top"> </td>
<td>時間:<font color="#ff0000"><%=Rs("date")%></font> ip:<font color="#ff0000"><%=Rs("ip")%></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top">郵箱：</td>
<td> <b><%=Rs("email")%></b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="78" align="right" valign="top"> 留言內(nèi)容：<br> <br> <input name="replyedit" id="replyedit" type="checkbox" value="1" style="border:0px">
<font color="#FF0000">修改</font> </td>
<td width="433"> <textarea name="reply" cols="60" rows="8" class="input1" id="reply"><%=Rs("words")%></textarea>
</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="26" align="right"> </td>
<td align="left"> <% call ubb_jd100() %></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td align="right">回復(fù)：</td>
<td align="left"> <textarea name="words" cols="60" rows="8" class="input1" id="words"><%=Rs("reply")%></textarea>
<% if webyn=1 then%>
<input name="view" type="checkbox" id="view" value="1" <%=view2%>>
通過審批
<% end if %></td>
</tr>
<tr align="center">
<td colspan="2" bgcolor="#EAEAEA"> <input type="hidden" name="action_e" value="Edit">
<input type="hidden" name="id" value="<%=Request.QueryString("id")%>">
<input type="submit" name="Submit" value="修 改" id="Submit" class="input1">
<input type="reset" name="reset" value="取 消" id="Submit2" class="input1">
<input type="button" name="back" value="返 回" onclick=location.href='<%=indexfilename%>?action=View_Words'></td>
</tr>
</form>
</table>
<%
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -