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

    Public AspToAspX_Host_Class_Object As Object

Public msg,errorinfo
Public userid
Public clubuser_email
Public clubuser_address
Public clubuser_marriage
Public homepagetitle
Public clubuser_note
Public bstr
Public AspToAspX_Str
Public sql
Public rs As ADODB.Recordset
Public bokeer
Public cssfile
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public clubuser_id
Public rs8
    Public ASPX_CONN As _CONN
    Public ASPX_INC_MD5 As _INC_MD5
    Public ASPX_INC_HTMLENCODE2 As _INC_HTMLENCODE2
    Public ASPX_INC_UBBCODE As _INC_UBBCODE
    Public ASPX_BBSUSER As _BBSUSER
    Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
    Public ASPX_USERNAV As _USERNAV
    Public ASPX_MYHEAD As _MYHEAD
    Public ASPX_USERCALOG As _USERCALOG
    Public ASPX_TAIL As _TAIL
#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_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_BBSUSER = New _BBSUSER()
        ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
        ASPX_INC_PUBLICFUN = New _INC_PUBLICFUN()
        ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
        ASPX_USERNAV = New _USERNAV()
        ASPX_USERNAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_USERNAV.AspToAspX_InitIncludeFiles()
        ASPX_MYHEAD = New _MYHEAD()
        ASPX_MYHEAD.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_MYHEAD.AspToAspX_InitIncludeFiles()
        ASPX_USERCALOG = New _USERCALOG()
        ASPX_USERCALOG.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_USERCALOG.AspToAspX_InitIncludeFiles()
        ASPX_TAIL = New _TAIL()
        ASPX_TAIL.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_TAIL.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_INC_HTMLENCODE2.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_HTMLENCODE2 = Nothing
        ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = Nothing
        ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
        ASPX_BBSUSER = Nothing
        ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_PUBLICFUN = Nothing
        ASPX_USERNAV.AspToAspX_UnloadIncludeFiles()
        ASPX_USERNAV = Nothing
        ASPX_MYHEAD.AspToAspX_UnloadIncludeFiles()
        ASPX_MYHEAD = Nothing
        ASPX_USERCALOG.AspToAspX_UnloadIncludeFiles()
        ASPX_USERCALOG = Nothing
        ASPX_TAIL.AspToAspX_UnloadIncludeFiles()
        ASPX_TAIL = 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_INC_HTMLENCODE2.AspToAspX_Page_Init ( )
    ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
    ASPX_BBSUSER.AspToAspX_Page_Init ( )
    ASPX_INC_PUBLICFUN.AspToAspX_Page_Init ( )
    userid = getcookie ( "clubuser_id" ) '8
    If AspToAspX_CheckIsNothing ( Request.Form ( "act" ) ) = "Y" Then '9
        clubuser_email = CheckStr ( htmlencode2 ( AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_email" ) ) ) ) '11
        clubuser_address = CheckStr ( htmlencode2 ( AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_address" ) ) ) ) '12
        clubuser_marriage = AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_marriage" ) ) '13
        homepagetitle = CheckStr ( htmlencode2 ( AspToAspX_CheckIsNothing ( Request.Form ( "homepagetitle" ) ) ) ) '14
        clubuser_note = CheckStr ( ftHTMLCode ( AspToAspX_CheckIsNothing ( Request.Form ( "clubuser_note" ) ) ) ) '15
        clubuser_note = RegExReplace ( clubuser_note , "\b(script)\b" , " $1 " ) '16
        clubuser_note = RegExReplace ( clubuser_note , "\b(iframe)\b" , " $1 " ) '17
        bstr = Request ( "bstr" ) '18
        AspToAspX_Str = "update " & ft & "clubuser set clubuser_email='" & clubuser_email & "',clubuser_marriage='" & clubuser_marriage & "',clubuser_address='" & clubuser_address & "',homepagetitle='" & homepagetitle & "',clubuser_note='" & clubuser_note & "',bokeer=1 where clubuser_id=" & userid '19
        conn.Execute ( AspToAspX_Str ) '20
        If AspToAspX_CheckDBNull ( bstr ) = "1" Then '21
            setcookie ( 1 , ckiesdomain , "bokeer" , 1 ) '22
            msg = "(<font color=red>恭喜你成为了博客!</font>)" '24
        Else '25
            msg = "(<font color=red>修改成功!</font>)" '26
        End If '27
    End If '28
    sql = "select clubuser_name,clubuser_email,clubuser_sex,clubuser_address,clubuser_marriage,homepagetitle,bokeer,clubuser_note,cssfile from " & ft & "clubuser where clubuser_id=" & userid '29
    rs = New ADODB.Recordset ( ) '30
    rs.Open ( sql , conn , 3 , 1 ) '31
    If Not rs.EOF Then '32
        bokeer = AspToAspX_CheckDBNull(rs.Fields ( "bokeer" ) .Value) '33
        cssfile = "blogcss/" & AspToAspX_CheckDBNull(rs.Fields ( "cssfile" ) .Value) '34
    If IsDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "cssfile" ) .Value) ) Or AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "cssfile" ) .Value) ) = EmptyString.Value Or AspToAspX_CheckDBNull ( cssfile ) = "blogcss/" Then
