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

    Public AspToAspX_Host_Class_Object As Object

Public BBS_Cate_ID
Public Layer
Public url
Public Layer_name
Public BBS_Cate_PID
Public sql
Public rsr
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 ( )
    BBS_Cate_ID = Request ( "BBS_Cate_ID" ) '4
    Layer = Request ( "Layer" ) '5
    url = AspToAspX_GetRequestServerVariables ( "http_referer" ) '6
    If AspToAspX_CheckDBNull ( Layer ) = "0" Then '7
        Layer_name = "一级类别" '8
        BBS_Cate_PID = 0 '9
    ElseIf AspToAspX_CheckDBNull ( Layer ) = "1"Then '10
        Layer_name = "二级类别" '11
    End If '12
    sql = "select * from " & ft & "BBS_CATE where BBS_Cate_ID='" & BBS_Cate_ID & "'" '13
    rsr = New ADODB.Recordset ( ) '14
    rsr.Open ( sql , conn , 1 , 1 ) '15
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '17
    Response.Write ( "<head>" & Chr ( 13 ) ) '18
    Response.Write ( "<title>修改论坛类别</title>" & Chr ( 13 ) ) '19
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '20
    Response.Write ( "<link href=""../css/xmwuye.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '21
    Response.Write ( "</head>" & Chr ( 13 ) ) '22
    Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '23
    Response.Write ( "  " & Chr ( 13 ) ) '24
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellspacing=""1"" bgcolor=""#999999"">" & Chr ( 13 ) ) '25
    Response.Write ( "  <form name=""form1"" method=""post"" action=""Category_mod_act.aspx"" onsubmit=""return CheckForm(this)"">" & Chr ( 13 ) ) '26
    Response.Write ( "    <tr bgcolor=""#CCCCCC""> " & Chr ( 13 ) ) '27
    Response.Write ( "      <td height=""25"" colspan=""2""> " & Chr ( 13 ) ) '28
    Response.Write ( "        <div align=""center""><b>" ) '29
    Response.Write ( Layer_name ) '29
    Response.Write ( "修改</b></div>" & Chr ( 13 ) ) '29
    Response.Write ( "      </td>" & Chr ( 13 ) ) '30
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '31
    Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '32
    Response.Write ( "      <td width=21% height=""23"">" ) '33
    Response.Write ( Layer_name ) '33
    Response.Write ( "名称：</td>" & Chr ( 13 ) ) '33
    Response.Write ( "      <td width=""79%""> " & Chr ( 13 ) ) '34
    Response.Write ( "        <input type=""text"" name=""BBS_Cate_Name"" size=""40"" value=""" ) '35
    Response.Write ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_Cate_Name" ) .Value) ) '35
    Response.Write ( """>" & Chr ( 13 ) ) '35
    Response.Write ( "      </td>" & Chr ( 13 ) ) '36
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '37
    Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '38
    Response.Write ( "      <td height=""23"">" ) '39
    Response.Write ( Layer_name ) '39
    Response.Write ( "版主：</td>" & Chr ( 13 ) ) '39
    Response.Write ( "      <td> " & Chr ( 13 ) ) '40
    Response.Write ( "        <input type=""text"" name=""BBS_Cate_Manager_Name"" size=""40"" value=""" ) '41
    Response.Write ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_Cate_Manager_Name" ) .Value) ) '41
    Response.Write ( """>" & Chr ( 13 ) ) '41
    Response.Write ( "      </td>" & Chr ( 13 ) ) '42
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '43
    Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '44
    Response.Write ( "      <td height=""23"">" ) '45
    Response.Write ( Layer_name ) '45
    Response.Write ( "版主Email：</td>" & Chr ( 13 ) ) '45
    Response.Write ( "      <td> " & Chr ( 13 ) ) '46
    Response.Write ( "        <input type=""text"" name=""BBS_Cate_Manager_Email"" size=""40"" value=""" ) '47
    Response.Write ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_Cate_Manager_Email" ) .Value) ) '47
    Response.Write ( """>" & Chr ( 13 ) ) '47
    Response.Write ( "      </td>" & Chr ( 13 ) ) '48
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '49
    Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '50
    Response.Write ( "      <td> <div align=""left"">论坛版块说明：</div></td>" & Chr ( 13 ) ) '51
    Response.Write ( "      <td> " & Chr ( 13 ) ) '52
    Response.Write ( "        <textarea name=""BBS_Cate_Note"" cols=""55"" rows=""8"">" ) '53
    Response.Write ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_Cate_Note" ) .Value) ) '53
    Response.Write ( "</textarea>" & Chr ( 13 ) ) '53
    Response.Write ( "        支持UBB代码 </td>" & Chr ( 13 ) ) '54
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '55
    Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '56
    Response.Write ( "      <td height=""23"">位置排列：</td>" & Chr ( 13 ) ) '57
    Response.Write ( "      <td> " & Chr ( 13 ) ) '58
    Response.Write ( "        <input name=""totop"" type=""text"" id=""totop"" value=""" ) '59
    Response.Write ( AspToAspX_CheckDBNull(rsr.Fields ( "totop" ) .Value) ) '59
    Response.Write ( """ size=""15"">" & Chr ( 13 ) ) '59
    Response.Write ( "        (数字小的排在前面) </td>" & Chr ( 13 ) ) '60
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '61
    Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '62
    Response.Write ( "      <td>论坛权限：</td>" & Chr ( 13 ) ) '63
    Response.Write ( "      <td><input name=""fangwenqs"" type=""radio"" value=""0"" " ) '64
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_cate_Qs" ) .Value) ) = 0 Then '64
        Response.Write ( " checked " ) '64
    End If '64
    Response.Write ( ">" & Chr ( 13 ) ) '64
    Response.Write ( "        所有用户都可以访问" & Chr ( 13 ) ) '65
    Response.Write ( "        <input type=""radio"" name=""fangwenqs"" value=""1"" " ) '66
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_cate_Qs" ) .Value) ) = 1 Then '66
        Response.Write ( " checked " ) '66
    End If '66
    Response.Write ( ">" & Chr ( 13 ) ) '66
    Response.Write ( "        只有注册用户才能访问<br>" & Chr ( 13 ) ) '67
    Response.Write ( "        <input type=""radio"" name=""fangwenqs"" value=""2"" " ) '68
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_cate_Qs" ) .Value) ) = 2 Then '68
        Response.Write ( " checked " ) '68
    End If '68
    Response.Write ( ">" & Chr ( 13 ) ) '68
    Response.Write ( "        认证用户才可以访问 " & Chr ( 13 ) ) '69
    Response.Write ( "        <input type=""radio"" name=""fangwenqs"" value=""3"" " ) '70
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_cate_Qs" ) .Value) ) = 3 Then '70
        Response.Write ( " checked " ) '70
    End If '70
    Response.Write ( ">" & Chr ( 13 ) ) '70
    Response.Write ( "        版主管理员才可以访问<br>" & Chr ( 13 ) ) '71
    Response.Write ( "        <input type=""radio"" name=""fangwenqs"" value=""4"" " ) '72
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_cate_Qs" ) .Value) ) = 4 Then '72
        Response.Write ( " checked " ) '72
    End If '72
    Response.Write ( ">" & Chr ( 13 ) ) '72
    Response.Write ( "        版主管理员可发贴回贴其他用户只可回贴<br>" & Chr ( 13 ) ) '73
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input type=""radio"" name=""fangwenqs"" value=""5"" " ) '74
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "BBS_cate_Qs" ) .Value) ) = 5 Then '74
        Response.Write ( " checked " ) '74
    End If '74
    Response.Write ( ">" & Chr ( 13 ) ) '74
    Response.Write ( "        版主管理员可发贴回贴其他用户只可看贴 </td>" & Chr ( 13 ) ) '75
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '76
    Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '77
    Response.Write ( "      <td height=""23"">树型状态：</td>" & Chr ( 13 ) ) '78
    Response.Write ( "      <td> <input type=""radio"" name=""tree"" value=""1"" " ) '79
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "treesign" ) .Value) ) = 1 Then '79
        Response.Write ( " checked " ) '79
    End If '79
    Response.Write ( ">" & Chr ( 13 ) ) '79
    Response.Write ( "        默认展开 " & Chr ( 13 ) ) '80
    Response.Write ( "        <input type=""radio"" name=""tree"" value=""0"" " ) '81
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsr.Fields ( "treesign" ) .Value) ) = 0 Then '81
        Response.Write ( " checked " ) '81
    End If '81
    Response.Write ( ">" & Chr ( 13 ) ) '81
    Response.Write ( "        默认收缩</td>" & Chr ( 13 ) ) '82
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '83
    Response.Write ( "" & Chr ( 9 ) & "" ) '84
    If AspToAspX_CheckDBNull ( Layer ) = 1 Then '84
    Response.Write ( vbCrLf )
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '85
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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