📄 am_guest.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<%
Call Page_AdminFlag(13)
Call Page_formBody()
Call Page_Spane(5)
Dim UserGroup
Web_Class=split(Web_Const(27),",")
For intTemp=0 to ubound(Web_Class)
Page_HeadName=Page_HeadName & "<A HREF='Am_Guest.asp?Action=&xSelect=Classx&Selectkey=" & Web_Class(intTemp) & "'><FONT COLOR=b50000>" & Web_Class(intTemp) & "</FONT></A> | "
Next
Page_HeadName="<A HREF=Am_Guest.asp>全部</A> | " & Page_HeadName & "<A HREF=Am_Guest.asp?Action=&xSelect=GuestFlag>未审核留言</A> | <A HREF=Am_Guest.asp?Action=&xSelect=GuestPass>保密留言</A>"
Page_BootmName="留言列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Selectkey=replace(request.form("Selectkey"),"'","")
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Select Case xSelect
Case ""
Sql="Select * from Tx_Guest order by Guest_Date desc"
Case "TodayAdd"
Sql="Select * from Tx_Guest Where DateDiff('d',Guest_Date,Now())=0 order by Guest_Date desc"
Case "Classx"
Sql="Select * from Tx_Guest where Guest_Class='" & Selectkey & "' order by Guest_Date desc"
Case "GuestAdd"
Sql="Select * from Tx_Guest where Guest_Add='" & Selectkey & "' order by Guest_Date desc"
Case "GuestContent"
Sql="Select * from Tx_Guest where Guest_Content like '%" & Selectkey & "%' order by Guest_Date desc"
Case "GuestFlag"
Sql="Select * from Tx_Guest where Guest_Flag=0 order by Guest_Date desc"
Case "GuestPass"
Sql="Select * from Tx_Guest where Guest_Pass=1 order by Guest_Date desc"
End Select
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"
Rs_Manage.PageSize = 15
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
IF Rs_Manage("Guest_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消审核</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>通过审核</FONT>"
End IF
IF Rs_Manage("Guest_Pass")=1 THEN
TitlePass="<FONT COLOR=006600>取消保密</FONT>"
Else
TitlePass="<FONT COLOR=ff0000>设置保密</FONT>"
End IF
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_User where User_Id=" & Rs_Manage("Guest_UserId")
Rs.open Sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
Set Rs_c=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Groud where Groud_Id=" & Rs("User_Group")
Rs_c.open Sql,Conn,1,1
UserGroup=Rs_c("Groud_Name")
Rs_c.Close
Set Rs_c=Nothing
Else
UserGroup="未注册用户"
End IF
Rs.Close
Set Rs=Nothing
strIfa = strIfa & "<Form NAME=inbox method=post action='As_Guest.asp?Action=Delall'>"&_
"<TR CLASS=Table8>"&_
"<TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10>"&_
"<TR>"&_
"<TD WIDTH=20% CLASS=Table8 ALIGN=center valign=top><a NAME='" & Rs_Manage("Guest_Id") & "'></A><IMG SRC='" & Rs_Manage("Guest_Face") & "'><br><br>[" & UserGroup & "] <br><B>" & Rs_Manage("Guest_Add") & "</B></TD>"&_
"<TD WIDTH=55% valign=top><B><FONT COLOR=b50000>" & Rs_Manage("Guest_Class") & "</FONT>：" & Rs_Manage("Guest_Title") & "</B><br>" & Rs_Manage("Guest_Content") & "</TD>"&_
"<TD WIDTH=1 CLASS=Table6></TD>"&_
"<TD valign=top>联系电话：" & Rs_Manage("Guest_Tel") & "<br>电子邮件：" & Rs_Manage("Guest_Email") & "<br>留言时间：" & Rs_Manage("Guest_Date") & "<br>I P 地址：" & Rs_Manage("Guest_Ip") & "<br>来自地区：" & Rs_Manage("Guest_Ress") & "</TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"
IF Action="Edit" THEN
IF Rs_Manage("Guest_Id")=int(Id) THEN
strIfa = strIfa & "<TR>"&_
"<TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10>"&_
"<TR>"&_
"<TD><TEXTAREA NAME=Guest_AdminContent cols=60 rows=10 id=Guest_AdminContent>"
strIfa = strIfa & Rs_Manage("Guest_AdminContent")
strIfa = strIfa & "</TEXTAREA><input name=ToEmailContent type=hidden id=ToEmailContent value='" & replace(replace(replace(replace(Web_Const(71),"{Guest_Date}",YearDami(Rs_Manage("Guest_Date"))),"{Guest_Title}",Rs_Manage("Guest_Title")),"{Add_Name}",Rs_Manage("Guest_Add")),"{Web_Url}","<A HREF=" & Web_Const(1) & "/Guest.asp target=_blank>" & Web_Const(1) & "/Guest.asp</A>") & "' > "&_
"<INPUT TYPE=checkbox NAME=ToEmail VALUE='1' CLASS='radio_all' "
IF Rs_Manage("Guest_Email")="" or Web_Const(61)=0 THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & "> Email通知 <INPUT TYPE=checkbox NAME=ToMess VALUE='1' CLASS='radio_all' "
IF Rs_Manage("Guest_UserId")=0 THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & "> 短信通知 <INPUT TYPE=submit NAME=Edit CLASS='Submit_all' VALUE=回复留言 onClick=" & CHR(34) & "this.form.action='As_Guest.asp?Action=Edit&Id=" & Rs_Manage("Guest_Id") & "';this.form.submit()" & CHR(34) & "> "&_
" HTML支持</TD></TR>"&_
"</TABLE></TD>"&_
"</TR>"
End IF
End IF
IF Rs_Manage("Guest_AdminContent")<>"" THEN
IF Rs_Manage("Guest_Id")<>int(Id) THEN
strIfa = strIfa & "<TR>"&_
"<TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10>"&_
"<TR>"&_
"<TD><FONT COLOR=b50000>管理员" & Rs_Manage("Guest_AdminAdd") & "于" & Rs_Manage("Guest_AdminDate") & "回复：<br>" & Rs_Manage("Guest_AdminContent") & "</FONT></TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"
End IF
End IF
strIfa = strIfa & "<TR>"&_
"<TD HEIGHT=25 ALIGN=right CLASS=Table9>"&_
"<A HREF=Am_Guest.asp?Action=Edit&Id=" & Rs_Manage("Guest_Id") & "#" & Rs_Manage("Guest_Id") & ">回复留言</A> | "&_
"<A HREF=As_Guest.asp?Action=Flag&Id=" & Rs_Manage("Guest_Id") & ">" & TitleFlag & "</A> | "&_
"<A HREF=As_Guest.asp?Action=Pass&Id=" & Rs_Manage("Guest_Id") & ">" & TitlePass & "</A> | "&_
"<A HREF=As_Guest.asp?Action=Del&Id=" & Rs_Manage("Guest_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
"<INPUT TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("Guest_Id") & " CLASS='radio_all'> "&_
"</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=1 CLASS=Table10></TD>"&_
"</TR>"
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
"<TD HEIGHT=30 colspan=6 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox NAME=chkall VALUE=on CLASS='radio_all' onclick=CheckAll(this.form)>"&_
" 选择全部 "&_
"<INPUT TYPE=submit CLASS='Submit_all' NAME=Submit VALUE=' 删除 ' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> "&_
"<INPUT TYPE=submit CLASS='Submit_all' NAME=FlagOk VALUE=通过审核 onClick=" & CHR(34) & "this.form.action='As_Guest.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
"<INPUT TYPE=submit CLASS='Submit_all' NAME=FlagNo VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='As_Guest.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "> "&_
"</TD></TR>"&_
"</form>"&_
"<TR>"&_
"<TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
"<form NAME=Search method=post action='Am_Guest.asp'><TR>"&_
"<TD HEIGHT=35 colspan=6 ALIGN=center CLASS=Table8>查询留言：<INPUT NAME=Selectkey TYPE=text id=Selectkey> <select NAME=xSelect id=xSelect>"&_
"<OPTION VALUE='GuestAdd' selected>按留言人</OPTION><OPTION VALUE='GuestContent'>按留言内容</OPTION></select> <INPUT TYPE=submit NAME=SearchOk VALUE=' 查讯 ' CLASS='Submit_all'></TD></TR></form>"&_
"</TABLE>"
Call Page_aTable(0,1)
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -