?? as_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_formBody()
Call Page_Spane(5)
Select Case Action
Case "Edit"
IF Request.form("Guest_AdminContent")="" THEN
Errorst="請輸入回復內容!"
founderr=true
End IF
IF founderr=true THEN
Call Form_Error()
Else
Dim EmailTo
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Guest Where Guest_Id=" & Id
Rs.open Sql,Conn,1,3
Rs("Guest_AdminContent")=Request.form("Guest_AdminContent")
Rs("Guest_AdminDate")=Now()
Rs("Guest_AdminAdd")=session("Loginuser")
Rs.update
Content_E=Request.form("ToEmailContent") & Request.form("Guest_AdminContent")
Title_E=Rs("Guest_Add") & "您好,您的留言已經回復了!"
Set Rs_c=server.createobject("adodb.recordset")
Sql="Select * From Tx_User Where User_Id=" & Rs("Guest_UserId")
Rs_c.open Sql,Conn,1,1
IF Rs_c.RecordCount<>0 THEN
IF Request.form("ToMess")=1 THEN
Call PageMessTo(session("Loginuser"),"" & Rs_c("User_Name") & "",1,"" & Title_E & "","" & Content_E & "")
End IF
End IF
Rs_c.Close
Set Rs_c=Nothing
IF Web_Const(61)=1 THEN
IF Rs("Guest_Email")<>"" THEN
IF Request.form("ToEmail")=1 THEN
Content_E=Content_E & "<BR><BR>" & Web_Const(68)
SendEmail Rs("Guest_Email"),Title_E,Content_E,Web_Const(62)
End IF
End IF
End IF
Rs.close
set Rs=nothing
ToHistory=VisitorsForm
saveok="留言已回復!"
Call Form_Saveok()
End IF
Case "Del"
Conn.Execute "Delete From Tx_Guest Where Guest_Id=" & Id
ToHistory="Aa_Guest.asp?Action=Manage"
saveok="刪除成功!"
Call Form_Saveok()
Case "Flag"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Guest where Guest_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Guest_Flag")=1 THEN
Rs("Guest_Flag")=0
saveok="已取消審核!"
Else
Rs("Guest_Flag")=1
saveok="已通過審核!"
End IF
Rs.update
Rs.close
set Rs=nothing
ToHistory=VisitorsForm
Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="請選擇要刪除的對象!"
founderr=true
End IF
IF founderr=true THEN
Call Form_Error()
Else
Conn.Execute "Delete From Tx_Guest Where Guest_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="刪除成功!"
Call Form_Saveok()
End IF
Case "Pass"
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Guest Where Guest_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Guest_Pass")=1 Then
Rs("Guest_Pass")=0
saveok="已取消保密!"
Else
Rs("Guest_Pass")=1
saveok="已設置保密!"
End IF
Rs.upDate
Rs.close
set Rs=nothing
ToHistory=VisitorsForm
Call Form_Saveok()
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="請選擇要審核的對象!"
founderr=true
End IF
IF founderr=true THEN
Call Form_Error()
Else
Conn.Execute "upDate Tx_Guest set Guest_Flag=1 Where Guest_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已通過審核!"
Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="請選擇要取消審核的對象!"
founderr=true
End IF
IF founderr=true THEN
Call Form_Error()
Else
Conn.Execute "upDate Tx_Guest set Guest_Flag=0 Where Guest_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已取消審核!"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -