📄 guest_manage.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Dim KSCls
Set KSCls = New Guest_Manage
KSCls.Execute()
Set KSCls = Nothing
Class Guest_Manage
Private KSCMS,GuestCheckTF
Private MaxPerPage, TotalPut , CurrentPage, TotalPage, i, j, Loopno
Private KeyWord, SearchType,SqlStr,RSObj,DomainStr
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Public Sub Execute()
GuestCheckTF=KSCMS.GetConfig("GuestCheckTF")
DomainStr=KSCMS.GetDomain
KeyWord = KSCMS.ReplaceBadChar(Trim(Request("keyword")))
SearchType = KSCMS.ReplaceBadChar(Trim(Request("SearchType")))
Call Content()
End Sub
Sub Content()
%>
<html>
<head>
<title>雁过留声</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../inc/admin_Style.css" type="text/css">
<script language="JavaScript">
<!--
function CheckSelect()
{
var count=0;
for(i=0;i<document.KS_GuestBook.elements.length;i++)
{
if(document.KS_GuestBook.elements[i].name=="GuestID")
{
if(document.KS_GuestBook.elements[i].checked==true)
{
count++;
}
}
}
if(count<=0)
{
alert("请选择一条要操作的信息！");
return false;
}
return true;
}
function cdel()
{
if(CheckSelect()==false)
{
return false;
}
if (confirm("你真的要删除这条留言记录吗？不可恢复！")){
document.KS_GuestBook.action.value = "del";
document.KS_GuestBook.submit();
}
}
function ccheck()
{
if(CheckSelect()==false)
{
return false;
}
if (confirm("你确定要审核这些信息吗？")){
document.KS_GuestBook.action.value = "check";
document.KS_GuestBook.submit();
}
}
function cuncheck()
{
if(CheckSelect()==false)
{
return false;
}
if (confirm("你确定要撤销这些信息吗？浏览者将看不到这些信息！")){
document.KS_GuestBook.action.value = "uncheck";
document.KS_GuestBook.submit();
}
}
function SelectCheckBox()
{
for(i=0;i<document.KS_GuestBook.elements.length;i++)
{
if(document.all("selectCheck").checked == true)
{
document.KS_GuestBook.elements[i].checked = true;
}
else
{
document.KS_GuestBook.elements[i].checked = false;
}
}
}
//-->
</script>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="TableBar">
<form action="Guest_Manage.asp" method="post" name="search" id="search">
<tr>
<td height="25">留言搜索 -->>> 关键词：
<input type="text" name="keyword" class="inputtext" size="35" value="<%=KeyWord%>" onMouseOver="this.focus()" onFocus="this.select()">
<select name="SearchType" size="1" class="inputlist">
<option value="content" <%If SearchType = "content" Then Response.Write "selected"%>>留言内容</option>
<option value="author" <%If SearchType = "author" Then Response.Write "selected"%>>留 言 者</option>
</select>
<input type="submit" name="imageField" value="搜索"></td>
</tr>
</form>
</table>
<form name="KS_GuestBook" action="Guest_DeleList.asp" method=post>
<input name="action" type="hidden" value="" id="action">
<%
Set RSObj=Server.CreateObject("ADODB.RECORDSET")
If SearchType = "content" Then
SqlStr = "SELECT * FROM KS_GuestBook WHERE Memo LIKE '%"& KeyWord &"%' OR Anser LIKE '%"& KeyWord &"%' ORDER BY ID DESC"
Else
SqlStr = "SELECT * FROM KS_GuestBook WHERE Name LIKE '%"& KeyWord &"%' ORDER BY ID DESC"
End If
RSObj.Open SqlStr,Conn,1,1
Dim Pmcount
Pmcount = 10
If KSCMS.ChkClng(Pmcount) < 1 Then Pmcount = 10
RSObj.Pagesize = Pmcount
TotalPut = RSObj.RecordCount '记录总数
TotalPage = RSObj.PageCount '得到总页数
MaxPerPage = RSObj.PageSize '设置每页数
CurrentPage = KSCMS.ChkClng(Request("Page"))
If CDbl(CurrentPage) < 1 Then CurrentPage = 1
If CDbl(CurrentPage) > CDbl(TotalPage) Then CurrentPage = TotalPage
If RSObj.Eof or RSObj.Bof Then
Response.Write "<font color=#FF0000>暂时还没有任何留言！</font>"
Else
RSObj.Absolutepage = CurrentPage '将指针移至指定页的第一条记录
Loopno = MaxPerPage
i = 0
Do While Not RSObj.Eof and Loopno > 0
%>
<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolordark="#FFFFFF" bordercolorlight="#DDDDDD" style="word-break:break-all;font-family: Arial, Helvetica, sans-serif;">
<tr>
<td width="25" rowspan="3" align="center" valign="middle"><input type="checkbox" name="GuestID" value="<%=Trim(RSObj("ID"))%>"></td>
<td width="100" align="center" bgcolor="#F5F5F5" rowspan="3" ><font face="Arial, Helvetica, sans-serif">第<font color="#FF0000"><%=((TotalPut)-(MaxPerPage)*(CurrentPage-1))-i%></font>条留言<br>
<img src="<%=DomainStr%>Skin/face/<%=RSObj("Face")%>"><br>
</font>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center"><font face="Arial, Helvetica, sans-serif"><%=RSObj("Name")%></font></td>
</tr>
</table></td>
<td height="25" valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="49%"><img src="<%=DomainStr%>GuestBook/images/post.gif" width="24" height="24" align="absmiddle">访客留言
<%
If GuestCheckTF = 1 Then
If RSObj("Verific") = 1 Then
Response.Write "<span class='red'>（已审核）</span>"
Else
Response.Write "<span class='red'>（未审核）</span>"
End If
End If
%> </td>
<td width="51%" align="right"><%If RSObj("HomePage") <> "" and RSObj("HomePage") <> "http://" Then%>
<a href="<%=RSObj("HomePage")%>" target="_blank"><img src="<%=DomainStr%>GuestBook/images/home.gif" width="16" height="16" border="0" align="absmiddle" alt="主页:[ <%=RSObj("HomePage")%> ]"></a>
<%Else%>
<a href="#"><img src="<%=DomainStr%>GuestBook/images/home-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="主页"></a>
<%End If%>
|
<%If RSObj("Email") <> "" Then%>
<a href="mailto:<%=RSObj("Email")%>" target="_blank"><img src="<%=DomainStr%>GuestBook/images/email.gif" width="18" height="18" border="0" align="absmiddle" alt="电子邮件:[ <%=RSObj("Email")%> ]"></a>
<%Else%>
<a href="#"><img src="<%=DomainStr%>GuestBook/images/email-gray.gif" width="18" height="18" border="0" align="absmiddle" alt="电子邮件"></a>
<%End If%>
|
<%If RSObj("Oicq") <> "" and RSObj("Oicq") <> "0" Then%>
<a href="#"><img src="<%=DomainStr%>GuestBook/images/qq.gif" width="16" height="16" border="0" align="absmiddle" alt="QQ号码:[ <%=RSObj("Oicq")%> ]"></a>
<%Else%>
<a href="#"><img src="<%=DomainStr%>GuestBook/images/qq-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="QQ号码"></a>
<%End If%>
|
<%If RSObj("GuestIP") <> "" Then%>
<a href="#"><img src="<%=DomainStr%>GuestBook/images/ip.gif" width="16" height="16" border="0" align="absmiddle" alt="来自：[ <%=RSObj("GuestIP")%> ]"></a>
<%Else%>
<a href="#"><img src="<%=DomainStr%>GuestBook/images/ip-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="来自："></a>
<%End If%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="45"><img src="<%=DomainStr%>Skin/Face1/<%=RSObj("TxtHead")%>" align="absmiddle"> <%=RSObj("Memo")%> </td>
</tr>
<tr>
<td height="20" align="right"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <img src="<%=DomainStr%>GuestBook/images/admin.gif" border="0" align="absmiddle" /> <a href="javascript:cdel('<%=RSObj("ID")%>','<%=CurrentPage%>')"></a> <a href="Guest_Reply.asp?Userid=<%=RSObj("ID")%>&cpage=<%=CurrentPage%>">（回复）</a></td>
<td align="right">发表时间：
<% = RSObj("AddTime") %>
</td>
</tr>
</table></td>
</tr>
<% If RSObj("Anser") <> "" Then%>
<tr>
<td> </td>
<td width="100" align="center" bgcolor="#F5F5F5" >斑竹回复：</td>
<td><img src="<%=DomainStr%>Skin/face1/<%=RSObj("AdminHead")%>" align="absmiddle"> <font color=red><%=RSObj("Anser")%></font><div align=right>回复时间： <%=RSObj("AnserTime")%></div></td>
</tr>
<%End If%>
</table>
<br>
<%
RSObj.MoveNext
Loopno = Loopno-1
i = i+1
Loop
End if
RSObj.Close
Set RSObj=Nothing
%>
</form>
<table border="1" width="100%" cellspacing="0" cellpadding="2" align="center" bgcolor="#F5F5F5" bordercolordark="#FFFFFF" bordercolorlight="#DDDDDD">
<tr>
<td width="25" align="center"><input type="checkbox" name='selectCheck' onClick="SelectCheckBox()"></td>
<td width="200">全部选中
<input name="delbtn" value="删除" type="button" class="inputbutton" onClick="cdel();">
<%If GuestCheckTF = 1 Then%>
<input name="delbtn" value="审核" type="button" class="inputbutton" onClick="ccheck();">
<input name="delbtn" value="撤销" type="button" class="inputbutton" onClick="cuncheck();">
<%End If%> </td>
<td align="center">
<%
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "", True, "条留言", CurrentPage, "keyword=" & KeyWord &"&SearchType=" & SearchType)
%>
</tr>
</table></td>
</tr>
</table>
<br>
<%
End Sub
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -