📄 cls_dboperation.asp
字号:
End Function
Public Function Get_Article_List(iTop,iColumnId,iArticleType,iIsIncludeChildColumn)
SQL="SELECT TOP "&iTop&" [ID],COLUMNID,COLUMNNAME,TITLE,TCOLOR,AddDate,IsImg,IsTop,Img,Author,Summary"
SQL=SQL&" FROM [NB_Content]"
SQL=SQL&" WHERE ISDEL=0 AND ISPASS="&TrueValue
If iColumnId<>"0" Then
If iIsIncludeChildColumn="1" Then
SQL=SQL&" And ColumnCode Like (Select Code From [NB_Column] Where [Id]="&iColumnId&")+'%'"
Else
SQL=SQL&" And ColumnId="&iColumnId
End If
End If
Select Case iArticleType
Case "1"
SQL=SQL&" And IsTop="&TrueValue
Case "2"
SQL=SQL&" And IsDis="&TrueValue
Case "3"
SQL=SQL&" And IsImg="&TrueValue
End Select
If iArticleType="4" Then
SQL=SQL&" Order By ViewNum Desc,TrueTime Desc"
Else
SQL=SQL&" Order By TrueTime Desc"
End If
Get_Article_List=DB_Query(SQL)
End Function
Public Function Get_Article_Info(iArticleId,iIsUpData)
'0=ColumnId,1=ColumnCode,2=ColumnName,3=Title,4=Summary,5=Content,6=ViewNum,7=AuthorId,8=Author,9=CommentNum,10=IsOut
'11=OutUrl,12=[KeyWord],13=AddDate,14=CutArticle,15=Source,16=SourceUrl,17=TColor,18=Img,19=IsTop,20=IsPass
'21=IsDel,22=ListPower,23=IsHide,24=Article_TempId,25=TrueTime
Select Case iDataBaseType
Case 0
SQL="vi_Select_ArticleInfo "&iArticleId
Case 1
SQL="SELECT ColumnId, ColumnCode, ColumnName, a.Title, Summary, Content, a.ViewNum, AuthorId, Author, CommentNum, a.IsOut, a.OutUrl, [KeyWord], AddDate, CutArticle, Source, SourceUrl, TColor, Img, a.IsTop, IsPass, IsDel, b.ListPower, b.IsHide, b.Article_TempId,TrueTime"
SQL=SQL&" FROM NB_Content AS a INNER JOIN NB_Column AS b ON a.ColumnId=b.Id"
SQL=SQL&" WHERE a.Id="&iArticleId
Case 2
SQL="Exec sp_EliteArticle_Article_Info_Select"
SQL=SQL&" @Article_Id="&iArticleId
SQL=SQL&",@IsUpData="&iIsUpData
End Select
Get_Article_Info=DB_Query(SQL)
End Function
Public Function Get_Article_CorrList(sWSQL,iArticleId,iColumnId)
SQL="SELECT TOP 5 [ID],COLUMNID,COLUMNNAME,TITLE,TCOLOR,AddDate,IsImg,IsTop,Img,Author,Summary"
SQL=SQL&" FROM [NB_CONTENT]"
SQL=SQL&" WHERE ISPass="&TrueValue&" And ID<>"&iArticleId&" And ("&sWSQL&"1=0) And IsDel=0 AND COLUMNID="&iColumnId
Get_Article_CorrList=DB_Query(SQL)
End Function
Public Function Get_Article_FirstArticle(iColumnId,iTrueTime,iArticleId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_FirstArticle "&iColumnId&","&iTrueTime&","&iArticleId
Case 1
SQL="SELECT [Id], Title, TColor, AddDate"
SQL=SQL&" FROM NB_Content"
SQL=SQL&" WHERE ColumnId="&iColumnId&" And IsPass=1 And IsDel=0 And TrueTime>"&iTrueTime&" And [ID]<>"&iArticleId
SQL=SQL&" ORDER BY TrueTime"
Case 2
SQL="Exec sp_EliteArticle_Article_FirstArticle_Select"
SQL=SQL&" @Column_Id="&iColumnId
SQL=SQL&",@TrueTime="&iTrueTime
SQL=SQL&",@Article_Id="&iArticleId
End Select
Get_Article_FirstArticle=DB_Query(SQL)
End Function
Public Function Get_Article_NextArticle(iColumnId,iTrueTime,iArticleId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_NextArticle "&iColumnId&","&iTrueTime&","&iArticleId
Case 1
SQL="SELECT [Id], Title, TColor, AddDate"
SQL=SQL&" FROM NB_Content"
SQL=SQL&" WHERE ColumnId="&iColumnId&" And IsPass=1 And IsDel=0 And TrueTime<="&iTrueTime&" And [ID]<>"&iArticleId
SQL=SQL&" ORDER BY TrueTime DESC"
Case 2
SQL="Exec sp_EliteArticle_Article_NextArticle_Select"
SQL=SQL&" @Column_Id="&iColumnId
SQL=SQL&",@TrueTime="&iTrueTime
SQL=SQL&",@Article_Id="&iArticleId
End Select
Get_Article_NextArticle=DB_Query(SQL)
End Function
Public Sub Set_Article_ViewNum_UpDate(iArticleId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_ArticleViewNum "&iArticleId
Case 1
SQL="UPDATE NB_Content SET ViewNum = ViewNum+1"
SQL=SQL&" WHERE [Id]="&iArticleId
End Select
DB_Execute SQL
End Sub
Public Function Get_Article_ByColumnId(iColumnId,iPageNum,iPageSize)
Dim Temp
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_ArticleListById "&iColumnId
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 1
SQL="SELECT [Id], TColor, Title, AddDate, CommentNum, Summary, LastComment, ViewNum, IsImg, Img, IsTop"
SQL=SQL&" FROM NB_Content"
SQL=SQL&" WHERE ColumnId="&iColumnId&" And IsPass=1 And IsDel=0"
SQL=SQL&" ORDER BY TrueTime DESC"
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 2
SQL="Exec sp_EliteArticle_Article_ListById_Select"
SQL=SQL&" @ColumnId="&iColumnId
SQL=SQL&",@List_PageNum="&iPageNum
SQL=SQL&",@List_PageSize="&iPageSize
Temp=DB_Query(SQL)
End Select
Get_Article_ByColumnId=Temp
End Function
'-------------------------------------------------------------------
Public Function Get_Friend_List(iTop,iColumnId,iStyle)
SQL="SELECT Top "&iTop&" LINKNAME,LINKURL,LINKIMGPATH,LINKINFO"
SQL=SQL&" FROM [NB_FriendLink]"
SQL=SQL&" Where ColumnId="&iColumnId&" And Style="&iStyle&" And State="&TrueValue
SQL=SQL&" Order By OrderNum Desc,Id"
Get_Friend_List=DB_Query(SQL)
End Function
Public Function Get_FriendList_All()
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Friend_All"
Case 1
SQL="SELECT a.ColumnId, IsNull(b.Title,'首页'), LinkUrl, LinkInfo, LinkImgPath, LinkName, a.Style"
SQL=SQL&" FROM NB_FriendLink AS a LEFT JOIN NB_Column AS b ON a.ColumnId=b.Id"
SQL=SQL&" WHERE a.State=1"
SQL=SQL&" ORDER BY a.ColumnId, a.Style DESC , a.OrderNum DESC"
Case 2
SQL="Exec sp_EliteArticle_FriendLink_All_Select"
End Select
Get_FriendList_All=DB_Query(SQL)
End Function
Public Sub Set_FriendList_Insert(LinkName,LinkImg,LinkUrl,LinkInfo,ColumnId,Style,OrderNum,State)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Insert_AppFriend '"&LinkName&"','"&LinkImg&"','"&LinkUrl&"','"&LinkInfo&"',"&ColumnId&","&Style&","&OrderNum&","&State
Case 1
SQL="INSERT INTO NB_FriendLink ( LinkName, LinkImgPath, LinkUrl, LinkInfo, ColumnId, Style, OrderNum, State )"
SQL=SQL&" VALUES ('"&LinkName&"', '"&LinkImg&"', '"&LinkUrl&"', '"&LinkInfo&"', "&ColumnId&", "&Style&", "&OrderNum&", "&State&")"
Case 2
SQL="Exec sp_EliteArticle_FriendLink_Insert"
SQL=SQL&" @FriendLink_Name='"&LinkName&"'"
SQL=SQL&",@FriendLink_ImgPath='"&LinkImg&"'"
SQL=SQL&",@FriendLink_Url='"&LinkUrl&"'"
SQL=SQL&",@FriendLink_Info='"&LinkInfo&"'"
SQL=SQL&",@FriendLink_ColumnId="&ColumnId
SQL=SQL&",@FriendLink_Style="&Style
SQL=SQL&",@FriendLink_OrderNum="&OrderNum
SQL=SQL&",@FriendLink_State="&State
End Select
DB_Execute SQL
End Sub
'*******************************************************************
Public Function Get_Column_Info(iColumnId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_ColumnInfo "&iColumnId
Case 1
SQL="SELECT Title, Code, Info, CountNum, MangerNum, ViewNum, IsOut, OutUrl, StyleId, List_TempId, Article_TempId, Type, ListPower, IsHide, IsReview, IsPost, IsTop, PageSize"
SQL=SQL&" FROM NB_Column"
SQL=SQL&" WHERE [Id]="&iColumnId
Case 2
SQL="Exec sp_EliteArticle_Column_Info_Select"
SQL=SQL&" @ColumnId="&iColumnId
End Select
Get_Column_Info=DB_Query(SQL)
End Function
Public Function Get_Column_ChildList(sMainCode)
Dim Temp
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_ColumnChild '"&sMainCode&"'"
Case 1
Temp=Len(sMainCode)
SQL="SELECT [ID], Title, [CountNum], [ViewNum]"
SQL=SQL&" FROM NB_Column"
SQL=SQL&" WHERE Left(Code,"&Temp&")='"&sMainCode&"' And Len(Code)="&Temp&"+4 And CountNum>0"
Case 2
SQL="Exec sp_EliteArticle_Column_ChildList_Select"
SQL=SQL&" @Main_Code='"&sMainCode&"'"
End Select
Get_Column_ChildList=DB_Query(SQL)
End Function
Public Function Get_Column_Nav(sColumnCode)
Dim Temp
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_ColumnNav '"&sColumnCode&"'"
Case 1
Temp=Len(sColumnCode)
SQL="SELECT [Id], Code, Title, Info, [Type], CountNum"
SQL=SQL&" FROM NB_Column"
SQL=SQL&" WHERE (Left(Code,"&Temp&"-4)=Left('"&sColumnCode&"',"&Temp&"-4) And Len(Code)<="&Temp&") Or (Left(Code,"&Temp&")='"&sColumnCode&"' And Len(Code)="&Temp&"+4) Or Len(Code)=4"
SQL=SQL&" ORDER BY Code"
Case 2
SQL="Exec sp_EliteArticle_Column_NavWithChildColumn_Select"
SQL=SQL&" @Current_Code='"&sColumnCode&"'"
End Select
Get_Column_Nav=DB_Query(SQL)
End Function
Public Function Get_Column_List()
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_ColumnList"
Case 1
SQL="SELECT [Id], Title, Code, Info, CountNum, MangerNum, Case Type When 0 Then '' Else '[专题]' End, Case IsTop When 0 Then '' Else '[导航]' End"
SQL=SQL&" FROM NB_Column"
SQL=SQL&" ORDER BY Code"
Case 2
SQL="Exec sp_EliteArticle_Column_List_Select"
End Select
Get_Column_List=DB_Query(SQL)
End Function
'-------------------------------------------------------------------
'*******************************************************************
Public Function Get_FlorilegiumStat(s_AName,i_AId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_FlorilegiumStat "&i_AId&",'"&s_AName&"'"
Case 1
SQL="SELECT Count([Id])"
SQL=SQL&" FROM NB_Content"
SQL=SQL&" WHERE AuthorId="&i_AId&" And Author='"&s_AName&"' And IsPass=1 And IsDel=0"
Case 2
SQL="Exec sp_EliteArticle_Florilegium_Total_Select"
SQL=SQL&" @Florilegium_AuthorName='"&s_AName&"'"
SQL=SQL&",@Florilegium_AuthorId="&i_AId
End Select
Get_FlorilegiumStat=DB_Query(SQL)
End Function
Public Function Get_FlorilegiumStatList(s_AName,i_AId,iPageNum,iPageSize)
'0=[Id], 1=Title, 2=ColumnId, 3=ColumnName, 4=ViewNum, 5=CommentNum, 6=AddDate
Dim Temp
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_FlorilegiumList "&i_AId&",'"&s_AName&"'"
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 1
SQL="SELECT [Id], Title, ColumnId, ColumnName, ViewNum, CommentNum, AddDate"
SQL=SQL&" FROM NB_Content"
SQL=SQL&" WHERE AuthorId="&i_AId&" And Author='"&s_AName&"' And IsPass=1 And IsDel=0"
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 2
SQL="Exec sp_EliteArticle_Florilegium_List_Select"
SQL=SQL&" @Florilegium_AuthorName='"&s_AName&"'"
SQL=SQL&",@Florilegium_AuthorId="&i_AId
SQL=SQL&",@List_PageNum="&iPageNum
SQL=SQL&",@List_PageSize="&iPageSize
Temp=DB_Query(SQL)
End Select
Get_FlorilegiumStatList=Temp
End Function
'-------------------------------------------------------------------
'*******************************************************************
'placard
Public Function Get_PlacardTopList(iTop)
Select Case iDataBaseType
Case 0
SQL="SELECT Top "&iTop&" [Id], Title,AddTime FROM NB_Placard Where OverTime>=Now() ORDER BY Id DESC"
Case 1,2
SQL="SELECT Top "&iTop&" [Id], Title,AddTime FROM NB_Placard Where OverTime>=GetDate() ORDER BY Id DESC"
End Select
Get_PlacardTopList=DB_Query(SQL)
End Function
Public Function Get_PlacardInfo(iPlacardId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Manager_PlacardInfo "&iPlacardId
Case 1
SQL="SELECT Title, Content, OverTime, AddTime"
SQL=SQL&" FROM NB_Placard"
SQL=SQL&" WHERE Id="&iPlacardId
Case 2
SQL="Exec sp_EliteArticle_Placard_Info_Select"
SQL=SQL&" @Placard_Id="&iPlacardId
End Select
Get_PlacardInfo=DB_Query(SQL)
End Function
Public Function Get_PlacardStat()
Dim Temp
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_PlacardStat=DB_Query(SQL)
End Function
Public Function Get_PlacardList(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_PlacardList=Temp
End Function
'-------------------------------------------------------------------
Public Function Get_MemberTopPostList()
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_MemberTopPostList"
Case 1
SQL="SELECT TOP 10 [Id], Reg_Name, PostTotal"
SQL=SQL&" FROM NB_User"
SQL=SQL&" ORDER BY PostTotal DESC"
Case 2
SQL="Exec sp_EliteArticle_Member_PostList_Select"
End Select
Get_MemberTopPostList=DB_Query(SQL)
End Function
Public Function Get_Member_Total()
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_Total"
Case 1
SQL="SELECT Count(Id)"
SQL=SQL&" FROM NB_User"
Case 2
SQL="Exec sp_EliteArticle_Member_Total_Select"
End Select
Get_Member_Total=DB_Query(SQL)
End Function
Public Function Get_Member_List(sAction,sKeyword,iPageNum,iPageSize)
Dim OSQL,Temp,OType
Select Case LCase(Action)
Case "by_name"
OSQL=" Order By Reg_Name"
OType=1
Case "by_post"
OSQL=" Order By PostTotal Desc"
OType=2
Case "by_group"
OSQL=" Order By User_Group"
OType=3
Case "by_regtime"
OSQL=" Order By RegTime"
OType=4
Case Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -