⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bmuser_edit.aspx.vb

📁 本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP
💻 VB
📖 第 1 页 / 共 2 页
字号:
🔍
12 
' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  gzliangjianhua@hotmail.com        *
' *        EMail  AspToDll@vip.163.com              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _USER_BMUSER_EDIT
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public sql,rs
Public id
Public AspToAspX_Str
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_PUBLICFUN As _INC_PUBLICFUN
    Public ASPX_INC_HTMLENCODE2 As _INC_HTMLENCODE2
#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_PUBLICFUN = New _INC_PUBLICFUN()
        ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
        ASPX_INC_HTMLENCODE2 = New _INC_HTMLENCODE2()
        ASPX_INC_HTMLENCODE2.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_HTMLENCODE2.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_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_PUBLICFUN = Nothing
        ASPX_INC_HTMLENCODE2.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_HTMLENCODE2 = 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_PUBLICFUN.AspToAspX_Page_Init ( )
    ASPX_INC_HTMLENCODE2.AspToAspX_Page_Init ( )
    Response.Write ( "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & Chr ( 13 ) ) '5
    Response.Write ( "<html>" & Chr ( 13 ) ) '6
    Response.Write ( "<head>" & Chr ( 13 ) ) '7
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '8
    Response.Write ( "<link rel=""stylesheet"" href=""../css/xmwuye.css"">" & Chr ( 13 ) ) '9
    Response.Write ( "</head>" & Chr ( 13 ) ) '10
    id = Request ( "id" ) '13
    If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '14
        AspToAspX_Str = "update " & ft & "ftbbs_bmtb set username='" & Request ( "username" ) & "',tel='" & Request ( "tel" ) & "',age='" & Request ( "age" ) & "',sex='" & Request ( "sex" ) & "',job='" & Request ( "job" ) & "',edu='" & Request ( "edu" ) & "',address='" & Request ( "address" ) & "',qq='" & Request ( "qq" ) & "',mynote='" & htmlencode2 ( Request ( "note" ) ) & "' where  id=" & Request ( "id" ) '15
        conn.Execute ( AspToAspX_Str ) '16
        AspToAspX_Response_Redirect ( Request ( "reurl" ) ) '17
    End If '18
    sql = "select * from " & ft & "ftbbs_bmtb where id=" & id '19
    rs = New ADODB.Recordset ( ) '20
    rs.Open ( sql , conn , 3 , 1 ) '21
    Response.Write ( vbCrLf )
    Response.Write ( "<body leftmargin=""0"" topmargin=""5"">" & Chr ( 13 ) ) '23
    Response.Write ( "<table width=""98%"" border=""0"" align=""center"">" & Chr ( 13 ) ) '24
    Response.Write ( "  <form action="""" method=""post"" name=""form1"" id=""form1"">" & Chr ( 13 ) ) '25
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '26
    Response.Write ( "      <td height=""30"" colspan=""3"" align=""center"" bgcolor=""f3f3f3""> <strong>修改信息(所有项不能为空)</strong></td>" & Chr ( 13 ) ) '27
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '28
    Response.Write ( "    <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '29
    Response.Write ( "      <td width=""24%"" height=""25"" align=""right"">姓名： </td>" & Chr ( 13 ) ) '30
    Response.Write ( "      <td width=""24%""> " & Chr ( 13 ) ) '31
    Response.Write ( "        <input name='username' type=text id=""username"" value=""" ) '32
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "username" ) .Value) ) '32
    Response.Write ( """ size='16' maxlength=""50""></td>" & Chr ( 13 ) ) '32
    Response.Write ( "      <td width=""52%"">电话： " & Chr ( 13 ) ) '33
    Response.Write ( "        <input name='tel' type=text id=""tel"" value=""" ) '34
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "tel" ) .Value) ) '34
    Response.Write ( """ size='15' maxlength=""20""> " & Chr ( 13 ) ) '34
    Response.Write ( "      </td>" & Chr ( 13 ) ) '35
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '36
    Response.Write ( "    <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '37
    Response.Write ( "      <td height=""25"" align=""right"">年龄：</td>" & Chr ( 13 ) ) '38
    Response.Write ( "      <td> " & Chr ( 13 ) ) '39
    Response.Write ( "        <input name='age' type=text id=""Age"" value=""" ) '40
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "age" ) .Value) ) '40
    Response.Write ( """ size='16' maxlength=""20""  min=""1"" max=""100""> " & Chr ( 13 ) ) '40
    Response.Write ( "      </td>" & Chr ( 13 ) ) '41
    Response.Write ( "      <td>性别： " & Chr ( 13 ) ) '42
    Response.Write ( "        <select name=""sex"" id=""sex"" style=""width:96"">" & Chr ( 13 ) ) '43
    Response.Write ( "          <option value=""男"" " ) '44
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sex" ) .Value) ) = "男" Then '44
        Response.Write ( "selected " ) '44
    End If '44
    Response.Write ( ">男</option>" & Chr ( 13 ) ) '44
    Response.Write ( "          <option value=""女"" " ) '45
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sex" ) .Value) ) = "女" Then '45
        Response.Write ( "selected " ) '45
    End If '45
    Response.Write ( ">女</option>" & Chr ( 13 ) ) '45
    Response.Write ( "        </select>" & Chr ( 13 ) ) '46
    Response.Write ( "" & Chr ( 9 ) & "  </td>" & Chr ( 13 ) ) '47
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '48
    Response.Write ( "    <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '49
    Response.Write ( "      <td height=""25"" align=""right"">职业：</td>" & Chr ( 13 ) ) '50
    Response.Write ( "      <td> " & Chr ( 13 ) ) '51
    Response.Write ( "        <input name='Job' type=text id=""Job"" value=""" ) '52
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "job" ) .Value) ) '52
    Response.Write ( """ size='16' maxlength=""20"" /></td>" & Chr ( 13 ) ) '52
    Response.Write ( "      <td>学历： " & Chr ( 13 ) ) '53
    Response.Write ( "        <select name=""edu"" id=""edu"" style=""width:96"">" & Chr ( 13 ) ) '54
    Response.Write ( "          <option value=""博士以上"" " ) '55
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "edu" ) .Value) ) = "博士以上" Then '55
        Response.Write ( "selected " ) '55
    End If '55
    Response.Write ( ">博士以上</option>" & Chr ( 13 ) ) '55
    Response.Write ( "          <option value=""博士"" " ) '56
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "edu" ) .Value) ) = "博士" Then '56
        Response.Write ( "selected " ) '56
    End If '56
    Response.Write ( ">博士</option>" & Chr ( 13 ) ) '56
    Response.Write ( "          <option value=""研究生"" " ) '57
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "edu" ) .Value) ) = "研究生" Then '57
        Response.Write ( "selected " ) '57
    End If '57
    Response.Write ( ">研究生</option>" & Chr ( 13 ) ) '57
    Response.Write ( "          <option value=""本科"" " ) '58
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "edu" ) .Value) ) = "本科" Then '58
        Response.Write ( "selected " ) '58
    End If '58
    Response.Write ( ">本科</option>" & Chr ( 13 ) ) '58
    Response.Write ( "          <option value=""大专"" " ) '59
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "edu" ) .Value) ) = "大专" Then '59
        Response.Write ( "selected " ) '59
    End If '59
    Response.Write ( ">大专</option>" & Chr ( 13 ) ) '59
    Response.Write ( "          <option value=""大专以下"" " ) '60
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "edu" ) .Value) ) = "大专以下" Then '60
        Response.Write ( "selected " ) '60
    End If '60
    Response.Write ( ">大专以下</option>" & Chr ( 13 ) ) '60
    Response.Write ( "        </select></td>" & Chr ( 13 ) ) '61
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '62
    Response.Write ( "    <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '63
    Response.Write ( "      <td width=""24%"" height=""25"" align=""right"">来自： </td>" & Chr ( 13 ) ) '64
    Response.Write ( "      <td width=""24%""> " & Chr ( 13 ) ) '65
    Response.Write ( "        <input name='address' type=text id=""address"" value=""" ) '66
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "address" ) .Value) ) '66
    Response.Write ( """ size='16' maxlength=""50""></td>" & Chr ( 13 ) ) '66
    Response.Write ( "      <td width=""52%"">QQ号： " & Chr ( 13 ) ) '67
    Response.Write ( "        <input name='qq' type=text id=""qq"" value=""" ) '68
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "qq" ) .Value) ) '68
    Response.Write ( """ size='15' maxlength=""20""> " & Chr ( 13 ) ) '68
    Response.Write ( "      </td>" & Chr ( 13 ) ) '69
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '70
    Response.Write ( "    <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '71
    Response.Write ( "      <td align=""right"">爱好特长:<br>" & Chr ( 13 ) ) '72
    Response.Write ( "        意见建议:</td>" & Chr ( 13 ) ) '73
    Response.Write ( "      <td colspan=""2""> " & Chr ( 13 ) ) '74
    Response.Write ( "        <textarea name=""note"" cols=""57"" rows=""10"" id=""note"">" ) '75
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "mynote" ) .Value) ) '75
    Response.Write ( "</textarea></td>" & Chr ( 13 ) ) '75
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '76
    Response.Write ( "    <tr bgcolor=""f8f8f8""> " & Chr ( 13 ) ) '77
    Response.Write ( "      <td height=""35""></td>" & Chr ( 13 ) ) '78
    Response.Write ( "      <td colspan=""2""> " & Chr ( 13 ) ) '79
    Response.Write ( "        <input type=submit value='提 交' name='bm' >" & Chr ( 13 ) ) '80
    Response.Write ( "        <input name=""act"" type=""hidden"" id=""act"" value=""y"">" & Chr ( 13 ) ) '81
    Response.Write ( "        <input name=""id"" type=""hidden"" id=""id"" value=""" ) '82
    Response.Write ( id ) '82
    Response.Write ( """>" & Chr ( 13 ) ) '82
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""reurl"" type=""hidden"" id=""reurl"" value=""" ) '83
    Response.Write ( AspToAspX_GetRequestServerVariables ( "Http_REFERER" ) ) '83
    Response.Write ( """>" & Chr ( 13 ) ) '83
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '84
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '85
    Response.Write ( "</form>" & Chr ( 13 ) ) '86
    Response.Write ( "</table>" & Chr ( 13 ) ) '87
    Response.Write ( "</body>" & Chr ( 13 ) ) '88
    Response.Write ( "</html>" & Chr ( 13 ) ) '89
    closedb ( ) '90
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -