cls_manager_db.asp

改进及新特性: 1、调整模版编辑时的流程及提示语言 2、新增sitemaps生成功能 3、优化评论页面的显示格式 BUG修正: 1、getarticlelist标签对于现有参数提示错误

<%
'====================================================================
'= Team Elite - Elite Article System
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
'= 文件名称：/Manager/Comm/cls_Manager_DB.asp
'= 摘    要：管理-数据库操作类文件
'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-07-24
'====================================================================

Class Cls_Manager_DBOperation
	Private Rs
	Private SQL

	Public TrueValue
	Public ExecuteTotal,QueryTotal
	
	Private Sub Class_Initialize()
		Set Rs=Server.CreateObject("adodb.recordSet")
		ExecuteTotal=0
		QueryTotal=0

		Select Case iDataBaseType
		Case 0
			TrueValue="-1"
		Case 1,2
			TrueValue="1"
		End Select
	End Sub

	Public Sub Close_DB()
		Set Rs=Nothing
	End Sub

	Public Sub Set_Master_LoginLog(sLogin_Key,sCome_Ip,iLogin_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_UpDate_Manager_LoginLog '"&sLogin_Key&"','"&sCome_Ip&"',"&iLogin_Id
		Case 1
			SQL="UPDATE NB_Master SET Cookiess = '"&sLogin_Key&"', LasTime = GetDate(), LastIp = '"&sCome_Ip&"'"
			SQL=SQL&" WHERE Master_Id="&iLogin_Id
		Case 2
			SQL="Exec sp_EliteArticle_Master_LoginLog_UpDate"
			SQL=SQL&" @Login_Key="&sLogin_Key
			SQL=SQL&",@Login_Ip='"&sCome_Ip&"'"
			SQL=SQL&",@Login_Id="&iLogin_Id
		End Select
		
		DB_Execute SQL
	End Sub

	Public Sub Set_Master_LoginKey(iMaster_Key,iMaster_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_UpDate_Manager_LoginKey '"&iMaster_Key&"',"&iMaster_Id
		Case 1
			SQL="UPDATE NB_Master SET Cookiess = "&iMaster_Key
			SQL=SQL&" WHERE Master_Id="&iMaster_Id
		Case 2
			SQL="Exec sp_EliteArticle_Master_LoginKey_UpDate"
			SQL=SQL&" @Master_Key="&iMaster_Key
			SQL=SQL&",@Master_Id="&iMaster_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_Master_ChkLogin(iMaster_Id,iMaster_Key)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_ChkLogin "&iMaster_Id&",'"&iMaster_Key&"'"
		Case 1
			SQL="SELECT Setting, Column_Setting"
			SQL=SQL&" FROM NB_Master"
			SQL=SQL&" WHERE Master_Id="&iMaster_Id&" And Cookiess="&iMaster_Key&" And State=1"
		Case 2
			SQL="Exec sp_EliteArticle_Master_ChkLogin_Select"
			SQL=SQL&" @Master_Id="&iMaster_Id
			SQL=SQL&",@Master_Key="&iMaster_Key
		End Select
		
		Get_Master_ChkLogin=DB_Query(SQL)
	End Function

	Public Function Get_Master_Login(sLogin_Name)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_Login '"&sLogin_Name&"'"
		Case 1
			SQL="SELECT Master_Password, Master_Id, State"
			SQL=SQL&" FROM NB_Master"
			SQL=SQL&" WHERE Master_Name='"&sLogin_Name&"'"
		Case 2
			SQL="Exec sp_EliteArticle_Master_Login_Select"
			SQL=SQL&" @Master_Name='"&sLogin_Name&"'"
		End Select
		
		Get_Master_Login=DB_Query(SQL)
	End Function
	
	Public Sub Set_Vote_State(iValue,iVote_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_UpDate_Manager_Vote_State "&iValue&","&iVote_Id
		Case 1
			SQL="UPDATE NB_Vote SET Lock = "&iValue
			SQL=SQL&" WHERE Id="&iVote_Id
		Case 2
			SQL="Exec sp_EliteArticle_Vote_State_Manager_UpDate"
			SQL=SQL&" @State="&iValue
			SQL=SQL&",@Vote_Id="&iVote_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Sub Set_Vote_Delete(iVote_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_Vote "&iVote_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_Vote"
			SQL=SQL&" WHERE Id="&iVote_Id
		Case 2
			SQL="Exec sp_EliteArticle_Vote_Delete"
			SQL=SQL&" @Vote_Id="&iVote_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_Vote_List(iPageNum,iPageSize)
		Dim Temp
		
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_VoteList"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 1
			SQL="SELECT Id, Title, VoteTotal, Case Type When 0 Then '单选' Else '多选' End, Case Lock When 0 Then '正常' Else '关闭' End, Lock"
			SQL=SQL&" FROM NB_Vote"
			SQL=SQL&" ORDER BY Id DESC"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 2
			SQL="Exec sp_EliteArticle_Vote_List_Manager_Select"
			SQL=SQL&" @List_PageNum="&iPageNum
			SQL=SQL&",@List_PageSize="&iPageSize
			Temp=DB_Query(SQL)
		End Select
		
		Get_Vote_List=Temp
	End Function
	
	Public Function Get_Vote_Stat()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_VoteStat"
		Case 1
			SQL="SELECT Count([ID])"
			SQL=SQL&" FROM NB_Vote"
		Case 2
			SQL="Exec sp_EliteArticle_Vote_Stat_Manager_Select"
		End Select
		
		Get_Vote_Stat=DB_Query(SQL)
	End Function
	
	Public Function Get_Group_ChanngeMemberGroup(iDest_Id,iSour_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_UpDate_Manager_ChanngeGroupByMemberId "&iDest_Id&","&iSour_Id
		Case 1
			SQL="UPDATE NB_User SET User_Group = "&iDest_Id
			SQL=SQL&" WHERE [ID]="&iSour_Id
		Case 2
			SQL="Exec sp_EliteArticle_UserGroup_ChanngeMemberGroup_Manager_UpDate"
			SQL=SQL&" @Dest_Id="&iDest_Id
			SQL=SQL&",@Sour_Id="&iSour_Id
		End Select
		
		DB_Execute SQL
	End Function
	
	Public Function Get_Group_ForMemberList(iGroup_Id,iPageNum,iPageSize)
		Dim Temp
		
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_GroupMemberList "&iGroup_Id
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 1
			SQL="SELECT Reg_Name, Email, RegTime, Case State When 0 Then '等待审核' Else '正常' End, Id"
			SQL=SQL&" FROM NB_User"
			SQL=SQL&" WHERE User_Group="&iGroup_Id
			SQL=SQL&" ORDER BY State DESC"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 2
			SQL="Exec sp_EliteArticle_UserGroup_MemberList_Manager_Select"
			SQL=SQL&" @Group_Id="&iGroup_Id
			SQL=SQL&",@List_PageNum="&iPageNum
			SQL=SQL&",@List_PageSize="&iPageSize
			Temp=DB_Query(SQL)
		End Select
		
		Get_Group_ForMemberList=Temp
	End Function
	
	Public Function Get_Group_ForMemberTotal(iGroup_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_GroupMemberTotal "&iGroup_Id
		Case 1
			SQL="SELECT Count([ID])"
			SQL=SQL&" FROM NB_User"
			SQL=SQL&" WHERE User_Group="&iGroup_Id
		Case 2
			SQL="Exec sp_EliteArticle_UserGroup_MemberTotal_Manager_Select"
			SQL=SQL&" @Group_Id="&iGroup_Id
		End Select
		
		Get_Group_ForMemberTotal=DB_Query(SQL)
	End Function
	
	Public Sub Set_Group_Delete(iGroup_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_Group "&iGroup_Id
			DB_Execute SQL
			
			SQL="Exec vi_UpDate_Manager_ChanngeGroupByGroupId 1,"&iGroup_Id
			DB_Execute SQL
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_UserGroup"
			SQL=SQL&" WHERE Id="&iGroup_Id
			DB_Execute SQL
			
			SQL="UPDATE NB_User SET User_Group = 1"
			SQL=SQL&" WHERE User_Group="&iGroup_Id
			DB_Execute SQL
		Case 2
			SQL="Exec sp_EliteArticle_UserGroup_Delete"
			SQL=SQL&" @Group_Id="&iGroup_Id
		End Select
	End Sub
	
	Public Function Get_Group_List()
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_GroupList"
		Case 1
			SQL="SELECT Id, GroupName, UserTotal"
			SQL=SQL&" FROM NB_UserGroup"
		Case 2
			SQL="Exec sp_EliteArticle_UserGroup_List_Manager_Select"
		End Select
		
		Get_Group_List=DB_Query(SQL)
	End Function
	
	Public Sub Set_Template_Delete(iTemplate_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_Template "&iTemplate_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_Template"
			SQL=SQL&" WHERE Id="&iTemplate_Id
		Case 2
			SQL="Exec sp_EliteArticle_Template_Delete"
			SQL=SQL&" @Template_Id="&iTemplate_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Sub Set_DefaultTemplate(iTemplate_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_UpDate_Manager_FormatTemplateDefautlState"
			DB_Execute SQL
			
			SQL="Exec vi_UpDate_Manager_SetDefaultTemplate "&iTemplate_Id
			DB_Execute SQL
		Case 1
			SQL="UPDATE NB_Template SET isDefault = 0"
			DB_Execute SQL
			
			SQL="UPDATE NB_Template SET isDefault = 1"
			SQL=SQL&" WHERE Id="&iTemplate_Id
			DB_Execute SQL
		Case 2
			SQL="Exec sp_EliteArticle_Template_SetDefault_UpDate"
			SQL=SQL&" @Template_Id="&iTemplate_Id

			DB_Execute SQL
		End Select
	End Sub
	
	Public Function Set_Template_Clone(iTemplate_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Insert_Manager_CloneTemplate "&iTemplate_Id
		Case 1
			SQL="INSERT INTO NB_Template ( Temp_Name, Page_Css, Page_Head, Page_Foot, Page_Index, Page_List, Page_View, Page_Search, Page_Error, Page_Success, Page_MemberList, Page_ImgList )"
			SQL=SQL&" SELECT '复制'+Temp_Name, Page_Css, Page_Head, Page_Foot, Page_Index, Page_List, Page_View, Page_Search, Page_Error, Page_Success, Page_MemberList, Page_ImgList"
			SQL=SQL&" FROM NB_Template"
			SQL=SQL&" WHERE Id="&iTemplate_Id
		Case 2
			SQL="Exec sp_EliteArticle_Template_Clone_Insert"
			SQL=SQL&" @Template_Id="&iTemplate_Id
		End Select
		
		DB_Execute SQL
	End Function
	
	Public Function Get_Template_Info(iTemplate_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_TemplateInfo "&iTemplate_Id
		Case 1
			SQL="SELECT Id, Temp_Name, Page_Css, Page_Head, Page_Foot, Page_Index, Page_List, Page_View, Page_Search, Page_MemberList, Page_ImgList, Page_Error, Page_Success, IsDefault"
			SQL=SQL&" FROM NB_Template"
			SQL=SQL&" WHERE Id="&iTemplate_Id
		Case 2
			SQL="Exec sp_EliteArticle_Template_Info_Manager_Select"
			SQL=SQL&" @Template_Id="&iTemplate_Id
		End Select
		
		Get_Template_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_Template_List()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_TemplateList"
		Case 1
			SQL="SELECT Id, Temp_Name, IsDefault"
			SQL=SQL&" FROM NB_Template"
		Case 2
			SQL="Exec sp_EliteArticle_Template_List_Manager_Select"
		End Select
		
		Get_Template_List=DB_Query(SQL)
	End Function
	
	Public Sub Set_Review_Pass(iValue,iReview_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_UpDate_Manager_ReviewPassStat "&iValue&","&iReview_Id
		Case 1
			SQL="UPDATE NB_Review SET IsPass = "&iValue
			SQL=SQL&" WHERE Id="&iReview_Id
		Case 2
			SQL="Exec sp_EliteArticle_Review_PassState_UpDate"
			SQL=SQL&" @Value="&iValue
			SQL=SQL&",@Review_Id="&iReview_Id
		End Select
		
		DB_Execute SQL
		
		EA_DBO.Set_System_ReviewTotal 1
	End Sub
	
	Public Sub Set_Review_Delete(iReview_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_Review "&iReview_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_Review"
			SQL=SQL&" WHERE Id="&iReview_Id
		Case 2
			SQL="Exec sp_EliteArticle_Review_Delete"
			SQL=SQL&" @Review_Id="&iReview_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_Review_Info(iReview_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_ReviewInfo "&iReview_Id
		Case 1
			SQL="SELECT Id, Content"
			SQL=SQL&" FROM NB_Review"
			SQL=SQL&" WHERE Id="&iReview_Id
		Case 2
			SQL="Exec sp_EliteArticle_Review_Info_Manager_Select"
			SQL=SQL&" @Review_Id="&iReview_Id
		End Select
		
		Get_Review_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_Placard_List(iPageNum,iPageSize)
		Dim Temp
		
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_PlacardList"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 1
			SQL="SELECT Id, Title, AddTime, OverTime"
			SQL=SQL&" FROM NB_Placard"
			SQL=SQL&" ORDER BY OverTime DESC"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 2
			SQL="Exec sp_EliteArticle_Placard_List_Select"
			SQL=SQL&" @List_PageNum="&iPageNum
			SQL=SQL&",@List_PageSize="&iPageSize
			Temp=DB_Query(SQL)
		End Select
		
		Get_Placard_List=Temp
	End Function
	
	Public Function Get_Placard_Total()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_PlacardStat"
		Case 1
			SQL="SELECT Count(Id)"
			SQL=SQL&" FROM NB_Placard"
		Case 2
			SQL="Exec sp_EliteArticle_Placard_Total_Select"
		End Select
		
		Get_Placard_Total=DB_Query(SQL)
	End Function
	
	Public Sub Set_Member_Delete(iMember_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_Member "&iMember_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_User"
			SQL=SQL&" WHERE Id="&iMember_Id
		Case 2
			SQL="Exec sp_EliteArticle_Member_Delete"
			SQL=SQL&" @Member_Id="&iMember_Id
		End Select
		
		DB_Execute SQL
		
		EA_DBO.Set_SystemUserTotal -1
	End Sub
	
	Public Function Get_Member_Info(iMember_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Member_Info "&iMember_Id
		Case 1
			SQL="SELECT Id, Reg_Name, Sex, Email, RegTime, Login, [UserName], BirtDay, User_Group, State, HomePage, QQ, ICQ, MSN, Comefrom, Reg_Pass, Cookies"
			SQL=SQL&" FROM NB_User"
			SQL=SQL&" WHERE Id="&iMember_Id
		Case 2
			SQL="Exec sp_EliteArticle_Member_Info_Select"
			SQL=SQL&" @Member_Id="&iMember_Id
		End Select
		
		Get_Member_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_Master_Info(iMasterId)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_MasterInfo "&iMasterId
		Case 1
			SQL="SELECT Master_Name, State, Setting, Column_Setting"
			SQL=SQL&" FROM NB_Master"
			SQL=SQL&" WHERE Master_Id="&iMasterId
		Case 2
			SQL="Exec sp_EliteArticle_Master_Info_Manager_Select"
			SQL=SQL&" @Master_Id="&iMasterId
		End Select
		
		Get_Master_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_Master_List()
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_MasterList"
		Case 1
			SQL="SELECT Master_Id, Master_Name, LasTime, LastIp, Case State When 1 Then '正常' Else '禁止' End"
			SQL=SQL&" FROM NB_Master"
			SQL=SQL&" ORDER BY Master_Id DESC"
		Case 2
			SQL="Exec sp_EliteArticle_Master_List_Manager_Select"
		End Select
		
		Get_Master_List=DB_Query(SQL)
	End Function
	
	Public Sub Set_Js_Delete(iJs_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_JsFile "&iJs_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_JsFile"
			SQL=SQL&" WHERE Id="&iJs_Id
		Case 2
			SQL="Exec sp_EliteArticle_JsFile_Delete"
			SQL=SQL&" @Js_Id="&iJs_Id
		End Select