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

    Public AspToAspX_Host_Class_Object As Object

Public msg,SendMail
Public bbsuser
Public password
Public Name
Public email
Public url
Public uploadoff
Public regoff
Public regsmstitle
Public regsmscontent
Public jmailoff
Public getcodeoff
Public AspToAspX_Str
Public rs As ADODB.Recordset
Public sql
Public rsr
Public clubuser_password
Public checkpass
Public clubuser_id
Public msginfo
Public AspToAspX_Sign
Public smscontent
Public regurl
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public Username
    Public ASPX_CONN As _CONN
    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_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_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_INC_MD5.AspToAspX_Page_Init ( )
    bbsuser = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "username" ) ) ) '4
    password = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "password" ) ) ) '5
    Name = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "username" ) ) ) '6
    email = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "email" ) ) ) '7
    FTBBS_HTML_MB ( ft ) '8
    url = Application ( "FTBBSMB" ) ( 10 , 0 ) '9
    uploadoff = Application ( "FTBBSMB" ) ( 16 , 0 ) '10
    regoff = Application ( "FTBBSMB" ) ( 17 , 0 ) '11
    regsmstitle = Application ( "FTBBSMB" ) ( 20 , 0 ) '12
    regsmscontent = Application ( "FTBBSMB" ) ( 21 , 0 ) '13
    jmailoff = Application ( "FTBBSMB" ) ( 24 , 0 ) '14
    getcodeoff = Application ( "FTBBSMB" ) ( 30 , 0 ) '15
    If AspToAspX_CheckDBNull ( chkpost ) = false Then '16
        ftbbs_msg ( "非法操作" , "register.aspx" ) '17
    End If '18
    If AspToAspX_CheckDBNull ( InStr ( Name , "FileBZ" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "<!--" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "-->" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "=" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "%" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , chr ( 32 ) ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "?" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "&" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , ";" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "," ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "'" ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "," ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , chr ( 34 ) ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , chr ( 9 ) ) ) > 0 Or AspToAspX_CheckDBNull ( InStr ( Name , "