check_master.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 _ADMIN_CHECK_MASTER

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_conn,_aspx_rs,_aspx_ft,_aspx_sql
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    End Sub

#End Region
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    If AspToAspX_CheckDBNull ( adminlogin ( ft ) ) = "N" Then '23
        Response.Charset = "utf-8" '24
        Response.Write ( "<br><br><br><br><center>非法登录或登录超时!</center>" ) '25
        Response.End ( ) '26
    End If '27
    Response.Write ( vbCrLf )

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("check_master_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ADMIN\CHECK_MASTER.ASP
Function adminlogin(ByRef  ft )
On Error GoTo _AspToAspX_Err
    Dim AdminName
    AdminName = Session ( "admin_user" ) '3
    If AspToAspX_CheckDBNull ( AdminName ) < > EmptyString.Value Then '4
        sql = "select top 1 * from " & ft & "ftbbs_admin Where admin_user='" & AdminName & "'" '5
        rs = New ADODB.Recordset ( ) '6
        rs.Open ( sql , conn , 1 , 1 ) '7
        If rs.BOF And rs.EOF Then '8
            adminlogin = "N" '9
        Else '10
            If AspToAspX_CheckDBNull ( trim ( AspToAspX_CheckDBNull(rs.Fields ( "admin_pwd" ) .Value) ) ) = trim ( Session ( "admin_pwd" ) ) Then '11
                adminlogin = "Y" '12
            Else '13
                adminlogin = "N" '14
            End If '15
        End If '16
        rs.Close ( ) '17
        rs = Nothing '18
    Else '19
        adminlogin = "N" '20
    End If '21
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ADMIN\CHECK_MASTER.ASP adminlogin:" & Err.Description)
    Resume Next
End Function
#Region "..."
    Public Property conn
        Get
            On Error Resume Next
            conn = AspToAspX_Host_Class_Object.conn
            If Err.Number = 438 Then
                Err.Clear
                conn = _aspx_conn
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.conn = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_conn = value
            End If
        End Set
    End Property
    Public Property rs
        Get
            On Error Resume Next
            rs = AspToAspX_Host_Class_Object.rs
            If Err.Number = 438 Then
                Err.Clear
                rs = _aspx_rs
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.rs = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_rs = value
            End If
        End Set
    End Property
    Public Property ft
        Get
            On Error Resume Next
            ft = AspToAspX_Host_Class_Object.ft
            If Err.Number = 438 Then
                Err.Clear
                ft = _aspx_ft
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.ft = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_ft = value
            End If
        End Set
    End Property
    Public Property sql
        Get
            On Error Resume Next
            sql = AspToAspX_Host_Class_Object.sql
            If Err.Number = 438 Then
                Err.Clear
                sql = _aspx_sql
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.sql = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_sql = value
            End If
        End Set
    End Property
#End Region
End Class