cls_manager_db.asp

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

		
		DB_Execute SQL
	End Sub
	
	Public Function Get_Js_Info(iJsId)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_JsFileInfo "&iJsId
		Case 1
			SQL="SELECT Title, Info, FileName, Setting"
			SQL=SQL&" FROM NB_JsFile"
			SQL=SQL&" WHERE Id="&iJsId
		Case 2
			SQL="Exec sp_EliteArticle_JsFile_Info_Manager_Select"
			SQL=SQL&" @Js_Id="&iJsId
		End Select
		
		Get_Js_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_Js_List()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_JsFileList"
		Case 1
			SQL="SELECT Id, Title, Info, FileName"
			SQL=SQL&" FROM NB_JsFile"
		Case 2
			SQL="Exec sp_EliteArticle_JsFile_List_Manager_Select"
		End Select
		
		Get_Js_List=DB_Query(SQL)
	End Function
	
	Public Sub Set_IP_Delete(iIP_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_IP "&iIP_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_IP"
			SQL=SQL&" WHERE Id="&iIP_Id
		Case 2
			SQL="Exec sp_EliteArticle_IP_Delete"
			SQL=SQL&" @IP_Id="&iIP_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_IP_Info(iIP_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_IPInfo "&iIP_Id
		Case 1
			SQL="SELECT Id, Head_Ip, Foot_Ip, OverTime"
			SQL=SQL&" FROM NB_Ip"
			SQL=SQL&" WHERE Id="&iIP_Id
		Case 2
			SQL="Exec sp_EliteArticle_IP_Info_Manager_Select"
			SQL=SQL&" @IP_Id="&iIP_Id
		End Select
		
		Get_IP_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_IP_List(iPageNum,iPageSize)
		Dim Temp
		
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_IPList"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 1
			SQL="SELECT Id, Head_Ip, Foot_Ip, OverTime"
			SQL=SQL&" FROM NB_Ip"
			SQL=SQL&" ORDER BY Id DESC"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 2
			SQL="Exec sp_EliteArticle_IP_List_Manager_Select"
			SQL=SQL&" @List_PageNum="&iPageNum
			SQL=SQL&",@List_PageSize="&iPageSize
			Temp=DB_Query(SQL)
		End Select
		
		Get_IP_List=Temp
	End Function
	
	Public Function Get_Ip_Total()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_IPStat"
		Case 1
			SQL="SELECT Count(Id)"
			SQL=SQL&" FROM NB_IP"
		Case 2
			SQL="Exec sp_EliteArticle_InsideLink_Total_Manager_Select"
		End Select
		
		Get_Ip_Total=DB_Query(SQL)
	End Function
	
	Public Sub Set_InsideLink_Delete(iInsideLink_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_InsideLink "&iInsideLink_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_Link"
			SQL=SQL&" WHERE Id="&iInsideLink_Id
		Case 2
			SQL="Exec sp_EliteArticle_InsideLink_Delete"
			SQL=SQL&" @InsideLink_Id="&iInsideLink_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_InsideLink_Info(iInsideLink_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_InsideLinkInfo "&iInsideLink_Id
		Case 1
			SQL="SELECT Word, Link, ColumnId"
			SQL=SQL&" FROM NB_Link"
			SQL=SQL&" WHERE Id="&iInsideLink_Id
		Case 2
			SQL="Exec sp_EliteArticle_InsideLink_Info_Manager_Select"
			SQL=SQL&" @InsideLink_Id="&iInsideLink_Id
		End Select
		
		Get_InsideLink_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_InsideLink_List(iPageNum,iPageSize)
		Dim Temp
		
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_InsideLinkList"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 1
			SQL="SELECT l.Id, Word, Link, IsNull(c.Title,'全站')"
			SQL=SQL&" FROM NB_Link AS l LEFT JOIN NB_Column AS c ON l.ColumnId=c.Id"
			SQL=SQL&" ORDER BY l.Id DESC"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 2
			SQL="Exec sp_EliteArticle_InsideLink_List_Manager_Select"
			SQL=SQL&" @List_PageNum="&iPageNum
			SQL=SQL&",@List_PageSize="&iPageSize
			Temp=DB_Query(SQL)
		End Select
		
		Get_InsideLink_List=Temp
	End Function
	
	Public Function Get_InsideLink_Total()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_InsideLinkStat"
		Case 1
			SQL="SELECT Count(Id)"
			SQL=SQL&" FROM NB_Link"
		Case 2
			SQL="Exec sp_EliteArticle_InsideLink_Total_Manager_Select"
		End Select
		
		Get_InsideLink_Total=DB_Query(SQL)
	End Function
	
	Public Sub Set_Friend_Delete(iFriend_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_Friend "&iFriend_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_FriendLink"
			SQL=SQL&" WHERE Id="&iFriend_Id
		Case 2
			SQL="Exec sp_EliteArticle_FriendLink_Delete"
			SQL=SQL&" @FriendLink_Id="&iFriend_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_Friend_Info(iFriend_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_FriendInfo "&iFriend_Id
		Case 1
			SQL="SELECT LinkName, LinkURL, LinkImgPath, LinkInfo, ColumnId, OrderNum, State, Style"
			SQL=SQL&" FROM NB_FriendLink"
			SQL=SQL&" WHERE id="&iFriend_Id
		Case 2
			SQL="Exec sp_EliteArticle_FriendLink_Info_Select"
			SQL=SQL&" @FriendLink_Id="&iFriend_Id
		End Select
		
		Get_Friend_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_Friend_List(iPageNum,iPageSize)
		Dim Temp
		
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_FriendList"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 1,2
			SQL="SELECT a.Id, LinkName, LinkImgPath, LinkUrl, IsNull(b.Title,'首页'), a.OrderNum, Case a.State When 1 Then '审核通过' Else '审核不通过' End"
			SQL=SQL&" FROM NB_FriendLink AS a LEFT JOIN NB_Column AS b ON a.columnid=b.id"
			SQL=SQL&" ORDER BY ColumnId, OrderNum DESC"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		End Select
		
		Get_Friend_List=Temp
	End Function
	
	Public Function Get_Friend_Total()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_FriendStat"
		Case 1
			SQL="SELECT Count(Id)"
			SQL=SQL&" FROM NB_FriendLink"
		Case 2
			SQL="Exec sp_EliteArticle_FriendLink_Total_Select"
		End Select

		Get_Friend_Total=DB_Query(SQL)
	End Function
	
	Public Sub Set_Article_PassState(iStateValue,iArticleId)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_UpDate_Manager_ArticlePassState "&iStateValue&","&iArticleId
		Case 1
			SQL="UPDATE NB_Content SET IsPass = "&iStateValue
			SQL=SQL&" WHERE Id="&iArticleId
		Case 2
			SQL="Exec sp_EliteArticle_Article_PassState_Manager_UpDate"
			SQL=SQL&" @Value="&iStateValue
			SQL=SQL&",@Article_Id="&iArticleId
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Sub Set_Article_Resume(iArticle_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_UpDate_Manager_ResumeArticle "&iArticle_Id
		Case 1
			SQL="UPDATE NB_Content SET IsDel = 0"
			SQL=SQL&" WHERE Id="&iArticle_Id
		Case 2
			SQL="Exec sp_EliteArticle_Article_Resume_Manager_UpDate"
			SQL=SQL&" @Article_Id="&iArticle_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Sub Set_Column_Delete(iColumn_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Delete_Manager_Column "&iColumn_Id
		Case 1
			SQL="Delete"
			SQL=SQL&" FROM NB_Column"
			SQL=SQL&" WHERE Id="&iColumn_Id
		Case 2
			SQL="Exec sp_EliteArticle_Column_Delete"
			SQL=SQL&" @Column_Id="&iColumn_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_Column_ArticleTotal(iColumn_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_Column_ArticleTotal "&iColumn_Id
		Case 1
			SQL="SELECT Count(Id)"
			SQL=SQL&" FROM NB_Content"
			SQL=SQL&" WHERE ColumnId="&iColumn_Id
		Case 2
			SQL="Exec sp_EliteArticle_Column_ArticleTotal_Manager_Select"
			SQL=SQL&" @ColumnId"&iColumn_Id
		End Select
		
		Get_Column_ArticleTotal=DB_Query(SQL)
	End Function
	
	Public Sub Set_ArticleTemp_Del(iTemp_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_ArticleTemplate "&iTemp_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_ArticleTemplate"
			SQL=SQL&" WHERE Id="&iTemp_Id
		Case 2
			SQL="Exec sp_EliteArticle_ArticleTemp_Delete"
			SQL=SQL&" @Temp_Id="&iTemp_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_ArticleTemp_Info(iTemp_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_ArticleTempInfo "&iTemp_Id
		Case 1
			SQL="SELECT Title, Content"
			SQL=SQL&" FROM NB_ArticleTemplate"
			SQL=SQL&" WHERE Id="&iTemp_Id
		Case 2
			SQL="Exec sp_EliteArticle_ArticleTemp_Info_Manager_Select"
			SQL=SQL&" @Temp_Id="&iTemp_Id
		End Select
		
		Get_ArticleTemp_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_ArticleTemp_List(iPageNum,iPageSize)
		Dim Temp
		
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_ArticleTempList"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 1
			SQL="SELECT Id, Title"
			SQL=SQL&" FROM NB_ArticleTemplate"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 2
			SQL="Exec sp_EliteArticle_ArticleTemp_List_Manager_Select"
			SQL=SQL&" @List_PageNum="&iPageNum
			SQL=SQL&",@List_PageSize="&iPageSize
			Temp=DB_Query(SQL)
		End Select
		
		Get_ArticleTemp_List=Temp
	End Function
	
	Public Function Get_ArticleTemp_Total()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_ArticleTempStat"
		Case 1
			SQL="SELECT Count([Id])"
			SQL=SQL&" FROM NB_ArticleTemplate"
		Case 2
			SQL="Exec sp_EliteArticle_ArticleTemp_Total_Manager_Select"
		End Select
		
		Get_ArticleTemp_Total=DB_Query(SQL)
	End Function
	
	Public Sub Set_AdSense_Del(iAdSense_Id)
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Delete_Manager_AdSense "&iAdSense_Id
		Case 1
			SQL="DELETE"
			SQL=SQL&" FROM NB_AdSense"
			SQL=SQL&" WHERE [ID]="&iAdSense_Id
		Case 2
			SQL="Exec sp_EliteArticle_AdSense_Delete"
			SQL=SQL&" @AdSense_Id="&iAdSense_Id
		End Select
		
		DB_Execute SQL
	End Sub
	
	Public Function Get_AdSense_Info(iAdSense_Id)
		Select Case iDataBaseType
		Case 0
			Sql="Exec vi_Select_Manager_AdSenseInfo "&iAdSense_Id
		Case 1
			SQL="SELECT Title, Content"
			SQL=SQL&" FROM [NB_AdSense]"
			SQL=SQL&" WHERE [Id]="&iAdSense_Id
		Case 2
			SQL="Exec sp_EliteArticle_AdSense_Info_Select"
			SQL=SQL&" @AdSense_Id="&iAdSense_Id
		End Select
		
		Get_AdSense_Info=DB_Query(SQL)
	End Function
	
	Public Function Get_AdSense_List(iPageNum,iPageSize)
		Dim Temp
		
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_AdSenseList"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 1
			SQL="SELECT [Id], Title"
			SQL=SQL&" FROM NB_AdSense"
			Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
		Case 2
			SQL="Exec sp_EliteArticle_AdSense_List_Manager_Select"
			SQL=SQL&" @List_PageNum="&iPageNum
			SQL=SQL&",@List_PageSize="&iPageSize
			Temp=DB_Query(SQL)
		End Select
		
		Get_AdSense_List=Temp
	End Function
	
	Public Function Get_AdSense_Total()
		Select Case iDataBaseType
		Case 0
			SQL="Exec vi_Select_Manager_AdSenseStat"
		Case 1
			SQL="SELECT Count([Id])"
			SQL=SQL&" FROM NB_AdSense"
		Case 2
			SQL="Exec sp_EliteArticle_AdSense_Total_Manager_Select"
		End Select
		
		Get_AdSense_Total=DB_Query(SQL)
	End Function	
	
'*******************************************************************
	Public Function DB_Execute(sSQL)
		On Error Resume Next
		Err.Clear 
		
		Conn.Execute(sSQL)
		
		ExecuteTotal=ExecuteTotal+1
		
		If Err Then 
			If EA_Pub.SysInfo(25)="1" Then
				ErrMsg="在执行以下语句：<br>"
				ErrMsg=ErrMsg&"&nbsp;&nbsp;<font color=800000>"&sSQL&"</font><br>"
				ErrMsg=ErrMsg&"时，发生以下错误：<br>"
				ErrMsg=ErrMsg&"&nbsp;&nbsp;<font color=800000>"&Err.Description&"</font>"
			Else
				ErrMsg="查询数据的时候发现错误。系统已关闭"
			End If
			Call EA_Pub.ShowErrMsg(0,0)
		Else
			DB_Execute=0
		End If
	End Function
	
	Public Function DB_Query(sSQL)
		On Error Resume Next
		Err.Clear 

		Set Rs=Conn.Execute(sSQL)
		If Not Rs.EOF And Not Rs.BOF Then 
			DB_Query=Rs.GetRows()
		Else
			DB_Query=0
		End If
		Rs.Close 
		
		QueryTotal=QueryTotal+1
		
		If Err Then 
			If EA_Pub.SysInfo(25)="1" Then
				ErrMsg="在执行以下语句：<br>"
				ErrMsg=ErrMsg&"&nbsp;&nbsp;<font color=800000>"&sSQL&"</font><br>"
				ErrMsg=ErrMsg&"时，发生以下错误：<br>"
				ErrMsg=ErrMsg&"&nbsp;&nbsp;<font color=800000>"&Err.Description&"</font>"
			Else
				ErrMsg="查询数据的时候发现错误。系统已关闭"
			End If
			Call EA_Pub.ShowErrMsg(0,0)
		End If
	End Function
	
	Public Function DB_CutPageQuery(sSQL,iPageNum,iPageSize)
		On Error Resume Next
		Err.Clear 
		If Rs.State=1 Then Rs.Close

		Rs.Open sSQL,Conn,1,1
		If Not rs.Eof And Not rs.bof Then 
			Rs.AbsolutePosition=Rs.AbsolutePosition+((Abs(iPageNum)-1)*iPageSize)
			DB_CutPageQuery=Rs.GetRows(iPageSize)
		Else
			DB_CutPageQuery=0
		End If
		Rs.Close 
		
		QueryTotal=QueryTotal+1
		
		If Err Then 
			If EA_Pub.SysInfo(25)="1" Then
				ErrMsg="在执行以下语句：<br>"
				ErrMsg=ErrMsg&"&nbsp;&nbsp;<font color=800000>"&sSQL&"</font><br>"
				ErrMsg=ErrMsg&"时，发生以下错误：<br>"
				ErrMsg=ErrMsg&"&nbsp;&nbsp;<font color=800000>"&Err.Description&"</font>"
			Else
				ErrMsg="查询数据的时候发现错误。系统已关闭"
			End If
			Call EA_Pub.ShowErrMsg(0,0)
		End If
	End Function
'-------------------------------------------------------------------
End Class
%>