|
论坛掉线 修改savepost.asp的 Set Rs=Dvbbs.Execute(SQL) If Not Rs.EOF Then If Not (UserPassWord<>rs(6) Or rs(5)=1 or rs(3)=5) Then '不允许使用马甲 If Dvbbs.UserID<>Rs(1) Then ChkUserLogin = False Else Dvbbs.UserID=Rs(1) UserPost=Rs(2) GroupID=Rs(3) userclass=Rs(4) ChkUserLogin=True End If Response.cookies("upNum")=0 Else Dvbbs.LetGuestSession() End If End If 成 Set Rs=Dvbbs.Execute(SQL) If Not Rs.EOF Then If Not (UserPassWord<>rs(6) Or rs(5)=1 or rs(3)=5) Then '不允许使用马甲 If Dvbbs.UserID<>Rs(1) Then ChkUserLogin = False Else Dvbbs.UserID=Rs(1) UserPost=Rs(2) GroupID=Rs(3) userclass=Rs(4) ChkUserLogin=True End If Response.cookies("upNum")=0 End If End If
|