📄 user_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_USER_EDIT
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public sql
Public rs As ADODB.Recordset
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
#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()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = 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 ( )
    sql = "select * from " & ft & "clubuser where clubuser_id=" & Request ( "id" ) '6
    rs = New ADODB.Recordset ( ) '7
    rs.Open ( sql , conn , 1 , 1 ) '8
    Response.Write ( vbCrLf )
    Response.Write ( "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & Chr ( 13 ) ) '10
    Response.Write ( "<html>" & Chr ( 13 ) ) '11
    Response.Write ( "<head>" & Chr ( 13 ) ) '12
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '13
    Response.Write ( "<link rel=""stylesheet"" href=""../css/xmwuye.css"">" & Chr ( 13 ) ) '14
    Response.Write ( "</head>" & Chr ( 13 ) ) '15
    Response.Write ( "<body topmargin=""2"">" & Chr ( 13 ) ) '16
    Response.Write ( "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bordercolorlight=""#f4f4f4"" bordercolordark=""#FFFFFF"" bgcolor=""#d6dff7"">" & Chr ( 13 ) ) '17
    Response.Write ( "  <form method=""POST"" action=""user_saveedit.aspx?id=" ) '18
    Response.Write ( Request ( "id" ) ) '18
    Response.Write ( """>" & Chr ( 13 ) ) '18
    Response.Write ( "" & Chr ( 9 ) & "<tr bgcolor=""#f4f4f4"">    " & Chr ( 13 ) ) '19
    Response.Write ( "      <td width=""100%"" height=""30""> " & Chr ( 13 ) ) '20
    Response.Write ( "        <p align=""center""><b><font color=""#000000"">修 改 用 户 资 料</font></b> </td>" & Chr ( 13 ) ) '21
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '22
    Response.Write ( "    <tr align=""center"">" & Chr ( 13 ) ) '23
    Response.Write ( "      <td width=""100%"">" & Chr ( 13 ) ) '24
    Response.Write ( "            <table width=""100%"" border=""0"" cellspacing=""1"" bgcolor=""#f8f8f8"">" & Chr ( 13 ) ) '25
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '26
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30"">姓名：</td>" & Chr ( 13 ) ) '27
    Response.Write ( "                <td width=""85%"" height=""30""> " & Chr ( 13 ) ) '28
    Response.Write ( "                  <input type=""text"" name=""name"" class=""smallinput"" value=""" ) '29
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '29
    Response.Write ( """ disabled>" & Chr ( 13 ) ) '29
    Response.Write ( "                </td>" & Chr ( 13 ) ) '30
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '31
    Response.Write ( "              <!--<tr>" & Chr ( 13 ) ) '32
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30"">称呼：</td>" & Chr ( 13 ) ) '33
    Response.Write ( "                <td width=""85%"" height=""30"">" & Chr ( 13 ) ) '34
    Response.Write ( "                  <input type=""text"" name=""nickname""" & Chr ( 13 ) ) '35
    Response.Write ( "          class=""smallinput"" value=""" ) '36
    Response.Write ( """>" & Chr ( 13 ) ) '36
    Response.Write ( "                </td>" & Chr ( 13 ) ) '37
    Response.Write ( "              </tr>-->" & Chr ( 13 ) ) '38
    Response.Write ( "              <tr> " & Chr ( 13 ) ) '39
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30""> " & Chr ( 13 ) ) '40
    Response.Write ( "                  <p>密码：</p>" & Chr ( 13 ) ) '41
    Response.Write ( "                </td>" & Chr ( 13 ) ) '42
    Response.Write ( "                <td width=""85%"" height=""30""> " & Chr ( 13 ) ) '43
    Response.Write ( "                  <input type=""text"" class=""smallinput"" value=""" ) '44
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_password" ) .Value) ) '44
    Response.Write ( """ name=""password"">" & Chr ( 13 ) ) '44
    Response.Write ( "                </td>" & Chr ( 13 ) ) '45
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '46
    Response.Write ( "             <tr> " & Chr ( 13 ) ) '47
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30""> " & Chr ( 13 ) ) '48
    Response.Write ( "                  <p>查询密码问题：</p>" & Chr ( 13 ) ) '49
    Response.Write ( "                </td>" & Chr ( 13 ) ) '50
    Response.Write ( "                <td width=""85%"" height=""30""> " & Chr ( 13 ) ) '51
    Response.Write ( "                  <input name=""clubuser_question"" type=""text"" class=""smallinput"" value=""" ) '52
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_question" ) .Value) ) '52
    Response.Write ( """ size=""30"">" & Chr ( 13 ) ) '52
    Response.Write ( "                </td>" & Chr ( 13 ) ) '53
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '54
    Response.Write ( "              <tr> " & Chr ( 13 ) ) '55
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30""> " & Chr ( 13 ) ) '56
    Response.Write ( "                  <p>查询密码答案：</p>" & Chr ( 13 ) ) '57
    Response.Write ( "                </td>" & Chr ( 13 ) ) '58
    Response.Write ( "                <td width=""85%"" height=""30""> " & Chr ( 13 ) ) '59
    Response.Write ( "                  <input name=""clubuser_answer"" type=""text"" class=""smallinput"" value=""" ) '60
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_answer" ) .Value) ) '60
    Response.Write ( """ size=""30"">" & Chr ( 13 ) ) '60
    Response.Write ( "                </td>" & Chr ( 13 ) ) '61
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '62
    Response.Write ( "             <tr> " & Chr ( 13 ) ) '63
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30""> " & Chr ( 13 ) ) '64
    Response.Write ( "                  <p>金钱：</p>" & Chr ( 13 ) ) '65
    Response.Write ( "                </td>" & Chr ( 13 ) ) '66
    Response.Write ( "                <td width=""85%"" height=""30""> " & Chr ( 13 ) ) '67
    Response.Write ( "                  <input name=""clubuser_money"" type=""text"" class=""smallinput"" id=""clubuser_money"" value=""" ) '68
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) ) '68
    Response.Write ( """>" & Chr ( 13 ) ) '68
    Response.Write ( "               </td>" & Chr ( 13 ) ) '69
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '70
    Response.Write ( "             <tr> " & Chr ( 13 ) ) '71
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30""> " & Chr ( 13 ) ) '72
    Response.Write ( "                  <p>积分：</p>" & Chr ( 13 ) ) '73
    Response.Write ( "                </td>" & Chr ( 13 ) ) '74
    Response.Write ( "                <td width=""85%"" height=""30""> " & Chr ( 13 ) ) '75
    Response.Write ( "                  <input name=""jingyuan"" type=""text"" class=""smallinput"" id=""jingyuan"" value=""" ) '76
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) ) '76
    Response.Write ( """>" & Chr ( 13 ) ) '76
    Response.Write ( "              <a href=""../help.aspx"">查看帮助</a></td>" & Chr ( 13 ) ) '77
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '78
    Response.Write ( "              <tr> " & Chr ( 13 ) ) '79
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30""> " & Chr ( 13 ) ) '80
    Response.Write ( "                  <p>体力：</p>" & Chr ( 13 ) ) '81
    Response.Write ( "                </td>" & Chr ( 13 ) ) '82
    Response.Write ( "                <td width=""85%"" height=""30""> " & Chr ( 13 ) ) '83
    Response.Write ( "                  <input name=""tili"" type=""text"" class=""smallinput"" id=""tili"" value=""" ) '84
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "tili" ) .Value) ) '84
    Response.Write ( """>" & Chr ( 13 ) ) '84
    Response.Write ( "              <a href=""../help.aspx"">查看帮助</a></td>" & Chr ( 13 ) ) '85
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '86
    Response.Write ( "              <tr>" & Chr ( 13 ) ) '87
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30"">电话：</td>" & Chr ( 13 ) ) '88
    Response.Write ( "                <td width=""85%"" height=""30"">" & Chr ( 13 ) ) '89
    Response.Write ( "                  <input type=""text"" name=""phone"" class=""smallinput"" value=""" ) '90
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_phone" ) .Value) ) '90
    Response.Write ( """>" & Chr ( 13 ) ) '90
    Response.Write ( "                </td>" & Chr ( 13 ) ) '91
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '92
    Response.Write ( "              <tr>" & Chr ( 13 ) ) '93
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30"">传真：</td>" & Chr ( 13 ) ) '94
    Response.Write ( "                <td width=""85%"" height=""30"">" & Chr ( 13 ) ) '95
    Response.Write ( "                  <input type=""text"" name=""fax"" class=""smallinput"" value=""" ) '96
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_fax" ) .Value) ) '96
    Response.Write ( """>" & Chr ( 13 ) ) '96
    Response.Write ( "                </td>" & Chr ( 13 ) ) '97
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '98
    Response.Write ( "              <tr>" & Chr ( 13 ) ) '99
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30"">网址：</td>" & Chr ( 13 ) ) '100
    Response.Write ( "                <td width=""85%"" height=""30"">" & Chr ( 13 ) ) '101
    Response.Write ( "                  <input name=""url"" type=""text"" class=""smallinput"" value=""" ) '102
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_url" ) .Value) ) '102
    Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '102
    Response.Write ( "                </td>" & Chr ( 13 ) ) '103
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '104
    Response.Write ( "              <tr>" & Chr ( 13 ) ) '105
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30"">电子信箱：</td>" & Chr ( 13 ) ) '106
    Response.Write ( "                <td width=""85%"" height=""30"" valign=""top""> " & Chr ( 13 ) ) '107
    Response.Write ( "                  <input name=""email"" type=""text"" class=""smallinput"" value=""" ) '108
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_email" ) .Value) ) '108
    Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '108
    Response.Write ( "                </td>" & Chr ( 13 ) ) '109
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '110
    Response.Write ( "              <tr>" & Chr ( 13 ) ) '111
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30"">地址：</td>" & Chr ( 13 ) ) '112
    Response.Write ( "                <td width=""85%"" height=""30"">" & Chr ( 13 ) ) '113
    Response.Write ( "                  <input name=""address"" type=""text"" class=""smallinput"" value=""" ) '114
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_address" ) .Value) ) '114
    Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '114
    Response.Write ( "                </td>" & Chr ( 13 ) ) '115
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '116
    Response.Write ( "              <tr>" & Chr ( 13 ) ) '117
    Response.Write ( "                <td width=""15%"" align=""right"" height=""30"" valign=""top"">备注：</td>" & Chr ( 13 ) ) '118
    Response.Write ( "                <td width=""85%"" height=""30"">" & Chr ( 13 ) ) '119
    Response.Write ( "                  <textarea rows=""8"" name=""note"" cols=""50"" class=""smallarea"">" ) '120
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_note" ) .Value) ) '120
    Response.Write ( "</textarea>" & Chr ( 13 ) ) '120
    Response.Write ( "                </td>" & Chr ( 13 ) ) '121
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

#ASP #NET #DLL #BBS
⌨️ 快捷键说明

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