cssfile = "blogcss/2.css"
End If
    '35
    End If '36
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '38
    Response.Write ( "<head>" & Chr ( 13 ) ) '39
    Response.Write ( "<meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '40
    Response.Write ( "<title>修改个人资料</title>" & Chr ( 13 ) ) '41
    Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '42
    Response.Write ( cssfile ) '42
    Response.Write ( """>" & Chr ( 13 ) ) '42
    Response.Write ( "</head>" & Chr ( 13 ) ) '43
    Response.Write ( "<script language=javascript src=""js/publicfun.js""></script>" & Chr ( 13 ) ) '44
    Response.Write ( "<body>" & Chr ( 13 ) ) '45
    Response.Write ( "<center>" & Chr ( 13 ) ) '46
    ASPX_USERNAV.AspToAspX_Page_Init ( )
    ASPX_MYHEAD.AspToAspX_Page_Init ( )
    Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '49
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""layout"">" & Chr ( 13 ) ) '50
    Response.Write ( "<tr>" & Chr ( 13 ) ) '51
    Response.Write ( "<td width=""22%"" valign=""top"" class=""c2t3"">" & Chr ( 13 ) ) '52
    Response.Write ( "<div id=""mod_profile"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '53
    ASPX_USERCALOG.AspToAspX_Page_Init ( )
    Response.Write ( "</div>" & Chr ( 13 ) ) '55
    Response.Write ( "</td>" & Chr ( 13 ) ) '56
    Response.Write ( "<td width=""78%"" valign=""top"" class=""c2t1"">" & Chr ( 13 ) ) '57
    Response.Write ( "<div id=""m_blog"" class=""modbox""><br>" & Chr ( 13 ) ) '58
    Response.Write ( "              <table width=""89%"" border=""0"" align=""center"">" & Chr ( 13 ) ) '59
    Response.Write ( "                <form name=""form1"" method=""post"" action="""" onsubmit=""return check(this)"">" & Chr ( 13 ) ) '60
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '61
    Response.Write ( "                    <td height=""30""><div align=""center""></div></td>" & Chr ( 13 ) ) '62
    Response.Write ( "                    <td height=""30"" class=""f14"">" & Chr ( 13 ) ) '63
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '64
    If AspToAspX_CheckDBNull ( Request ( "blogstr" ) ) = "1" And AspToAspX_CheckDBNull ( bstr ) < > "1" Then '65
        Response.Write ( "<strong><font color=red>你还没有成为博客，要成为博客请补填完以下信息</font></strong>" ) '66
    Else '67
        Response.Write ( "<strong>修改资料</strong>" & msg ) '68
    End If '69
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    </td>" & Chr ( 13 ) ) '71
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '72
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '73
    Response.Write ( "                    <td width=""17%"" height=""30""><div align=""right"">用户名:</div></td>" & Chr ( 13 ) ) '74
    Response.Write ( "                    <td width=""83%""><input name=""clubuser_name"" type=""text"" id=""clubuser_name"" value=""" ) '75
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '75
    Response.Write ( """ size=""40"" disabled>" & Chr ( 13 ) ) '75
    Response.Write ( "                    </td>" & Chr ( 13 ) ) '76
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '77
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '78
    Response.Write ( "                    <td height=""30""><div align=""right"">性 别:</div></td>" & Chr ( 13 ) ) '79
    Response.Write ( "                    <td><input name=""clubuser_sex"" type=""radio"" value=""男"" " ) '80
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_sex" ) .Value) ) = "男" Then '80
        Response.Write ( "checked" ) '80
    End If '80
    Response.Write ( ">" & Chr ( 13 ) ) '80
    Response.Write ( "                      男" & Chr ( 13 ) ) '81
    Response.Write ( "                      <input type=""radio"" name=""clubuser_sex"" value=""女"" " ) '82
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_sex" ) .Value) ) = "女" Then '82
        Response.Write ( "checked" ) '82
    End If '82
    Response.Write ( ">" & Chr ( 13 ) ) '82
    Response.Write ( "                      女</td>" & Chr ( 13 ) ) '83
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '84
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '85
    Response.Write ( "                    <td height=""30""><div align=""right"">Email:</div></td>" & Chr ( 13 ) ) '86
    Response.Write ( "                    <td><input name=""clubuser_email"" type=""text"" id=""clubuser_email"" value=""" ) '87
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_email" ) .Value) ) '87
    Response.Write ( """ size=""40""></td>" & Chr ( 13 ) ) '87
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '88
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '89
    Response.Write ( "                    <td height=""30""><div align=""right"">婚姻状况:</div></td>" & Chr ( 13 ) ) '90
    Response.Write ( "                    <td>" & Chr ( 13 ) ) '91
    Response.Write ( "<input name=""clubuser_marriage"" type=""radio"" value=""未婚"" " ) '92
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_marriage" ) .Value) ) = "未婚" Then '92
        Response.Write ( "checked" ) '92
    End If '92
    Response.Write ( ">" & Chr ( 13 ) ) '92
    Response.Write ( "                      未婚 " & Chr ( 13 ) ) '93
    Response.Write ( "                      <input type=""radio"" name=""clubuser_marriage"" value=""已婚"" " ) '94
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_marriage" ) .Value) ) = "已婚" Then '94
        Response.Write ( "checked" ) '94
    End If '94
    Response.Write ( ">" & Chr ( 13 ) ) '94
    Response.Write ( "                      已婚</td>" & Chr ( 13 ) ) '95
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '96
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '97
    Response.Write ( "                    <td height=""30""><div align=""right"">地 址:</div></td>" & Chr ( 13 ) ) '98
    Response.Write ( "                    <td><input name=""clubuser_address"" type=""text"" id=""clubuser_address"" value=""" ) '99
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_address" ) .Value) ) '99
    Response.Write ( """ size=""40""></td>" & Chr ( 13 ) ) '99
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '100
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '101
    Response.Write ( "                    <td height=""30""><div align=""right"">blog标题:</div></td>" & Chr ( 13 ) ) '102
    Response.Write ( "                    <td><input name=""homepagetitle"" type=""text"" id=""homepagetitle"" value=""" ) '103
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "homepagetitle" ) .Value) ) '103
    Response.Write ( """ size=""40""></td>" & Chr ( 13 ) ) '103
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '104
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '105
    Response.Write ( "                    <td height=""30""><div align=""right"">简 介:</div></td>" & Chr ( 13 ) ) '106
    Response.Write ( "                    <td><textarea name=""clubuser_note"" cols=""40"" rows=""12"" id=""clubuser_note"">" ) '107
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_note" ) .Value) ) '107
    Response.Write ( "</textarea></td>" & Chr ( 13 ) ) '107
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '108
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '109
    Response.Write ( "                    <td height=""45""></td>" & Chr ( 13 ) ) '110
    Response.Write ( "                    <td><input type=""submit"" name=""Submit"" value=""确认修改"">" & Chr ( 13 ) ) '111
    Response.Write ( "                      <input name=""act"" type=""hidden"" id=""act"" value=""Y"">" & Chr ( 13 ) ) '112
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <input name=""bstr"" type=""hidden"" id=""act"" value=""" ) '113
    Response.Write ( Request ( "blogstr" ) ) '113
    Response.Write ( """>" & Chr ( 13 ) ) '113
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '114
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '115
    Response.Write ( "                </form>" & Chr ( 13 ) ) '116
    Response.Write ( "              </table>" & Chr ( 13 ) ) '117
    Response.Write ( "            </div>" & Chr ( 13 ) ) '118
    Response.Write ( "</td>" & Chr ( 13 ) ) '119
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '120
    Response.Write ( "</div>" & Chr ( 13 ) ) '121
    Response.Write ( "</div>" & Chr ( 13 ) ) '122
    Response.Write ( "<br><center>" & Chr ( 13 ) ) '123
    Response.Write ( "    " ) '124
    ASPX_TAIL.AspToAspX_Page_Init ( )
    Response.Write ( "  </center>" & Chr ( 13 ) ) '125
    Response.Write ( "</center>" & Chr ( 13 ) ) '126
    Response.Write ( "</body>" & Chr ( 13 ) ) '127
    Response.Write ( "</html>" & Chr ( 13 ) ) '128
    closedb ( ) '129
    Response.Write ( vbCrLf )

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