as_guest.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

<%@language=vbscript codepage=936 %>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************

PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.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()
%>