📄 online.aspx.vb
字号:
' ***************************************************
' * 本程序由AspToAspX风火轮0.99转换生成 *
' * http://Www.AspToAspX.Cn *
' * Q Q : 139227536 *
' * QQ群: 17152722 *
' * MSN : gzliangjianhua@hotmail.com *
' * EMail AspToDll@vip.163.com *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState
Public Class _ONLINE
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public sessid,out,rs2,rs1,sql,sql2,sql0,sql3,xxx,stats,ipdress,rs,username,admin,count3,addtime
Public onlinetime
Public count1
Public count2
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ASPX_CONN As _CONN
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
AspToAspXGlobal.Application = Application
AspToAspXGlobal.Server = Server
AspToAspXGlobal.Response = Response
AspToAspXGlobal.Request = Request
AspToAspXGlobal.Session = Session
AspToAspX_Host_Class_Object = Me
AspToAspX_InitIncludeFiles()
AspToAspX_Page_Init()
End Sub
Public Sub AspToAspX_Page_Init()
On Error GoTo _AspToAspX_Err
ASPX_CONN.AspToAspX_Page_Init ( )
FTBBS_HTML_MB ( ft ) '6
onlinetime = Application ( "FTBBSMB" ) ( 40 , 0 ) '7
sessid = AspToAspX_ConvertSessionID ( ) '8
username = trim ( getcookie ( "name" ) ) '9
addtime = Ftbbs_Time '10
sql0 = "select top 1 sessid from " & ft & "ftbbs_Online where sessid='" & sessid & "'" '11
rs2 = conn.Execute ( sql0 ) '12
stats = trim ( ( Request.QueryString ( "stats" ) ) ) '13
If AspToAspX_GetRequestServerVariables ( "HTTP_X_FORWARDED_FOR" ) = EmptyString.Value Then
ipdress = AspToAspX_GetRequestServerVariables ( "REMOTE_ADDR" )
Else
ipdress = AspToAspX_GetRequestServerVariables ( "HTTP_X_FORWARDED_FOR" )
End If
'14
If AspToAspX_CheckDBNull ( username ) = EmptyString.Value Then '15
admin = 0 '16
Else '17
If AspToAspX_CheckDBNull ( getcookie ( "bz" ) ) = 1 Then '18
admin = 2 '19
ElseIf AspToAspX_CheckDBNull ( getcookie ( "bbsadmin" ) ) = 1 Then '20
admin = 1 '21
Else '22
admin = 0 '23
End If '24
End If '25
If rs2.EOF Then '26
If AspToAspX_CheckDBNull ( username ) = EmptyString.Value Then '27
sql = "insert into " & ft & "ftbbs_Online (sessid,username,useradmin,stats,ip,logintime,lasttime) values('" & sessid & "','匿名',0,'" & stats & "','" & ipdress & "','" & addtime & "','" & addtime & "')" '28
Else '29
sql0 = "select top 1 username,lasttime from " & ft & "ftbbs_Online where username='" & username & "'" '30
rs1 = New ADODB.Recordset ( ) '31
rs1.Open ( sql0 , conn , 1 , 1 ) '32
If rs1.BOF And rs1.EOF Then '33
sql = "insert into " & ft & "ftbbs_Online (sessid,username,useradmin,stats,ip,logintime,lasttime) values('" & sessid & "','" & username & "'," & admin & ",'" & stats & "','" & ipdress & "','" & addtime & "','" & addtime & "')" '34
Else '35
sql = "Update " & ft & "ftbbs_Online set lasttime='" & addtime & "',stats='" & stats & "' where username='" & username & "'" '36
End If '37
rs1.Close ( ) '38
rs1 = Nothing '39
End If '40
Else '41
If AspToAspX_CheckDBNull ( username ) = EmptyString.Value Then '42
sql = "Update " & ft & "ftbbs_Online set username='匿名',useradmin=0,stats='" & stats & "',ip='" & ipdress & "',lasttime='" & addtime & "' where sessid='" & sessid & "'" '43
Else '44
sql = "Update " & ft & "ftbbs_Online set username='" & username & "',useradmin=" & admin & ",stats='" & stats & "',ip='" & ipdress & "',lasttime='" & addtime & "' where sessid='" & sessid & "'" '45
End If '46
End If '47
conn.Execute ( sql ) '48
rs2.Close ( ) '49
sql = "delete from " & ft & "ftbbs_Online where datediff(""n"",lasttime,'" & addtime & "')>" & onlinetime & "" '50
conn.Execute ( sql ) '51
sql = "select count(id) from " & ft & "ftbbs_Online where username='匿名'" '52
rs2 = conn.Execute ( sql ) '53
count1 = AspToAspX_CheckDBNull(rs2.Fields ( 0 ) .Value) '54
rs2.Close ( ) '55
sql = "select count(id) from " & ft & "ftbbs_Online where username<>'匿名'" '56
rs2 = conn.Execute ( sql ) '57
count2 = AspToAspX_CheckDBNull(rs2.Fields ( 0 ) .Value) '58
rs2.Close ( ) '59
sql = "select count(id) from " & ft & "ftbbs_Online where stats='" & stats & "'" '60
rs2 = conn.Execute ( sql ) '61
count3 = AspToAspX_CheckDBNull(rs2.Fields ( 0 ) .Value) '62
rs2.Close ( ) '63
rs2 = Nothing '64
conn.Close ( ) '65
If AspToAspX_CheckDBNull ( trim ( ( Request.QueryString ( "dis" ) ) ) ) = "yes" Then '66
Response.Write ( "document.write('总共<font color=red>" & count1 + count2 & "</font>人在线,其中注册用户<font color=red>" & count2 & "</font>人,游客<font color=red>" & count1 & "</font>人 当前位置［" & stats & "］共有<font color=red>" & count3 & "</font>人 <a class=map href=""disonline.aspx"">在线列表</a>');" ) '67
End If '69
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("online_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
Public Property conn
Get
conn = ASPX_CONN.conn
End Get
Set(ByVal value)
ASPX_CONN.conn = value
End Set
End Property
Public Property qs
Get
qs = ASPX_CONN.qs
End Get
Set(ByVal value)
ASPX_CONN.qs = value
End Set
End Property
Public Property errc
Get
errc = ASPX_CONN.errc
End Get
Set(ByVal value)
ASPX_CONN.errc = value
End Set
End Property
Public Property iii
Get
iii = ASPX_CONN.iii
End Get
Set(ByVal value)
ASPX_CONN.iii = value
End Set
End Property
Public Property nothis
Get
nothis = ASPX_CONN.nothis
End Get
Set(ByVal value)
ASPX_CONN.nothis = value
End Set
End Property
Public Sub makeftbbstree(ByRef ft )
ASPX_CONN.makeftbbstree( ft )
End Sub
Public Sub CloseDb
ASPX_CONN.CloseDb
End Sub
Public Sub SaveToFile( ByVal strBody,ByVal File )
ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
End Sub
Public Function Checkstr(ByRef AspToAspX_Str )
Return ASPX_CONN.Checkstr( AspToAspX_Str )
End Function
Public Function CheckCharStr(ByRef usernamepsw,ByRef flag )
Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
End Function
Public Function ftbbs_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.ftbbs_msg( msg,reurl )
End Function
Public Function login_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.login_msg( msg,reurl )
End Function
Public Function FTBBS_HTML_MB(ByRef ft )
Return ASPX_CONN.FTBBS_HTML_MB( ft )
End Function
Public Function FTBBS_BZ_NAME(ByRef BoardID_1,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
End Function
Public Function FTBBS_BZ_NAME2(ByRef BoardID_1,ByRef BoardID_2,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
End Function
Public Function makefilename(ByRef fname )
Return ASPX_CONN.makefilename( fname )
End Function
Public Function GetExtendName(ByRef FileName )
Return ASPX_CONN.GetExtendName( FileName )
End Function
Public Function IsObjInstalled(ByRef strClassString )
Return ASPX_CONN.IsObjInstalled( strClassString )
End Function
Public Function ChkMapPath( ByVal strPath )
Return ASPX_CONN.ChkMapPath( strPath )
End Function
Public Function userlogin(ByRef ft )
Return ASPX_CONN.userlogin( ft )
End Function
Public Function headhtml
Return ASPX_CONN.headhtml
End Function
Public Function GetOpInfo(ByRef AspToAspX_Str,ByRef Flag )
Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
End Function
Public Function getcode
Return ASPX_CONN.getcode
End Function
Public Function codepass
Return ASPX_CONN.codepass
End Function
Public Function Ftbbs_Time
Return ASPX_CONN.Ftbbs_Time
End Function
Public Function ft_home(ByRef defaulthome )
Return ASPX_CONN.ft_home( defaulthome )
End Function
Public Function chkpost
Return ASPX_CONN.chkpost
End Function
Public Function CodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.CodeCookie( AspToAspX_Str )
End Function
Public Function DecodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
End Function
Public Function setcookie(ByRef cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
End Function
Public Function getcookie(ByRef ckname )
Return ASPX_CONN.getcookie( ckname )
End Function
Public Function clearcookie(ByRef cookdomain,ByRef cookneme )
Return ASPX_CONN.clearcookie( cookdomain,cookneme )
End Function
Public Function LoadFile( ByVal File )
Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -