bloglogin.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _BLOGLOGIN
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public getcodeoff
Public bbsuser
Public password
Public AspToAspX_Str
Public rs As ADODB.Recordset
Public cookexpires
Public clubuser_password
Public sql
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public num
Public smsnum
    Public ASPX_CONN As _CONN
    Public ASPX_INC_MD5 As _INC_MD5
    Public ASPX_FTBBS_NAV As _FTBBS_NAV
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_INC_MD5 = New _INC_MD5()
        ASPX_INC_MD5.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_MD5.AspToAspX_InitIncludeFiles()
        ASPX_FTBBS_NAV = New _FTBBS_NAV()
        ASPX_FTBBS_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FTBBS_NAV.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_INC_MD5.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_MD5 = Nothing
        ASPX_FTBBS_NAV.AspToAspX_UnloadIncludeFiles()
        ASPX_FTBBS_NAV = 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 ( )
    ASPX_INC_MD5.AspToAspX_Page_Init ( )
    ASPX_FTBBS_NAV.AspToAspX_Page_Init ( )
    FTBBS_HTML_MB ( ft ) '5
    getcodeoff = Application ( "FTBBSMB" ) ( 30 , 0 ) '6
    bbsuser = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "bbsuser" ) ) ) '7
    password = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "password" ) ) ) '8
    bbsuser = Checkstr ( bbsuser ) '9
    CheckCharStr ( bbsuser , 1 ) '10
    CheckCharStr ( password , 1 ) '11
    If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '12
        If Not codepass And AspToAspX_CheckDBNull ( Session ( "errorlogin" ) ) > = 3 Then '13
            ftbbs_msg ( "验证码错误，请重新输入！" , "userlogin.aspx" ) '14
        End If '15
    End If '16
    AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & bbsuser & "' and jfmsign=0 and bokeer=1" '17
    rs = New ADODB.Recordset ( ) '18
    rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '19
    If rs.EOF Then '20
        ftbbs_msg ( "用户名不存在或还没有被激活！" , "bkindex.aspx" ) '21
    Else '22
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_password" ) .Value) ) = md5 ( password ) And AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) = bbsuser Then '23
            cookexpires = AspToAspX_CheckIsNothing ( Request.Form ( "ckies" ) ) '25
            clubuser_password = CodeCookie ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_password" ) .Value) ) '26
            setcookie ( cookexpires , ckiesdomain , "clubuser_id" , AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '27
            setcookie ( cookexpires , ckiesdomain , "bbsuser" , AspToAspX_CheckDBNull(rs.Fields ( "clubuser_nickname" ) .Value) ) '28
            setcookie ( cookexpires , ckiesdomain , "name" , AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '29
            setcookie ( cookexpires , ckiesdomain , "clubuser_password" , clubuser_password ) '30
            setcookie ( cookexpires , ckiesdomain , "bz" , AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) ) '31
            setcookie ( cookexpires , ckiesdomain , "bbsadmin" , AspToAspX_CheckDBNull(rs.Fields ( "bbsadmin" ) .Value) ) '32
            setcookie ( cookexpires , ckiesdomain , "payuser" , AspToAspX_CheckDBNull(rs.Fields ( "payuser" ) .Value) ) '33
            setcookie ( cookexpires , ckiesdomain , "bokeer" , AspToAspX_CheckDBNull(rs.Fields ( "bokeer" ) .Value) ) '34
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "payuser" ) .Value) ) = 3 Then '35
                ftbbs_msg ( "对不起,你的用户名被管理员封锁了!" , "bkinddex.aspx" ) '36
            End If '37
            sql = "update " & ft & "clubuser set clubuser_lasttime='" & Ftbbs_Time & "',clubuser_enter_count=clubuser_enter_count+1,tili=tili+100 where clubuser_id=" & getcookie ( "clubuser_id" ) '38
            conn.Execute ( sql ) '39
            Session ( "errorlogin" ) = 0 '40
            AspToAspX_Response_Redirect ( "usercenter.aspx?userid=" & getcookie ( "clubuser_id" ) ) '41
        Else '42
            Session ( "errorlogin" ) = Session ( "errorlogin" ) + 1 '43
            ftbbs_msg ( "你的密码错误，请重新登录！" , "bkindex.aspx" ) '44
        End If '45
    End If '46
    conn.Close ( ) '47
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("bloglogin_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

    Public Shared ReadOnly Property BITS_TO_A_BYTE
        Get
            BITS_TO_A_BYTE = _INC_MD5.BITS_TO_A_BYTE
        End Get
    End Property
    Public Shared ReadOnly Property BYTES_TO_A_WORD
        Get
            BYTES_TO_A_WORD = _INC_MD5.BYTES_TO_A_WORD
        End Get
    End Property
    Public Shared ReadOnly Property BITS_TO_A_WORD
        Get
            BITS_TO_A_WORD = _INC_MD5.BITS_TO_A_WORD
        End Get
    End Property
    Public Property m_lOnBits
        Get
            m_lOnBits = ASPX_INC_MD5.m_lOnBits
        End Get
        Set(ByVal value)
            ASPX_INC_MD5.m_lOnBits = value
        End Set
    End Property
    Public Property m_l2Power
        Get
            m_l2Power = ASPX_INC_MD5.m_l2Power
        End Get
        Set(ByVal value)
            ASPX_INC_MD5.m_l2Power = value
        End Set
    End Property
    Public Sub md5_FF(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
        ASPX_INC_MD5.md5_FF( a,b,c,d,x,s,ac )
    End Sub

    Public Sub md5_GG(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
        ASPX_INC_MD5.md5_GG( a,b,c,d,x,s,ac )
    End Sub

    Public Sub md5_HH(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
        ASPX_INC_MD5.md5_HH( a,b,c,d,x,s,ac )
    End Sub

    Public Sub md5_II(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
        ASPX_INC_MD5.md5_II( a,b,c,d,x,s,ac )
    End Sub

    Public Function LShift(ByRef  lValue,ByRef iShiftBits )
        Return ASPX_INC_MD5.LShift( lValue,iShiftBits )
    End Function

    Public Function RShift(ByRef  lValue,ByRef iShiftBits )
        Return ASPX_INC_MD5.RShift( lValue,iShiftBits )
    End Function

    Public Function RotateLeft(ByRef  lValue,ByRef iShiftBits )
        Return ASPX_INC_MD5.RotateLeft( lValue,iShiftBits )
    End Function

    Public Function AddUnsigned(ByRef  lX,ByRef lY )
        Return ASPX_INC_MD5.AddUnsigned( lX,lY )
    End Function

    Public Function md5_F(ByRef  x,ByRef y,ByRef z )
        Return ASPX_INC_MD5.md5_F( x,y,z )
    End Function

    Public Function md5_G(ByRef  x,ByRef y,ByRef z )
        Return ASPX_INC_MD5.md5_G( x,y,z )
    End Function

    Public Function md5_H(ByRef  x,ByRef y,ByRef z )
        Return ASPX_INC_MD5.md5_H( x,y,z )
    End Function

    Public Function md5_I(ByRef  x,ByRef y,ByRef z )
        Return ASPX_INC_MD5.md5_I( x,y,z )
    End Function

    Public Function ConvertToWordArray(ByRef  sMessage )
        Return ASPX_INC_MD5.ConvertToWordArray( sMessage )
    End Function

    Public Function WordToHex(ByRef  lValue )
        Return ASPX_INC_MD5.WordToHex( lValue )
    End Function

    Public Function MD5(ByRef  sMessage )
        Return ASPX_INC_MD5.MD5( sMessage )
    End Function

    Public Property ftbbs_nav_name
        Get
            ftbbs_nav_name = ASPX_FTBBS_NAV.ftbbs_nav_name
        End Get
        Set(ByVal value)
            ASPX_FTBBS_NAV.ftbbs_nav_name = value
        End Set
    End Property
    Public Property ftbbs_clubuser_id
        Get
            ftbbs_clubuser_id = ASPX_FTBBS_NAV.ftbbs_clubuser_id
        End Get
        Set(ByVal value)
            ASPX_FTBBS_NAV.ftbbs_clubuser_id = value
        End Set
    End Property
#End Region
End Class