?? plus_check.asp
字號:
<%
Dim Dv_plus
Set Dv_plus=new Cls_plus
Class Cls_plus
'VBS類說明：屬性Name用于提取設置，調用方法:實例.namr=插件ID
'變量Mian_setting數組，存儲插件常規(guī)設置,
'變量plus_Settings數組，存儲插件自定義擴展設置
'變量plus_Settingnames數組，存儲插件自定義擴展設置的定義的
'變量plus_Copyright存儲插件版權信息。
'變量Plus_Name存儲插件在菜單中顯示的名稱。
'plus_master存儲是否是插件管理員的布爾值
'方法checklogin()驗證使用插件的權限，判斷插件管理員的身份。
'方法updateuser()更新使用插件后的用戶的數據，如金錢，經驗等的更新。
Public Mian_settings,plus_Settings,plus_Copyright,Plus_Name,plus_master,plus_Settingnames
Public Property Let Name(ByVal vNewValue)
Call GetPlus_Setting(vNewValue)
End Property
'驗證使用插件的權限，判斷插件管理員的身份。
Public Sub checklogin()
plus_master=False
If Dvbbs.UserID>0 Then
If Dvbbs.master Then
plus_master=True
Else
Dim masterlist
If Trim(Mian_settings(3))<>"" Then
masterlist="|"&Mian_settings(3)&"|"
If InStr(masterlist,"|"&Dvbbs.MemberName&"|")>0 Then
plus_master=True
End If
End If
End If
End If
If Not plus_master Then
If Mian_settings(0)="1" Then
Dim Otime
Otime=split(Mian_settings(1),"|")
If UBound(Otime)=1 Then
If IsNumeric(Otime(0)) And IsNumeric(OTime(1)) Then
If CInt(OTime(0))< CInt(OTime(1)) Then
If Hour(Now) < Cint(Otime(0)) or Hour(Now) > Cint(Otime(1)) Then
Response.redirect "showerr.asp?ErrCodes=<li>"&Plus_Name&"<B>"&OTime(0)&"</B>至<B>"&OTime(1)&"</B>點開放，請在規(guī)定時間內使用，謝謝。&action=plus"
End If
Else
If Hour(Now)< Cint(OTime(0)) And Hour(Now) > Cint(OTime(1)) Then
Response.redirect "showerr.asp?ErrCodes=<li>"&Plus_Name&"<B>"&OTime(0)&"</B>至<B>"&OTime(1)&"</B>點開放，請在規(guī)定時間內使用，謝謝。&action=plus"
End If
End If
End If
End If
End If
Dim UserGroupIDlist
UserGroupIDlist="@"&Mian_settings(2)&"@"
If Not InStr(UserGroupIDlist,"@"&Dvbbs.UserGroupID&"@")>0 Then
Response.redirect "showerr.asp?ErrCodes=<li>您沒有權限進入"&Plus_Name&"&action=plus"
End If
'檢查使用插件的限制,如果設置了客人組可使用，此判斷忽略。
If Not InStr(UserGroupIDlist,"@7@")>0 Then
Dim Plus_UserPost,Plus_userWealth,Plus_UserEP,Plus_UserCP,Plus_UserPower
Plus_UserPost=Mian_settings(4)
Plus_userWealth=Mian_settings(5)
Plus_UserEP=Mian_settings(6)
Plus_UserCP=Mian_settings(7)
Plus_UserPower=Mian_settings(8)
If IsNumeric(Plus_UserPost) Then
If CLng(Dvbbs.MyUserInfo(8))< CLng(Plus_UserPost) Then
Response.redirect "showerr.asp?ErrCodes=<li>使用"&Plus_Name&"的最少發(fā)貼數是"&Plus_UserPost&",您只有"&Dvbbs.MyUserInfo(8)&"篇&action=plus"
End If
End If
If IsNumeric(Plus_userWealth) Then
If CLng(Dvbbs.MyUserInfo(21))< CLng(Plus_userWealth) Then
Response.redirect "showerr.asp?ErrCodes=<li>使用"&Plus_Name&"的最少金錢"&Plus_userWealth&",您只有"&Dvbbs.MyUserInfo(21)&"&action=plus"
End If
End If
If IsNumeric(Plus_UserEP) Then
If CLng(Dvbbs.MyUserInfo(22))< CLng(Plus_UserEP) Then
Response.redirect "showerr.asp?ErrCodes=<li>使用"&Plus_Name&"的最少經驗是"&Plus_UserEP&",您只有"&Dvbbs.MyUserInfo(22)&"&action=plus"
End If
End If
If IsNumeric(Plus_UserCP) Then
If CLng(Dvbbs.MyUserInfo(23))< CLng(Plus_UserCP) Then
Response.redirect "showerr.asp?ErrCodes=<li>使用"&Plus_Name&"的最少魅力是"&Plus_UserCP&",您只有"&Dvbbs.MyUserInfo(23)&"&action=plus"
End If
End If
If IsNumeric(Plus_UserPower) Then
If Dvbbs.MyUserInfo(24)="" Then Dvbbs.MyUserInfo(24)=0
If CLng(Dvbbs.MyUserInfo(24))< CLng(Plus_UserPower) Then
Response.redirect "showerr.asp?ErrCodes=<li>使用"&Plus_Name&"的最少魅力是"&Plus_UserPower&",您只有"&Dvbbs.MyUserInfo(24)&"&action=plus"
End If
End If
End If
End If
End Sub
'使用插件后更新用戶數據部分
Public Sub updateuser()
If Dvbbs.UserID>0 Then
Dim ADDuserWealth,ADDUserEP,ADDUserCP,ADDUserPower
ADDuserWealth=Mian_settings(9)
ADDUserEP=Mian_settings(10)
ADDUserCP=Mian_settings(11)
ADDUserPower=Mian_settings(12)
If Not IsNumeric(ADDuserWealth) Then ADDuserWealth=0
If Not IsNumeric(ADDUserEP) Then ADDUserEP=0
If Not IsNumeric(ADDUserCP) Then ADDUserCP=0
If Not IsNumeric(ADDUserPower) Then ADDUserPower=0
ADDuserWealth=CLng(ADDuserWealth)
ADDUserEP=CLng(ADDUserEP)
ADDUserCP=CLng(ADDUserCP)
ADDUserPower=CLng(ADDUserPower)
If ADDuserWealth<>0 Or ADDUserEP<>0 Or ADDUserCP <>0 Or ADDUserPower<>0 Then
Dvbbs.Execute("Update Dv_user Set userWealth=userWealth+("&ADDuserWealth&"),UserEP=UserEP+("&ADDUserEP&"),UserCP=UserCP+("&ADDUserCP&"),UserPower=UserPower+("&ADDUserPower&") Where userID="&Dvbbs.userID&"")
Dvbbs.TrueCheckUserLogin
End If
End If
End Sub
'---------------取得插件設置數據
Public Sub GetPlus_Setting(plus_ID)
plus_Settingnames="設置字段1,設置字段2,設置字段3,設置字段4,設置字段5,設置字段6,設置字段7,設置字段8,設置字段9,設置字段10,設置字段11,設置字段12,設置字段13,設置字段14,設置字段15,設置字段16,設置字段17,設置字段18,設置字段19"
plus_Settings="0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
Mian_settings="0,0|24,1@2@3@4@5@6@7@8,,0,0,0,0,0,0,0,0,0"
plus_Copyright="dvbbs"
Plus_Name="未知插件"
Dim SettingDatas
SettingDatas=Plus_Setting()
If IsArray(SettingDatas) Then
Dim i,SettingData
For i=0 to UBound(SettingDatas,2)
If CStr(LCase(SettingDatas(0,i)))=CStr(LCase(plus_ID)) Then
SettingData=SettingDatas(1,i)
Plus_Name=SettingDatas(2,i)
plus_Copyright=SettingDatas(3,i)
Dvbbs.Forum_Copyright=Dvbbs.Forum_Copyright&"<br><b>"&Plus_Name&"</b> 由"&plus_Copyright&"開發(fā)"
Exit For
End If
Next
If SettingData<>"" Then
SettingData=Split(SettingData,"|||")
If UBound(SettingData)>1 Then
plus_Settings=SettingData(1)
plus_Settingnames=SettingData(2)
Mian_settings=SettingData(3)
End If
End If
End If
plus_Settingnames=Split(plus_Settingnames,",")
plus_Settings=Split(plus_Settings,",")
Mian_settings=Split(Mian_settings,",")
End Sub
Public Function Plus_Setting()
Dvbbs.Name="Plus_Settingts"
If Dvbbs.ObjIsEmpty() Then
Dim Rs,SQL
SQL = "select plus_ID,Plus_Setting,Plus_Name,plus_Copyright from [Dv_plus] Order By ID"
Set Rs = Dvbbs.Execute(SQL)
If Not Rs.Eof Then
Dvbbs.value = Rs.GetRows(-1)
Else
Dvbbs.value=""
End If
Set Rs = Nothing
End If
Plus_Setting=Dvbbs.Value
End Function
'--------------------
End Class
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -