<%
'=========================================================
' Copyright (C) 2003,2004 sg188.com. All rights reserved.
' Web: http://www.chaotie.com,http://www.chaotie.com
' Email: info@sg188.com,eway@sg188.com
' File: Class_Mobile.asp
' Date: 2004-8-3
' Author: Dv Dever ,www.chaotie.com
' 文件用途，手机移动超贴访问
'=========================================================
Class Mobile_Forum
Rem ====================声明部分开始==============
Public Path,StartID,Number,Mobile,Stype,OP,Child,Self
Public PathCount
Public OtherContent
Private ViewIpLimited
Dim Re


Rem ====================声明部分结束==============

Rem ======================过程部分================
'Class加载时自动执行的代码
Private Sub Class_Initialize()
Dvbbs.UserID = 0
OtherContent = ""
Path = Trim(Checkstr(Request("Path")))
StartID = ChkNumeric(Trim(Request("StartID")))
Number = ChkNumeric(Trim(Request("Number")))
Mobile = ChkNumeric(Trim(Request("Mobile")))
Stype = ChkNumeric(Trim(Request("Stype")))
OP = ChkNumeric(Trim(Request("OP")))
Child = ChkNumeric(Trim(Request("Child")))
Self = Child
Path = Split(Path,"/")
PathCount = Ubound(Path)
ViewIpLimited = ",219.238.232.59,219.153.18.230,219.153.18.162,,"
'ViewIpLimited = ",61.132.138.120,"
'ChkIpLimited
ChkWapUser
End Sub

Private Sub ChkIpLimited()
Dim ReServerIp
ReServerIp = Trim(Request.ServerVariables("REMOTE_ADDR"))
If ReServerIp = "" Or Instr(ViewIpLimited,ReServerIp) = 0 Then
ShowMobileErr("您的IP："& ReServerIp &" 来至于受限制的地址！")
End If
End Sub

'验证用户
Private Sub ChkWapUser
Mobile = Ccur(Mobile)
If Mobile=0 or Len(Mobile)<11 Then
If InStr(Dvbbs.ScriptName,"wap_userlogin.asp")=0 Then
ShowMobileErr("您的手机号码："& Mobile &" 不能访问本超贴！")
End If
End If
If Mobile=0 Then
Dvbbs.UserID = 0
Dvbbs.UserGroupID = 7
Dvbbs.LetGuestSession()
Else
'Session(CacheName & "UserID")用户资料=0dvbbs+1刷新时间+2发帖时间+3所在版面ID+4用户ID+5用户名+6用户密码+7用户邮箱+8用户文章数+9用户主题数+10用户性别+11用户头像+12用户头像宽+13用户头像高+14用户注册时间+15用户最后登陆时间+16用户登陆次数+17用户状态+18用户等级+19用户等级ID+20用户等级名+21用户超元+22用户超元UserEp+23用户威望UserCp+24用户威望+25用户生日+26最后登陆IP+27用户被删除数+28用户精华数+29用户隐身状态+30用户短信情况+31用户阳光会员+32用户手机+33用户等级图标+34用户头衔+35验证密码+36用户今日信息+37用户贴币+38用户点卡+39跟踪用户ID+40VIP登记时间+41VIP截止时间+42是否存在全局自定义权限IsUserPermissionAll+43是否有多属性用户等级IsUserPermissionOnly+44临时数据+45Dvbbs
Dim Rs,SQL
Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin as cometime ,LastLogin,LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid"
Sql=Sql & " From [Dv_User] Where UserMobile = '" & Mobile &"'"
Set Rs = Dvbbs.Execute(Sql)
If Rs.Eof Then
Rs.Close:Set Rs = Nothing
Dvbbs.UserID = 0
Dvbbs.UserGroupID = 7
Dvbbs.LetGuestSession()
Else
Set Dvbbs.UserSession=RecordsetToxml(rs,"userinfo","xml")
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@cometime").text=Now()
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@activetime").text=DateAdd("s",-3600,Now())
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@boardid").text=boardid
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo").attributes.setNamedItem(Dvbbs.UserSession.createNode(2,"isuserpermissionall","")).text=Dvbbs.FoundUserPermission_All()
If Not (Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usergroupid2") is Nothing )  Then
Dvbbs.FoundMyGroupID =  CLng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usergroupid2").text)
End If
If Dvbbs.FoundMyGroupID > 0 Then
Dvbbs.UserSession.documentElement.selectSingleNode("userinfo").attributes.setNamedItem(Dvbbs.UserSession.createNode(2,"usergroupid2","")).text=Dvbbs.FoundMyGroupID
End If
Dim BS
Set Bs=Dvbbs.GetBrowser()
Dvbbs.UserSession.documentElement.appendChild(Bs.documentElement)
If EnabledSession Then
Session(Dvbbs.CacheName & "UserID")= Dvbbs.UserSession.xml
End If
Dvbbs.GetCacheUserInfo()
End If
End If
'IP锁定
If Dvbbs.UserSession.documentElement.selectSingleNode("agent/@lockip").text="1"  Then
If Not Dvbbs.Page_Admin Then Response.Redirect "showerr.asp?action=iplock"
End If
Dvbbs.GetGroupSetting()
If CInt(Dvbbs.GroupSetting(0))=0 And Not Dvbbs.Page_Admin Then
ShowXMLStar
AddErrCode(8)
ShowXMLEnd
Response.End
End If
End Sub
'输出XML开始的标记
Public Sub ShowXMLStar()
Response.Clear
Response.CharSet="gb2312"
Response.ContentType="text/xml" 
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"
Response.Write vbNewLine
Response.Write "<bbs_query>"
Response.Write vbNewLine
Response.Write "<forumname>"&ForMatHtmlTitle(Dvbbs.Forum_Info(0))&"</forumname>"
End Sub 
Public Sub ShowErr(ErrCode,ErrMsg)
'Call ShowXMLStar
'If Dvbbs.ScriptName="wap_board.asp" Then
'ShowCodes "" ,4 ,0 ,4 ,ErrMsg ,"" ,Dvbbs.Forum_Info(0) ,Now ,Now
'Else
Response.Write "<errcode>"
Response.Write ErrCode
Response.Write "</errcode>"
Response.Write vbNewLine
Response.Write "<errmsg>"
Response.Write ForMatHtml(ErrMsg)
Response.Write "</errmsg>"
'End If
End Sub

'输出模板
Public Sub ShowCodes(S_Self ,S_Child ,S_Sid ,S_Stype ,S_Name ,S_Content ,S_OtherContent,S_Author ,S_Createtime ,S_Modifytime)
Dim CodesString
CodesString = "<query_result>" & vbNewLine
CodesString = CodesString & "<self>" & S_Self & "</self>" & vbNewLine
CodesString = CodesString & "<child>" & S_Child & "</child>" & vbNewLine
CodesString = CodesString & "<sid>" & S_Sid & "</sid>" & vbNewLine
CodesString = CodesString & "<stype>" & S_Stype & "</stype>" & vbNewLine
CodesString = CodesString & "<name><![CDATA[" & ForMatHtmlTitle(S_Name) & "]]></name>" & vbNewLine
CodesString = CodesString & S_Content
CodesString = CodesString & S_OtherContent & vbNewLine
CodesString = CodesString & "<author>" & S_Author & "</author>" & vbNewLine
CodesString = CodesString & "<createtime>" & S_Createtime & "</createtime>" & vbNewLine
CodesString = CodesString & "<modifytime>" & S_Modifytime & "</modifytime>" & vbNewLine
CodesString = CodesString & "</query_result>" & vbNewLine
Response.Write CodesString
End Sub

Public Function Format_Content(sType,sBody)
Dim CodesString
If sType = 1 Then
CodesString = "<content type=""other"" src="""&sBody&"""></content>" & vbNewLine
Else
CodesString = "<content type=""text""><![CDATA[" & sBody &"]]></content>" & vbNewLine
End if
Format_Content = CodesString
End Function

'输出XML结束的标记
Public Sub ShowXMLEnd()
Response.Write vbNewLine
Response.Write "</bbs_query>"
End Sub
Rem ====================过程部分结束==============

Rem ======================函数部分================
'通用参数过滤函数
Public Function Checkstr(Str)
If Isnull(Str) Then
CheckStr = ""
Exit Function 
End If
Str = Replace(Str,Chr(0),"")
CheckStr = Replace(Str,"'","''")
End Function

'判断参数是否数字型并且不含豆号
Public Function IsTrueNumeric(Str)
Dim Numeric
Numeric=Str & ""
If IsNumeric(Numeric) And InStr(Numeric,",")=0 Then 
IsTrueNumeric=True
Else
IsTrueNumeric=False
End If
End Function

'判断参数是否数字型并且不含豆号
Public Function ChkNumeric(Str)
ChkNumeric = 0
If Str = Null Then Exit Function
If IsNumeric(Str) And InStr(Str,",")=0 Then 
ChkNumeric = cCur(Str)
End If
End Function

'过滤HTML标记，保留换行符等内容
Function ForMatHtml(str)
OtherContent = ""
Dim Tempstr,RegFound
RegFound = False
If Str<>"" And Not IsNull(Str) Then
Set Re = new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern = "(<br>)"
Str = re.Replace(Str , CHR(13) & CHR(10))
re.Pattern="(</p><p>)"
Str=re.Replace(Str, CHR(13) & CHR(10))
re.Pattern="(<[|\/]p>)"
Str=re.Replace(Str, CHR(13) & CHR(10))
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str,"")
re.Pattern = "(&nbsp;)"
Str = re.Replace(Str,Chr(9))
're.Pattern = "\[(i|b|u|center)\]((.|\n)*)\[\/(\1)\]"
'Str = re.Replace(Str,"<$1>$2</$4>")
re.Pattern = "\[(fly|move)\]((.|\n)*)\[\/(\1)\]"
Str = re.Replace(Str,CHR(10)&"$2"&CHR(10))
re.Pattern = "\[(size|color|face|glow|shadow)=(.[^\[]*)\]((.|\n)*)\[\/(\1)\]"
Str = re.Replace(Str,"$3")
re.Pattern = "\[align=(center|left|right)\]((.|\n)*)\[\/align\]"
Str = re.Replace(Str,"[$1]$2[/$1]")
re.Pattern = "\[(point|post|power|usercp|money|usemoney|username)=(.[^\[]*)\]((.|\n)*)\[\/(\1)\]"
Str = re.Replace(Str,CHR(10)&"特殊帖部分内容不允许浏览！"&CHR(10))
re.Pattern="(\[replyview\])(.|\n)*(\[\/replyview\])"
Str = re.Replace(Str,CHR(10)&"特殊帖部分内容不允许浏览！"&CHR(10))
re.Pattern = "\[(html|code)\]((.|\n)*)\[\/(\1)\]"
Str = re.Replace(Str, CHR(10) & "以下为程序源代码："& CHR(10)&CHR(10) & "$2" & CHR(10))
re.Pattern = "\[(quote)\]((.|\n)*)\[\/(\1)\]"
Str = re.Replace(Str, CHR(10) & "引文："& CHR(10)&CHR(10) & "$2" & CHR(10))
re.Pattern = "\[(url)=(.[^\[]*)\]((.|\n)*)\[\/(\1)\]"
Str = re.Replace(Str,"($3 :$2)")
If InStr(Lcase(Str),"[em")>0 Then
re.Pattern="\[em(.[^\[]*)\]"
Str=re.Replace(Str,"[img src="""&EmotPath&"em$1.gif""]")
End If

Dim Matches,Match
're.Pattern = "\[(mp|rm|qt|flash)(.[^\[]*)\]((.|\n)([^\[\]]+)*)\[\/\1\]"
re.Pattern = "\[(mp|rm|qt|flash|img)(.[^\[]*)\]([^\[\]]+)\[\/\1\]"
If re.Test(Str) Then
Set Matches = re.Execute(Str)
For Each Match in Matches
OtherContent = OtherContent & Match.Value
Next
OtherContent = re.Replace(OtherContent,"<content type=""$1"" src=""$3""></content>")
Str = re.Replace(Str,"")
End If
If InStr(Lcase(Str),"[img]")>0 Then
re.Pattern = "\[(img)\]([^\[\]]+)\[\/\1\]"
If re.Test(Str) Then
Set Matches = re.Execute(Str)
For Each Match in Matches
OtherContent = OtherContent & Match.Value
Next
OtherContent = re.Replace(OtherContent,"<content type=""image"" src=""$2""></content>")
Str = re.Replace(Str,"")
End If
End If
If InStr(Lcase(Str),"[upload=")>0 Then
re.Pattern = "\[(upload)=(gif|jpg|jpeg|bmp|png)\]([^\[\]]+)\[\/\1\]"
If re.Test(Str) Then
Set Matches = re.Execute(Str)
For Each Match in Matches
OtherContent = OtherContent & Match.Value
Next
OtherContent = re.Replace(OtherContent,"<content type=""image"" src="""&Forum_Url&"$3""></content>")
Str = re.Replace(Str,"")
End If
End If
If InStr(Lcase(Str),"[upload=")>0 Then
re.Pattern = "\[(upload)=(swf|swi)\]([^\[\]]+)\[\/\1\]"
If re.Test(Str) Then
Set Matches = re.Execute(Str)
For Each Match in Matches
OtherContent = OtherContent & Match.Value
Next
OtherContent = re.Replace(OtherContent,"<content type=""flash"" src="""&Forum_Url&"$3""></content>")
Str = re.Replace(Str,"")
End If
End If
If InStr(Lcase(Str),"[upload=")>0 Then
re.Pattern = "\[(upload)=(.[^\[]*)\]([^\[\]]+)\[\/\1\]"
If re.Test(Str) Then
Set Matches = re.Execute(Str)
For Each Match in Matches
OtherContent = OtherContent & Match.Value
Next
OtherContent = re.Replace(OtherContent,"<content type=""other"" src="""&Forum_Url&"$3""></content>")
Str = re.Replace(Str,"")
End If
End If

