📄 cls_dboperation.asp
字号:
'member_reg
Public Function Get_MemberChkEMail(sMailAddress,iMemberId)
Dim Temp,SQL
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_ChkMail '"&sMailAddress&"'"
Case 1
SQL="SELECT Id"
SQL=SQL&" FROM NB_User"
SQL=SQL&" WHERE Email='"&sMailAddress&"'"
Case 2
SQL="Exec sp_EliteArticle_Member_ChkMail_Select"
SQL=SQL&" @Member_Mail='"&sMailAddress&"'"
End Select
Temp=DB_Query(SQL)
If IsArray(Temp) Then
If iMemberId<>0 Then
If CLng(Temp(0,0))=CLng(iMemberId) Then
Get_MemberChkEMail=True
Else
Get_MemberChkEMail=False
End If
Else
Get_MemberChkEMail=False
End If
Else
Get_MemberChkEMail=True
End If
End Function
Public Function Set_RegistrationMember(vMemberInfo)
Dim ChkUser
Dim Sys_IsPass
Dim Flag
ChkUser=False
Sys_IsPass=EA_Pub.SysInfo(9)
Flag=0
If EA_Pub.SysInfo(8)="1" And Not Get_MemberChkEMail(vMemberInfo(2),0) Then Flag=-1
If Flag=0 Then
If Rs.State=1 Then Rs.Close
Sql="SELECT * FROM [NB_User] WHERE Reg_Name='"&vMemberInfo(0)&"'"
Rs.Open Sql,Conn,1,3
If Rs.RecordCount>1 Then
Flag=2
Else
Rs.AddNew
Rs("Reg_Name")=vMemberInfo(0)
Rs("Reg_Pass")=vMemberInfo(1)
Rs("Email")=vMemberInfo(2)
Rs("Question")=vMemberInfo(3)
Rs("Answer")=vMemberInfo(4)
Rs("sex")=vMemberInfo(5)
Rs("HomePage")=vMemberInfo(6)
Rs("QQ")=vMemberInfo(7)
Rs("ICQ")=vMemberInfo(8)
Rs("MSN")=vMemberInfo(9)
Rs("UserName")=vMemberInfo(10)
Rs("BirtDay")=vMemberInfo(11)
Rs("ComeFrom")=vMemberInfo(12)
Rs("RegIP")=vMemberInfo(13)
Rs("State")=Sys_IsPass
Rs("User_Group")=1
Rs("Cookies")=0
Rs.Update
If iDataBaseType<>2 Then Set_SystemUserTotal 1
End If
Rs.Close
If Sys_IsPass="0" Then
Flag=0
Else
Flag=1
End If
End If
Set_RegistrationMember=Flag
End Function
'*******************************************************************
Public Sub Set_Group_MemberTotal(iValue,iGroup_Id)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_Manager_GroupMemberTotal "&iValue&","&iGroup_Id
Case 1,2
SQL="UPDATE NB_UserGroup SET UserTotal = UserTotal+"&iValue
SQL=SQL&" WHERE Id="&iGroup_Id
End Select
DB_Execute SQL
End Sub
Public Sub Set_Article_ReviewStat(iValue,iArticleId)
Select Case iDataBaseType
Case 0
SQL="vi_UpDate_Article_ReviewTotal "&iValue&","&iArticleId
Case 1
SQL="UPDATE NB_Content SET CommentNum = CommentNum+"&iValue
SQL=SQL&" WHERE [Id]="&iValue
End Select
DB_Execute SQL
End Sub
Public Sub Set_Member_PostTotal(iMember_Id,iValue)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_UserStat "&iValue&","&iMember_Id
Case 1
SQL="UPDATE NB_User SET PostTotal = PostTotal+"&iValue
SQL=SQL&" WHERE [Id]="&iMember_Id
End Select
DB_Execute SQL
End Sub
Public Sub Set_Column_ManagerTopicTotal(iColumnId,iValue)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_Column_ManagerTopicTotal "&iValue&","&iColumnId
Case 1
SQL="UPDATE NB_System SET MangerNum = MangerNum+"&iValue&" Where Id="&iColumnId
Case 2
SQL="Exec sp_EliteArticle_Column_Stat_UpDate"
SQL=SQL&" @Action=2"
SQL=SQL&",@ColumnId="&iColumnId
SQL=SQL&",@Values="&iValue
End Select
DB_Execute SQL
End Sub
Public Sub Set_Column_TopicTotal(iColumnId,iValue)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_Column_TopicTotal "&iValue&","&iColumnId
Case 1
SQL="UPDATE NB_Column SET CountNum = CountNum+"&iValue&" Where Id="&iColumnId
Case 2
SQL="Exec sp_EliteArticle_Column_Stat_UpDate"
SQL=SQL&" @Action=1"
SQL=SQL&",@ColumnId="&iColumnId
SQL=SQL&",@Values="&iValue
End Select
DB_Execute SQL
End Sub
Public Sub Set_System_ManagerTopicTotal(iValue)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_System_MangerTopicTotal "&iValue
Case 1
SQL="UPDATE NB_System SET MangerTopicNum = MangerTopicNum+"&iValue
End Select
DB_Execute SQL
End Sub
Public Sub Set_System_TopicTotal(iValue)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_System_TopicTotal "&iValue
Case 1
SQL="UPDATE NB_System SET TopicNum = TopicNum+"&iValue
End Select
DB_Execute SQL
End Sub
Public Sub Set_System_ColumnTotal(iValue)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_System_ColumnTotal "&iValue
Case 1
SQL="UPDATE NB_System SET ColumnNum = ColumnNum+"&iValue
End Select
DB_Execute SQL
End Sub
Public Sub Set_System_ReviewTotal(iValue)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_System_ReviewTotal "&iValue
Case 1
SQL="UPDATE NB_System SET ReviewNum = ReviewNum+"&iValue
End Select
DB_Execute SQL
End Sub
Public Sub Set_SystemUserTotal(iValue)
Select Case iDataBaseType
Case 0
SQL="Exec vi_UpDate_System_UserTotal "&iValue
Case 1
SQL="UPDATE NB_System SET RegUser = RegUser+"&iValue
End Select
DB_Execute SQL
End Sub
'-------------------------------------------------------------------
'*******************************************************************
'member_fav
Public Function Set_AddFav(iArticleId,iAccountId)
Dim Temp,Flag
Select Case iDataBaseType
Case 0,1
Temp=Get_MemberFavTotalByAccountId(iAccountId)(0,0)
If CLng(Temp)<CLng(EA_Pub.Mem_GroupSetting(12)) Then
If Get_IsFavedByArticleId(iArticleId,iAccountId) Then
Flag=1
Else
If iDataBaseType=0 Then
SQL="Exec vi_Insert_AddFav "&iArticleId&","&iAccountId
Else
SQL="INSERT INTO NB_MyFavorites ( ArticleId, UserId )"
SQL=SQL&" VALUES ("&iArticleId&","&iAccountId&")"
End If
DB_Execute(SQL)
Flag=0
End If
Else
Flag=-1
End If
Case 2
SQL="Exec sp_EliteArticle_Fav_Insert"
SQL=SQL&" @Member_Id="&iAccountId
SQL=SQL&",@Article_Id="&iArticleId
SQL=SQL&",@Fav_Max="&EA_Pub.Mem_GroupSetting(12)
Flag=DB_Execute(SQL)(0,0)
End Select
Set_AddFav=Flag
End Function
Private Function Get_IsFavedByArticleId(iArticleId,iAccountId)
Dim Temp
Select Case iDataBaseType
Case 0
SQL="vi_Select_Member_IsFaved "&iArticleId&","&iAccountId
Case 1
SQL="SELECT [Id]"
SQL=SQL&" FROM NB_MyFavorites"
SQL=SQL&" WHERE ArticleId="&iArticleId&" And UserId="&iAccountId
End Select
Temp=DB_Query(SQL)
If IsArray(Temp) Then
Get_IsFavedByArticleId=True
Else
Get_IsFavedByArticleId=False
End If
End Function
Public Function Get_MemberFavTotalByAccountId(iAccountId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_FavStat "&iAccountId
Case 1
SQL="SELECT Count([Id])"
SQL=SQL&" FROM NB_MyFavorites"
SQL=SQL&" WHERE UserId="&iAccountId
Case 2
SQL="Exec sp_EliteArticle_Fav_Total_Select"
SQL=SQL&" @Member_Id="&iAccountId
End Select
Get_MemberFavTotalByAccountId=DB_Query(SQL)
End Function
Public Function Get_MemberFavListByAccountId(iAccountId,iPageNum,iPageSize)
Dim Temp
'0=articleid,1=article_posttime,2=article_title,3=favid,4=fav_posttime,5=author,6=author_id
Select Case iDataBaseType
Case 0
SQL="Exec vi_Select_Member_FavList "&iAccountId
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 1
SQL="SELECT ArticleId, IsNull(b.Title,GetDate()), Case When b.IsPass=0 Or b.IsDel=1 Or b.Title Is Null Then '该文章已被删除或未通过审核' Else b.Title End, a.[Id], a.AddDate, b.Author, b.AuthorId"
SQL=SQL&" FROM NB_MyFavorites AS a LEFT JOIN NB_Content AS b ON a.ArticleId=b.Id"
SQL=SQL&" WHERE UserId="&iAccountId
SQL=SQL&" ORDER BY a.Id DESC"
Temp=DB_CutPageQuery(SQL,iPageNum,iPageSize)
Case 2
SQL="Exec sp_EliteArticle_Fav_List_Select"
SQL=SQL&" @Member_Id="&iAccountId
SQL=SQL&",@List_PageNum="&iPageNum
SQL=SQL&",@List_PageSize="&iPageSize
Temp=DB_Query(SQL)
End Select
Get_MemberFavListByAccountId=Temp
End Function
Public Sub Del_MemberFav(iFavId,iAccountId)
Select Case iDataBaseType
Case 0
SQL="Exec vi_Delete_Member_Fav "&iFavId&","&iAccountId
Case 1
SQL="DELETE "
SQL=SQL&" FROM NB_MyFavorites"
SQL=SQL&" WHERE [Id]="&iFavId&" And UserId="&iAccountId
Case 2
SQL="Exec sp_EliteArticle_Fav_Delete"
SQL=SQL&" @Fav_Id="&iFavId
SQL=SQL&",@Member_Id="&iAccountId
End Select
DB_Execute(SQL)
End Sub
'-------------------------------------------------------------------
'*******************************************************************
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&" <font color=800000>"&sSQL&"</font><br>"
ErrMsg=ErrMsg&"时，发生以下错误：<br>"
ErrMsg=ErrMsg&" <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&" <font color=800000>"&sSQL&"</font><br>"
ErrMsg=ErrMsg&"时，发生以下错误：<br>"
ErrMsg=ErrMsg&" <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&" <font color=800000>"&sSQL&"</font><br>"
ErrMsg=ErrMsg&"时，发生以下错误：<br>"
ErrMsg=ErrMsg&" <font color=800000>"&Err.Description&"</font>"
Else
ErrMsg="查询数据的时候发现错误。系统已关闭"
End If
Call EA_Pub.ShowErrMsg(0,0)
End If
End Function
'-------------------------------------------------------------------
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -