📄 cls_dboperation.asp
字号:
OSQL=" Order By a.Id Desc"
OType=0
End Select
Select Case iDataBaseType
Case 0
SQL="Select a.[ID],Reg_Name,IIF(Sex<>0,'男','女'),Email,QQ,b.GroupName,RegTime,HomePage,(Select Count([Id]) From [NB_Content] Where Author=a.Reg_Name And IsPass=-1 And AuthorId=a.[Id]) From [NB_User] a Left Join [NB_UserGroup] b On a.User_Group=b.[Id]"&OSQL
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 1
SQL="Select a.[ID],Reg_Name,Case When Sex<>0 Then '男' Else '女' End ,Email,QQ,b.GroupName,RegTime,HomePage,(Select Count([Id]) From [NB_Content] Where Author=a.Reg_Name And IsPass=1 And AuthorId=a.[Id]) From [NB_User] a Left Join [NB_UserGroup] b On a.User_Group=b.[Id]"&OSQL
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 2
SQL="Exec sp_EliteArticle_Member_List_Select"
SQL=SQL&" @OrderType="&OType
SQL=SQL&",@List_PageNum="&iPageNum
SQL=SQL&",@List_PageSize="&iPageSize
Temp=DB_Query(SQL)
End Select
Get_Member_List=Temp
End Function
Public Sub Set_MemberLoginKey(sIp,sKey,iMemberId)
Select Case iDataBaseType
Case 0
SQL="vi_UpDate_MemberLogin '"&sIp&"','"&sKey&"',"&iMemberId
Case 1
SQL="UPDATE NB_User SET Login = [Login]+1, LastIp = '"&sIp&"', LasTime = GetDate(), Cookies = '"&sKey&"'"
SQL=SQL&" WHERE [Id]="&iMemberId
Case 2
SQL="Exec sp_EliteArticle_Member_LoginKey_UpDate"
SQL=SQL&" @LoginIp='"&sIp&"'"
SQL=SQL&",@LoginKey='"&sKey&"'"
SQL=SQL&",@LoginId='"&iMemberId
End Select
DB_Execute SQL
End Sub
Public Function Get_MemberLogin(iAccountName)
Select Case iDataBaseType
Case 0
SQL="vi_Select_Chk_MemLogin '"&iAccountName&"'"
Case 1
SQL="SELECT Id, Reg_Pass, State, RegTime, User_Group"
SQL=SQL&" FROM NB_User"
SQL=SQL&" WHERE Reg_Name='"&iAccountName&"'"
Case 2
SQL="Exec sp_EliteArticle_Member_Login_Select"
SQL=SQL&" @Login_Account='"&iAccountName&"'"
End Select
Get_MemberLogin=DB_Query(SQL)
End Function
Public Function Get_MemberLoginInfo(iAccountId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_Info "&iAccountId
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="&iAccountId
Case 2
SQL="Exec sp_EliteArticle_Member_Info_Select"
SQL=SQL&" @Member_Id="&iAccountId
End Select
Get_MemberLoginInfo=DB_Query(SQL)
End Function
'*******************************************************************
'myappear list
Public Function Get_Member_AppearTotal(iAccountId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_AppearStat "&iAccountId
Case 1
SQL="SELECT Count(Id)"
SQL=SQL&" FROM NB_Content"
SQL=SQL&" WHERE AuthorId="&iAccountId
Case 2
SQL="Exec sp_EliteArticle_Member_AppearTotal_Select"
SQL=SQL&" @Member_Id="&iAccountId
End Select
Get_Member_AppearTotal=DB_Query(SQL)
End Function
Public Function Get_MemberAppearList(iAccountId,iPageNum,iPageSize)
Dim Temp
'0=articleid,1=TColor,2=Title,3=ColumnName,4=ViewNum,5=CommentNum,6=AddDate,7=IsPass,8=ColumnId
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_AppearList "&iAccountId
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 1
SQL="SELECT Id, TColor, Title, ColumnName, ViewNum, CommentNum, AddDate, IsPass, ColumnId"
SQL=SQL&" FROM NB_Content"
SQL=SQL&" WHERE AuthorId="&iAccountId&" And IsDel=0"
SQL=SQL&" ORDER BY TrueTime DESC"
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 2
SQL="Exec sp_EliteArticle_Member_AppearList_Select"
SQL=SQL&" @Member_Id="&iAccountId
SQL=SQL&",@List_PageNum="&iPageNum
SQL=SQL&",@List_PageSize="&iPageSize
Temp=DB_Query(SQL)
End Select
Get_MemberAppearList=Temp
End Function
Public Sub Del_MemberAppear(iAppearId,iAccountId,iColumnId,iIsPass)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Delete_Member_Appear "&iAppearId&","&iAccountId&","&iColumnId
DB_Execute(SQL)
If iIsPass=0 Then
Set_System_ManagerTopicTotal -1
Set_Column_ManagerTopicTotal iColumnId,-1
Else
Set_System_TopicTotal -1
Set_Column_TopicTotal iColumnId,-1
End If
Case 1
SQL="DELETE NB_Content WHERE [ID]="&iAppearId&" AND AuthorId="&iAccountId&" AND ColumnId="&iColumnId
DB_Execute(SQL)
Case 2
SQL="Exec sp_EliteArticle_Article_Delete"
SQL=SQL&" @Article_Id="&iAppearId
SQL=SQL&",@Author_Id="&iAccountId
DB_Execute(SQL)
End Select
End Sub
Public Function Set_Member_Info(iMemberId,vMemberInfo)
Dim Flag,Temp
Dim Rs
Set Rs=Server.CreateObject("adodb.recordSet")
Flag=0
Select Case iDataBaseType
Case 0
If Rs.State=1 Then Rs.Close
Sql="SELECT Reg_Pass,Email,[Sex],HomePage,QQ,ICQ,MSN,[UserName],Birtday,Comefrom FROM NB_User WHERE ID="&iMemberId
Rs.open Sql,conn,1,3
If Not rs.eof And Not Rs.Bof Then
If Rs("Reg_Pass")=vMemberInfo(0) Then
If Rs("Email")<>vMemberInfo(1) Then
If EA_Pub.SysInfo(8)="1" And Not EA_DBO.Get_MemberChkEMail(vMemberInfo(1),iMemberId) Then
Flag=1
Else
Rs("Email")=vMemberInfo(1)
End If
End If
If Flag=0 Then
Rs("Sex")=vMemberInfo(2)
Rs("HomePage")=vMemberInfo(3)
Rs("QQ")=vMemberInfo(4)
Rs("ICQ")=vMemberInfo(5)
Rs("MSN")=vMemberInfo(6)
Rs("UserName")=vMemberInfo(7)
Rs("Birtday")=vMemberInfo(8)
Rs("Comefrom")=vMemberInfo(9)
Rs.Update
Flag=0
End If
Else
Flag=-1
End If
Else
Flag=2
End If
Case 1
SQL="Select Reg_Pass,Email From NB_User Where [Id]="&iMemberId
Temp=DB_Query(SQL)
If IsArray(Temp) Then
If Temp(0,0)=vMemberInfo(0) Then
SQL="UpDate NB_User"
SQL=SQL&" Set Sex="&vMemberInfo(2)
SQL=SQL&",HomePage='"&vMemberInfo(3)&"'"
SQL=SQL&",QQ="&vMemberInfo(4)
SQL=SQL&",ICQ="&vMemberInfo(5)
SQL=SQL&",MSN='"&vMemberInfo(6)&"'"
SQL=SQL&",UserName='"&vMemberInfo(7)&"'"
SQL=SQL&",Birtday='"&vMemberInfo(8)&"'"
SQL=SQL&",Comefrom='"&vMemberInfo(9)&"'"
If Temp(1,0)<>vMemberInfo(1) Then
If EA_Pub.SysInfo(8)="1" And Not EA_DBO.Get_MemberChkEMail(vMemberInfo(1),iMemberId) Then
Flag=1
Else
SQL=SQL&",Email='"&vMemberInfo(1)&"'"
End If
End If
If Flag=0 Then
DB_Execute(SQL)
Flag=0
End If
Else
Flag=-1
End If
Else
Flag=2
End If
Case 2
If EA_Pub.SysInfo(8)="1" And Not EA_DBO.Get_MemberChkEMail(vMemberInfo(1),iMemberId) Then
Flag=1
Else
SQL="Exec sp_EliteArticle_Member_Info_UpDate"
SQL=SQL&" @MemberId="&iMemberId
SQL=SQL&",@RegPass='"&vMemberInfo(0)&"'"
SQL=SQL&",@Email='"&vMemberInfo(1)
SQL=SQL&",@Sex="&vMemberInfo(2)
SQL=SQL&",@HomePage='"&vMemberInfo(3)&"'"
SQL=SQL&",@QQ="&vMemberInfo(4)
SQL=SQL&",@ICQ="&vMemberInfo(5)
SQL=SQL&",@MSN='"&vMemberInfo(6)&"'"
SQL=SQL&",@UserName='"&vMemberInfo(7)&"'"
SQL=SQL&",@Birtday='"&vMemberInfo(8)&"'"
SQL=SQL&",@Comefrom='"&vMemberInfo(9)&"'"
Flag=DB_Query(SQL)(0,0)
End If
End Select
Set_Member_Info=Flag
End Function
Public Function Set_Member_SafetyInfo(iMemberId,vMemberInfo)
Dim Temp,Flag
Flag=0
Select Case iDataBaseType
Case 0
Temp=Get_MemberInfo(iMemberId)
If IsArray(Temp) Then
If Temp(15,0)=vMemberInfo(0) Then
SQL="Exec vi_UpDate_Member_SafeInfo '"&vMemberInfo(1)&"','"&vMemberInfo(2)&"','"&vMemberInfo(3)&"',"&iMemberId
DB_Execute SQL
Flag=0
Else
Flag=1
End If
Else
Flag=-1
End If
Case 1
SQL="Select [ID] From [NB_User] Where [Id]="&iMemberId&" And Reg_Pass='"&vMemberInfo(0)&"'"
Temp=DB_Query(SQL)
If IsArray(Temp) Then
SQL="UPDATE NB_User SET Reg_Pass = '"&vMemberInfo(1)&"', Question = '"&vMemberInfo(2)&"', Answer = '"&vMemberInfo(3)&"'"
SQL=SQL&" WHERE [Id]="&iMemberId
DB_Execute SQL
Flag=0
Else
Flag=1
End If
Case 2
SQL="Exec sp_EliteArticle_Member_SafetyInfo_UpDate"
SQL=SQL&" @Member_Id="&iMemberId
SQL=SQL&",@Old_Password='"&vMemberInfo(0)&"'"
SQL=SQL&",@New_Password='"&vMemberInfo(1)&"'"
SQL=SQL&",@Question='"&vMemberInfo(2)&"'"
SQL=SQL&",@Answer='"&vMemberInfo(3)&"'"
Flag=DB_Query(SQL)(0,0)
End Select
Set_Member_SafetyInfo=Flag
End Function
'-------------------------------------------------------------------
'*******************************************************************
'member channgeinfo
Public Function Get_MemberInfo(iAccountId)
'0=Id,1=Reg_Name,2=Sex,3=Email,4=RegTime,5=Login,6=UserName,7=BirtDay,8=User_Group,9=State,10=HomePage,11=QQ,12=ICQ,13=MSN,14=Comefrom,15=Password
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_Info "&iAccountId
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]="&iAccountId
Case 2
SQL="Exec sp_EliteArticle_Member_Info_Select"
SQL=SQL&" @Member_Id="&iAccountId
End Select
Get_MemberInfo=DB_Query(SQL)
End Function
'-------------------------------------------------------------------
'*******************************************************************
'getpass
Public Function Get_MemberQuestionByAccountId(iAccountId)
'0=id,1=question,2=answer
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_SafetyInfoById "&iAccountId
Case 1
SQL="SELECT Id, Question, Answer"
SQL=SQL&" FROM NB_User"
SQL=SQL&" WHERE Id="&iAccountId
Case 2
SQL="Exec sp_EliteArticle_Member_SafetyInfoById_Select"
SQL=SQL&" @MemberId="&iAccountId
End Select
Get_MemberQuestionByAccountId=DB_Query(SQL)
End Function
Public Function Get_MemberQuestionByAccountName(sAccountName)
'0=id,1=question,2=answer
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_SafetyInfoByName '"&sAccountName&"'"
Case 1
SQL="SELECT Id, Question, Answer"
SQL=SQL&" FROM NB_User"
SQL=SQL&" WHERE Reg_Name='"&sAccountName&"'"
Case 2
SQL="Exec sp_EliteArticle_Member_SafetyInfoByName_Select"
SQL=SQL&" @MemberName='"&sAccountName&"'"
End Select
Get_MemberQuestionByAccountName=DB_Query(SQL)
End Function
Public Function Set_MemberPasswordByAccountName(sAccountName,NewPassword)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_Member_Password '"&NewPassword&"','"&sAccountName&"'"
Case 1
SQL="UPDATE NB_User SET Reg_Pass = '"&NewPassword&"'"
SQL=SQL&" WHERE Reg_Name='"&sAccountName&"'"
Case 2
SQL="Exec sp_EliteArticle_Member_Password_UpDate"
SQL=SQL&" @New_Password='"&NewPassword&"'"
SQL=SQL&",@Member_Name='"&sAccountName&"'"
End Select
Set_MemberPasswordByAccountName=DB_Execute(SQL)
End Function
'-------------------------------------------------------------------
'*******************************************************************
'member_appear
Public Function Get_MemberDayPostTotal(iAccountId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_DayPostTotal "&iAccountId
Case 1
SQL="SELECT Count([Id])"
SQL=SQL&" FROM NB_Content"
SQL=SQL&" WHERE AuthorId="&iAccountId&" And DateDiff(d,GetDate(),AddDate)=0"
Case 2
SQL="Exec sp_EliteArticle_Member_DayPost_Select"
SQL=SQL&" @Member_Id="&iAccountId
End Select
Get_MemberDayPostTotal=DB_Query(SQL)
End Function
Public Function Get_MemberAppearColumnList()
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_AppearColumnList"
Case 1
SQL="SELECT [Id], Title, Code, Case Type When 0 Then '' Else '[专题]' End, Case IsTop When 0 Then '' Else '[导航]' End"
SQL=SQL&" FROM NB_Column"
SQL=SQL&" WHERE IsPost=1"
SQL=SQL&" ORDER BY Code"
Case 2
SQL="Exec sp_EliteArticle_Column_MemberAppearList_Select"
End Select
Get_MemberAppearColumnList=DB_Query(SQL)
End Function
Public Sub Set_MemberAppearTotal(iAccountId)
Dim Temp
Select Case iDataBaseType
Case 0
SQL="Select Count([Id]) From [NB_Content] Where AuthorId="&iAccountId&" And IsPass=-1 And IsDel=0"
Temp=DB_Query(SQL)
SQL="UpDate [NB_User] Set PostTotal="&Temp(0,0)&" Where [Id]="&iAccountId
DB_Execute SQL
Case 1
SQL="UpDate NB_User Set PostTotal=("
SQL=SQL&" Select Count([Id])"
SQL=SQL&" From [NB_Content]"
SQL=SQL&" Where AuthorId="&iAccountId&" And IsPass=1 And IsDel=0"
SQL=SQL&")"
SQL=SQL&" Where [Id]="&iAccountId
DB_Execute SQL
End Select
End Sub
'-------------------------------------------------------------------
'*******************************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -