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

    Public AspToAspX_Host_Class_Object As Object

Public i
Public clubuser_id
Public clubuser_name
Public clubuser_password
Public clubuser_money
Public jingyuan
Public tili
Public clubuser_phone
Public clubuser_fax
Public clubuser_url
Public clubuser_email
Public clubuser_address
Public clubuser_note
Public clubuser_reg_date
Public clubuser_enter_count
Public clubuser_question
Public cl
Public pwd
Public clubuser_answer
Public rs As ADODB.Recordset
Public sql
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
    Public ASPX_CONN As _CONN
    Public ASPX_ADMIN_CHECK_MASTER As _ADMIN_CHECK_MASTER
    Public ASPX_INC_MD5 As _INC_MD5
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = New _ADMIN_CHECK_MASTER()
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_InitIncludeFiles()
        ASPX_INC_MD5 = New _INC_MD5()
        ASPX_INC_MD5.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_MD5.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = Nothing
        ASPX_INC_MD5.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_MD5 = 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_ADMIN_CHECK_MASTER.AspToAspX_Page_Init ( )
    ASPX_INC_MD5.AspToAspX_Page_Init ( )
    clubuser_id = Request ( "id" ) '5
    clubuser_name = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "name" ) ) ) '6
    clubuser_password = AspToAspX_CheckIsNothing ( Request.Form ( "password" ) ) '7
    clubuser_money = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_money" ) ) ) '8
    jingyuan = AspToAspX_CheckIsNothing ( Request.Form ( "jingyuan" ) ) '9
    tili = AspToAspX_CheckIsNothing ( Request.Form ( "tili" ) ) '10
    clubuser_phone = AspToAspX_CheckIsNothing ( Request.Form ( "phone" ) ) '11
    clubuser_fax = AspToAspX_CheckIsNothing ( Request.Form ( "fax" ) ) '12
    clubuser_url = AspToAspX_CheckIsNothing ( Request.Form ( "url" ) ) '13
    clubuser_email = AspToAspX_CheckIsNothing ( Request.Form ( "email" ) ) '14
    clubuser_address = AspToAspX_CheckIsNothing ( Request.Form ( "address" ) ) '15
    clubuser_note = AspToAspX_CheckIsNothing ( Request.Form ( "note" ) ) '16
    clubuser_reg_date = AspToAspX_CheckIsNothing ( Request.Form ( "reg_date" ) ) '17
    clubuser_enter_count = AspToAspX_CheckIsNothing ( Request.Form ( "enter_count" ) ) '18
    clubuser_question = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_question" ) ) ) '19
    For i = 1 To Val ( AspToAspX_Len ( clubuser_name ) ) '20
        cl = mid ( clubuser_name , i , 1 ) '21
        If AspToAspX_CheckDBNull ( cl ) = "'" Or AspToAspX_CheckDBNull ( cl ) = "<" Or AspToAspX_CheckDBNull ( cl ) = ">" Or AspToAspX_CheckDBNull ( cl ) = "%" Or AspToAspX_CheckDBNull ( cl ) = "/" Or AspToAspX_CheckDBNull ( cl ) = "-" Or AspToAspX_CheckDBNull ( cl ) = "#" Or AspToAspX_CheckDBNull ( cl ) = "$" Then '22
            Response.Write ( "<script langugae=javascript>alert('用户名不能有非法字符%-/$#<>');" ) '23
            Response.Write ( "history.go(-1);" ) '24
            Response.Write ( "</script>" ) '25
            Response.End ( ) '26
        End If '27
    Next '28
    For i = 1 To Val ( AspToAspX_Len ( clubuser_password ) ) '29
        pwd = mid ( clubuser_password , i , 1 ) '30
        If AspToAspX_CheckDBNull ( pwd ) = "'" Or AspToAspX_CheckDBNull ( pwd ) = "<" Or AspToAspX_CheckDBNull ( pwd ) = ">" Or AspToAspX_CheckDBNull ( pwd ) = "%" Or AspToAspX_CheckDBNull ( pwd ) = "/" Or AspToAspX_CheckDBNull ( pwd ) = "#" Or AspToAspX_CheckDBNull ( pwd ) = "$" Or AspToAspX_CheckDBNull ( pwd ) = "-" Then '31
            Response.Write ( "<script langugae=javascript>alert('密码中不能有非法字符%-/$#<>！');" ) '32
            Response.Write ( "history.go(-1);" ) '33
            Response.Write ( "</script>" ) '34
            Response.End ( ) '35
        End If '36
    Next '37
    If AspToAspX_CheckDBNull ( clubuser_password ) = EmptyString.Value Then '38
        Response.Write ( "<br><br><center>" ) '39
        Response.Write ( "用户密码不能为空，请重新输入！" ) '40
        Response.Write ( "</center>" ) '41
        Response.End ( ) '42
    End If '43
    If AspToAspX_CheckDBNull ( clubuser_question ) = EmptyString.Value Then '44
        Response.Write ( "<br><br><center>" ) '45
        Response.Write ( "查询密码问题不能为空，请重新输入！" ) '46
        Response.Write ( "</center>" ) '47
        Response.End ( ) '48
    End If '49
    clubuser_answer = md5 ( trim ( AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_answer" ) ) ) ) '50
    If AspToAspX_CheckDBNull ( clubuser_answer ) = EmptyString.Value Then '51
        Response.Write ( "<br><br><center>" ) '52
        Response.Write ( "查询密码答案不能为空，请重新输入！" ) '53
        Response.Write ( "</center>" ) '54
        Response.End ( ) '55
    End If '56
    rs = New ADODB.Recordset ( ) '57
    sql = "select * from " & ft & "clubuser where clubuser_id=" & Request ( "id" ) '58
    rs.Open ( sql , conn , 1 , 3 ) '59
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_password" ) .Value) ) < > clubuser_password Then '62
        rs.Fields ( "clubuser_password" ) .Value = md5 ( clubuser_password ) '63
    End If '64
    rs.Fields ( "clubuser_money" ) .Value = clubuser_money '65
    rs.Fields ( "jingyuan" ) .Value = jingyuan '66
    rs.Fields ( "tili" ) .Value = tili '67
    rs.Fields ( "clubuser_phone" ) .Value = clubuser_phone '68
    rs.Fields ( "clubuser_fax" ) .Value = clubuser_fax '69
    rs.Fields ( "clubuser_url" ) .Value = clubuser_url '70
    rs.Fields ( "clubuser_email" ) .Value = clubuser_email '71
    rs.Fields ( "clubuser_address" ) .Value = clubuser_address '72
    rs.Fields ( "clubuser_note" ) .Value = clubuser_note '73
    If ( AspToAspX_CheckDBNull ( clubuser_reg_date ) < > EmptyString.Value ) Then '74
    rs.Fields ( "clubuser_reg_date" ) .Value = clubuser_reg_date '75
    Else '76
        rs.Fields ( "clubuser_reg_date" ) .Value = ToDay ( ) '77
    End If '78
    If ( AspToAspX_CheckDBNull ( clubuser_enter_count ) = EmptyString.Value ) Then '79
    rs.Fields ( "clubuser_enter_count" ) .Value = 1 '80
    Else '81
        rs.Fields ( "clubuser_enter_count" ) .Value = AspToAspX_CInt ( clubuser_enter_count ) '82
    End If '83
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_question" ) .Value) ) < > clubuser_question Then '84
        rs.Fields ( "clubuser_question" ) .Value = md5 ( clubuser_question ) '85
    End If '86
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_answer" ) .Value) ) < > clubuser_answer Then '87
        rs.Fields ( "clubuser_answer" ) .Value = md5 ( clubuser_answer ) '88
    End If '89
    rs.Update ( ) '90
    rs.Close ( ) '91
    conn.Close ( ) '93
    conn = Nothing '94
    AspToAspX_Response_Redirect ( Request ( "reurl" ) ) '95
    Response.Write ( vbCrLf )

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