moduseract.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 _MODUSERACT
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public password
Public oldpwd
Public clubuser_marriage
Public question
Public answer
Public signname
Public email
Public clubuser_province
Public clubuser_city
Public clubuser_address
Public url
Public pswlng
Public pswlng1
Public pswlng2
Public rs_arrest
Public Sql_arrest
Public sql
Public rsr
Public clubuser_password
Public clubuser_answer
Public msg
Public AspToAspX_Sign
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
    Public ASPX_CONN As _CONN
    Public ASPX_INC_HTMLENCODE2 As _INC_HTMLENCODE2
    Public ASPX_INC_UBBCODE As _INC_UBBCODE
    Public ASPX_INC_MD5 As _INC_MD5
    Public ASPX_BBSUSER As _BBSUSER
#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_HTMLENCODE2 = New _INC_HTMLENCODE2()
        ASPX_INC_HTMLENCODE2.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_HTMLENCODE2.AspToAspX_InitIncludeFiles()
        ASPX_INC_UBBCODE = New _INC_UBBCODE()
        ASPX_INC_UBBCODE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_UBBCODE.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_BBSUSER = New _BBSUSER()
        ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_INC_HTMLENCODE2.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_HTMLENCODE2 = Nothing
        ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = Nothing
        ASPX_INC_MD5.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_MD5 = Nothing
        ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
        ASPX_BBSUSER = 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_HTMLENCODE2.AspToAspX_Page_Init ( )
    ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
    ASPX_INC_MD5.AspToAspX_Page_Init ( )
    ASPX_BBSUSER.AspToAspX_Page_Init ( )
    password = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "password" ) ) ) '7
    oldpwd = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "oldpwd" ) ) ) '8
    clubuser_marriage = AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_marriage" ) ) '9
    question = Checkstr ( trim ( AspToAspX_CheckIsNothing ( Request.Form ( "question" ) ) ) ) '10
    answer = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "answer" ) ) ) '11
    signname = Checkstr ( AspToAspX_CheckIsNothing ( Request.Form ( "signname" ) ) ) '12
    email = Checkstr ( trim ( AspToAspX_CheckIsNothing ( Request.Form ( "email" ) ) ) ) '13
    clubuser_province = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "province" ) ) ) '14
    clubuser_city = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "city" ) ) ) '15
    clubuser_address = Checkstr ( trim ( AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_address" ) ) ) ) '16
    url = Request ( "url" ) '17
    FTBBS_HTML_MB ( ft ) '18
    pswlng = Application ( "FTBBSMB" ) ( 23 , 0 ) '19
    pswlng1 = AspToAspX_Int ( AspToAspX_Split ( pswlng , "-" ) ( 0 ) ) '20
    pswlng2 = AspToAspX_Int ( AspToAspX_Split ( pswlng , "-" ) ( 1 ) ) '21
    CheckCharStr ( password , 1 ) '22
    CheckCharStr ( oldpwd , 1 ) '23
    If ( AspToAspX_Len ( password ) > pswlng2 Or AspToAspX_Len ( password ) < pswlng1 ) And AspToAspX_CheckDBNull ( password ) < > EmptyString.Value Then '24
    ftbbs_msg ( "密码长度为:" & pswlng & "个字符" , "moduserinfo.aspx" ) '25
    End If '26
    If AspToAspX_Len ( AspToAspX_CheckIsNothing ( Request.Form ( "signname" ) ) ) > 150 Then '27
        ftbbs_msg ( "签名档不能超过150字！" , "moduserinfo.aspx" ) '28
    End If '29
    rs_arrest = New ADODB.Recordset ( ) '30
    Sql_arrest = "select * from " & ft & "BBS_arrest where kind='Keyword' order by id asc" '31
    rs_arrest.Open ( sql_arrest , conn , 1 , 1 ) '32
    Do While Not rs_arrest.EOF '33
        If ( AspToAspX_CheckDBNull ( InStr ( AspToAspX_CheckIsNothing ( Request.Form ( "signname" ) ) , AspToAspX_CheckDBNull(rs_arrest.Fields ( "content" ) .Value) ) ) < > 0 Or AspToAspX_CheckDBNull ( InStr ( AspToAspX_CheckIsNothing ( Request.Form ( "name" ) ) , AspToAspX_CheckDBNull(rs_arrest.Fields ( "content" ) .Value) ) ) < > 0 ) Then '34
        ftbbs_msg ( "对不起，所填内容中不能含有[" & AspToAspX_CheckDBNull(rs_arrest.Fields ( "content" ) .Value) & "]关键字！" , "moduserinfo.aspx" ) '35
    End If '36
    rs_arrest.MoveNext ( ) '37
    Loop '38
    rs_arrest.Close ( ) '39
    rs_arrest = Nothing '40
    sql = "select * from " & ft & "clubuser where clubuser_name='" & getcookie ( "name" ) & "'" '41
    rsr = New ADODB.Recordset ( ) '42
    rsr.Open ( sql , conn , 1 , 3 ) '43
    clubuser_password = md5 ( password ) '44
    clubuser_answer = AspToAspX_CheckDBNull(rsr.Fields ( "clubuser_answer" ) .Value) '45
    If AspToAspX_CheckDBNull ( clubuser_answer ) < > answer Then '46
        answer = md5 ( answer ) '47
    End If '48
    If AspToAspX_CheckDBNull ( password ) < > EmptyString.Value Then '49
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "clubuser_password" ) .Value) ) = md5 ( oldpwd ) Then '50
            rsr.Fields ( "clubuser_password" ) .Value = clubuser_password '51
            rsr.Fields ( "clubuser_answer" ) .Value = answer '52
            clubuser_password = CodeCookie ( clubuser_password ) '53
            setcookie ( 1 , ckiesdomain , "clubuser_password" , clubuser_password ) '54
        Else '55
            ftbbs_msg ( "密码修改要验证原始密码，你输入的原始密码不正确,修改失败！" , "moduserinfo.aspx" ) '56
        End If '57
    ElseIf AspToAspX_CheckDBNull ( password ) = ""And AspToAspX_CheckDBNull ( clubuser_answer ) < > answer Then '58
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "clubuser_password" ) .Value) ) = md5 ( oldpwd ) Then '59
            rsr.Fields ( "clubuser_answer" ) .Value = answer '60
        Else '61
            ftbbs_msg ( "问题答案修改要验证原始密码，你输入的原始密码不正确,修改失败！" , "moduserinfo.aspx" ) '62
        End If '63
    End If '64
    rsr.Fields ( "clubuser_question" ) .Value = question '65
    rsr.Fields ( "clubuser_sex" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "sex" ) ) '66
    rsr.Fields ( "clubuser_email" ) .Value = email '67
    rsr.Fields ( "signname" ) .Value = signname '68
    rsr.Fields ( "clubuser_marriage" ) .Value = clubuser_marriage '69
    rsr.Fields ( "clubuser_province" ) .Value = clubuser_province '70
    rsr.Fields ( "clubuser_city" ) .Value = clubuser_city '71
    rsr.Fields ( "clubuser_address" ) .Value = clubuser_address '72
    If AspToAspX_CheckDBNull ( Request ( "img" ) ) < > EmptyString.Value Then '73
        rsr.Fields ( "userimg" ) .Value = Request ( "img" ) '74
    End If '75
    rsr.Update ( ) '76
    rsr.Close ( ) '77
    conn.Close ( ) '78
    msg = "恭喜你，修改个人信息成功！" '79
    AspToAspX_Sign = 1 '80
    ftbbs_msg ( "恭喜你，修改个人信息成功！" , url ) '81
    Response.Write ( vbCrLf )

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