re.Pattern="(\[(|\/)B\])"
Str=re.Replace(Str, "[$2b]")
re.Pattern="(\[(|\/)i\])"
Str=re.Replace(Str, "[$2i]")
re.Pattern="(\[(|\/)u\])"
Str=re.Replace(Str, "[$2u]")
Set Re=Nothing
Str = Replace(Str,"]]>","]]&gt;")
ForMatHtml = Str
End If
End Function

'标题
Function ForMatHtmlTitle(str)
If Str<>"" And Not IsNull(Str) Then
Str = Replace(Str, CHR(10), "")
Str = Replace(Str, CHR(13), "")
Dim Re
Set Re = new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str,"")
re.Pattern = "(&nbsp;)"
Str = re.Replace(Str,Chr(9))
Set Re=Nothing
Str = Replace(Str,"]]>","]]&gt;")
ForMatHtmlTitle = Str
End If
End Function

Rem ====================函数部分结束==============

Rem ======================属性部分================

Rem ====================属性部分结束==============

'错误信息，ErrCode为错误信息编码
Public Sub AddErrCode(ByVal ErrCode)
If ErrCode<>"" and IsNumeric(ErrCode) Then
Dvbbs.LoadTemplates("showerr")
ShowErr 0,Template.Strings(ErrCode)
End If
End Sub

Public Sub LoadBoardPass()
If Dvbbs.BoardID < 1 Then Exit Sub
'Dvbbs.Name="BoardInfo_" & Dvbbs.BoardID
'If Dvbbs.ObjIsEmpty() Then Dvbbs.ReloadBoardInfo(Dvbbs.BoardID)
'Dvbbs.Board_Data = Dvbbs.Value
'Dvbbs.Board_Setting = Split(Dvbbs.Board_Data(16,0),",")
'Dvbbs.sid = Dvbbs.Board_Data(15,0)
If Dvbbs.UserID > 0 Then
If Dvbbs.Master Then
Dvbbs.Boardmaster=True
ElseIf Dvbbs.Superboardmaster Then
Dvbbs.Boardmaster=True
ElseIf Dvbbs.UserGroupID =3 And Not Trim(Dvbbs.BoardMasterList) = "" Then
If Instr("|"&lcase(Dvbbs.BoardMasterList)&"|","|"&lcase(Dvbbs.Membername)&"|")>0 Then
Dvbbs.Boardmaster=True
End If
End If
End If
GetBoardPermission()
End Sub

Rem 获得版面用户等级权限配置
Public Sub GetBoardPermission()
Dim Rs,IsGroupSetting
IsGroupSetting = Dvbbs.IsGroupSetting
If IsGroupSetting<>"" And Not IsNull(IsGroupSetting) Then
IsGroupSetting = "," & IsGroupSetting & ","

If InStr(IsGroupSetting,"," & Dvbbs.UserGroupID & ",")>0 Then
Set Rs=Dvbbs.Execute("Select PSetting From Dv_BoardPermission Where Boardid="&Dvbbs.Boardid&" And GroupID="&Dvbbs.UserGroupID)
If Not (Rs.Eof And Rs.Bof) Then
Dvbbs.GroupSetting = Split(Rs(0),",")
End If
Set Rs=Nothing
End If
If Dvbbs.UserID>0 And InStr(IsGroupSetting,",0_"&Dvbbs.UserID&",")>0 Then
Set Rs=Dvbbs.execute("Select Uc_Setting From Dv_UserAccess Where Uc_Boardid="&Dvbbs.BoardID&" And uc_UserID="&Dvbbs.Userid)
If Not(Rs.Eof And Rs.Bof) Then
Dvbbs.UserPermission=Split(Rs(0),",")
Dvbbs.GroupSetting = Split(Rs(0),",")
Dvbbs.FoundUserPer=True
End If
Set Rs=Nothing
End If
End If
Call Chkboardlogin()
End Sub
Rem 能否进入超贴的判断
Public Sub Chkboardlogin()
Dvbbs.GetForum_Setting
If Dvbbs.Board_Setting(1)="1" And Dvbbs.GroupSetting(37)="0" Then ShowMobileErr("您没有权限进入隐含超贴！")
If Dvbbs.GroupSetting(0)="0"  Then ShowMobileErr("您没有权限进入本超贴！")
If Dvbbs.Boardmaster Then Exit Sub
'访问超贴限制(包括文章、超元、超元、威望、威望、精华、被删数、注册时间)
Dim BoardUserLimited
BoardUserLimited = Split(Dvbbs.Board_Setting(54),"|")
If Ubound(BoardUserLimited)=8 Then
'文章
If Trim(BoardUserLimited(0))<>"0" And IsNumeric(BoardUserLimited(0)) Then
If Dvbbs.UserID = 0 Then ShowMobileErr("本版面设置了用户发贴最少为 "&BoardUserLimited(0)&" 才能进入")
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text)<Clng(BoardUserLimited(0)) Then ShowMobileErr("本版面设置了用户发贴最少为 "&BoardUserLimited(0)&" 才能进入")
End If
'超元
If Trim(BoardUserLimited(1))<>"0" And IsNumeric(BoardUserLimited(1)) Then
If Dvbbs.UserID = 0 Then ShowMobileErr("本版面设置了用户超元最少为 "&BoardUserLimited(1)&" 才能进入")
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text)<Clng(BoardUserLimited(1)) Then ShowMobileErr("本版面设置了用户超元最少为 "&BoardUserLimited(1)&" 才能进入")
End If
'超元
If Trim(BoardUserLimited(2))<>"0" And IsNumeric(BoardUserLimited(2)) Then
If Dvbbs.UserID = 0 Then ShowMobileErr("本版面设置了用户超元最少为 "&BoardUserLimited(2)&" 才能进入")
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text)<Clng(BoardUserLimited(2)) Then ShowMobileErr("本版面设置了用户超元最少为 "&BoardUserLimited(2)&" 才能进入")
End If
'威望
If Trim(BoardUserLimited(3))<>"0" And IsNumeric(BoardUserLimited(3)) Then
If Dvbbs.UserID = 0 Then ShowMobileErr("本版面设置了用户威望最少为 "&BoardUserLimited(3)&" 才能进入")
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text)<Clng(BoardUserLimited(3)) Then ShowMobileErr("本版面设置了用户威望最少为 "&BoardUserLimited(3)&" 才能进入")
End If
'威望
If Trim(BoardUserLimited(4))<>"0" And IsNumeric(BoardUserLimited(4)) Then
If Dvbbs.UserID = 0 Then ShowMobileErr("本版面设置了用户威望最少为 "&BoardUserLimited(4)&" 才能进入")
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpower").text)<Clng(BoardUserLimited(4)) Then ShowMobileErr("本版面设置了用户威望最少为 "&BoardUserLimited(4)&" 才能进入")
End If
'精华
If Trim(BoardUserLimited(5))<>"0" And IsNumeric(BoardUserLimited(5)) Then
If Dvbbs.UserID = 0 Then ShowMobileErr("本版面设置了用户精华最少为 "&BoardUserLimited(5)&" 才能进入")
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userisbest").text)<Clng(BoardUserLimited(5)) Then ShowMobileErr("本版面设置了用户精华最少为 "&BoardUserLimited(5)&" 才能进入")
End If
'删贴
If Trim(BoardUserLimited(6))<>"0" And IsNumeric(BoardUserLimited(6)) Then
If Dvbbs.UserID = 0 Then ShowMobileErr("本版面设置了用户被删贴少于 "&BoardUserLimited(6)&" 才能进入")
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userdel").text)>Clng(BoardUserLimited(6)) Then ShowMobileErr("本版面设置了用户被删贴少于 "&BoardUserLimited(6)&" 才能进入")
End If
'注册时间
If Trim(BoardUserLimited(7))<>"0" And IsNumeric(BoardUserLimited(7)) Then
If Dvbbs.UserID = 0 Then ShowMobileErr("本版面设置了用户注册时间大于 "&BoardUserLimited(7)&" 分钟才能进入")
If DateDiff("s",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@joindate").text,Now)<Clng(BoardUserLimited(7))*60 Then ShowMobileErr("本版面设置了用户注册时间大于 "&BoardUserLimited(7)&" 分钟才能进入")
End If

End If
'认证版块判断Board_Setting(2)
If Dvbbs.Board_Setting(2)="1" Then
Dim Get_BoardUser_Money,Canlogin
Get_BoardUser_Money = False
If Clng(Dvbbs.Board_Setting(62))>0 Or Clng(Dvbbs.Board_Setting(63))>0 Then Get_BoardUser_Money = True
Canlogin = False
If Dvbbs.UserID=0 Then
ShowMobileErr("本超贴为认证超贴，请确认您的用户名已经得到管理员的认证后进入。")
Else
Dim Boarduser,i,BoardUser_Money
BoardUser = Dvbbs.boarduser
If Ubound(Boarduser)=-1 Then'为空时值等于-1
Canlogin = False
Else
For i = 0 To Ubound(Boarduser)
If Get_BoardUser_Money Then
BoardUser_Money = Split(Boarduser(i),"=")
If Trim(Lcase(BoardUser_Money(0))) = Trim(Lcase(Dvbbs.MemberName)) Then
'修改判断支付贴币或点卡进入版面的有效期 2004-8-29 Dv.Yz
If Not DateDiff("d",BoardUser_Money(1),Now()) > Cint(Dvbbs.Board_Setting(64))*30 Then
Canlogin = True
Exit For
End If
End If
Else
If Trim(Lcase(Boarduser(i))) = Trim(Lcase(Dvbbs.MemberName)) Then
Canlogin = True
Exit For
End If
End If
Next
End If
EndIf
If Get_BoardUser_Money And Instr(Lcase(Dvbbs.ScriptName),"pay_boardlimited")=0 And (Not Canlogin) Then
'Response.Redirect "pay_boardlimited.asp?boardid=" & Dvbbs.BoardID
ShowMobileErr("本超贴为认证超贴，请确认您的用户名已经得到管理员的认证后进入。")
End If
If Instr(Lcase(Dvbbs.ScriptName),"pay_boardlimited")=0 And (Not Canlogin) Then
ShowMobileErr("本超贴为认证超贴，请确认您的用户名已经得到管理员的认证后进入。")
End If
End If
End Sub
Public Sub ShowMobileErr(ErrStr)
ShowXMLStar
ShowErr 0,ErrStr
ShowXMLEnd
Response.End
End Sub

End Class

Dim DvbbsWap
Set DvbbsWap = New Mobile_Forum
%>
