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

    Public AspToAspX_Host_Class_Object As Object

Public ope
Public id
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 ( )
    Response.Write ( "<html>" & Chr ( 13 ) ) '3
    Response.Write ( "<head>" & Chr ( 13 ) ) '4
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '5
    Response.Write ( "<title>无标题文档</title>" & Chr ( 13 ) ) '6
    Response.Write ( "<link href=""../css/xmwuye.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '7
    Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '8
    Response.Write ( "<!--" & Chr ( 13 ) ) '9
    Response.Write ( "" & Chr ( 9 ) & "function check(form)" & Chr ( 13 ) ) '10
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "{" & Chr ( 13 ) ) '11
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if (form.content.value=="""")" & Chr ( 13 ) ) '12
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "{" & Chr ( 13 ) ) '13
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写内容！"");" & Chr ( 13 ) ) '14
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "form.content.focus();" & Chr ( 13 ) ) '15
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '16
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '17
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "return true;" & Chr ( 13 ) ) '18
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '19
    Response.Write ( "//-->" & Chr ( 13 ) ) '20
    Response.Write ( "</script>" & Chr ( 13 ) ) '21
    Response.Write ( "</head>" & Chr ( 13 ) ) '22
    Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '23
    ope = Request ( "ope" ) '25
    If AspToAspX_CheckDBNull ( ope ) = "add" Then '26
        Response.Write ( vbCrLf )
        Response.Write ( "<form name=""form1"" method=""post"" action=""bbs_arrest_ope_act.aspx?ope=add"" onsubmit=""return check(this)"">" & Chr ( 13 ) ) '28
        Response.Write ( "  <table width=""70%"" border=""0"" align=""center"" bgcolor=""#666666"" cellspacing=""1"" cellpadding=""0"">" & Chr ( 13 ) ) '29
        Response.Write ( "    <tr bgcolor=""#cccccc""> " & Chr ( 13 ) ) '30
        Response.Write ( "      <td colspan=""2"" height=""25""> " & Chr ( 13 ) ) '31
        Response.Write ( "        <div align=""center"">关键词、IP限制</div>" & Chr ( 13 ) ) '32
        Response.Write ( "      </td>" & Chr ( 13 ) ) '33
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '34
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '35
        Response.Write ( "      <td width=""30%"" height=""25""> " & Chr ( 13 ) ) '36
        Response.Write ( "        <div align=""right"">类别：</div>" & Chr ( 13 ) ) '37
        Response.Write ( "      </td>" & Chr ( 13 ) ) '38
        Response.Write ( "      <td>" & Chr ( 13 ) ) '39
        Response.Write ( "        <select name=""kind"">" & Chr ( 13 ) ) '40
        Response.Write ( "          <option value=""Keyword"">关键词</option>" & Chr ( 13 ) ) '41
        Response.Write ( "          <option value=""IP"" selected>IP地址</option>" & Chr ( 13 ) ) '42
        Response.Write ( "        </select>" & Chr ( 13 ) ) '43
        Response.Write ( "      </td>" & Chr ( 13 ) ) '44
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '45
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '46
        Response.Write ( "      <td height=""25""> " & Chr ( 13 ) ) '47
        Response.Write ( "        <div align=""right"">内容：</div>" & Chr ( 13 ) ) '48
        Response.Write ( "      </td>" & Chr ( 13 ) ) '49
        Response.Write ( "      <td>" & Chr ( 13 ) ) '50
        Response.Write ( "        <input type=""text"" name=""content"">" & Chr ( 13 ) ) '51
        Response.Write ( "      </td>" & Chr ( 13 ) ) '52
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '53
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '54
        Response.Write ( "      <td height=""30"" colspan=""2""> " & Chr ( 13 ) ) '55
        Response.Write ( "        <div align=""center""> " & Chr ( 13 ) ) '56
        Response.Write ( "          <input type=""submit"" name=""Submit"" value=""提交"" " ) '57
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 1 ) ) < = 0 Then '57
            Response.Write ( "disabled" ) '57
        End If '57
        Response.Write ( ">" & Chr ( 13 ) ) '57
        Response.Write ( "          <input type=""reset"" name=""Submit2"" value=""重置"">" & Chr ( 13 ) ) '58
        Response.Write ( "        </div>" & Chr ( 13 ) ) '59
        Response.Write ( "      </td>" & Chr ( 13 ) ) '60
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '61
        Response.Write ( "  </table>" & Chr ( 13 ) ) '62
        Response.Write ( "</form>" & Chr ( 13 ) ) '63
    ElseIf AspToAspX_CheckDBNull ( ope ) = "mod"Then '64
        id = Request ( "id" ) '65
        sql = "select * from " & ft & "bbs_arrest where id=" & id '66
        rs = New ADODB.Recordset ( ) '67
        rs.Open ( sql , conn , 1 , 1 ) '68
        Response.Write ( vbCrLf )
        Response.Write ( "<form name=""form1"" method=""post"" action=""bbs_arrest_ope_act.aspx?ope=mod&id=" ) '70
        Response.Write ( id ) '70
        Response.Write ( """ onsubmit=""return check(this)"">" & Chr ( 13 ) ) '70
        Response.Write ( "  <table width=""70%"" border=""0"" align=""center"" bgcolor=""#666666"" cellspacing=""1"" cellpadding=""0"">" & Chr ( 13 ) ) '71
        Response.Write ( "    <tr bgcolor=""#cccccc""> " & Chr ( 13 ) ) '72
        Response.Write ( "      <td colspan=""2"" height=""25""> " & Chr ( 13 ) ) '73
        Response.Write ( "        <div align=""center"">关键词、IP限制</div>" & 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 width=""30%"" height=""25""> " & Chr ( 13 ) ) '78
        Response.Write ( "        <div align=""right"">类别：</div>" & Chr ( 13 ) ) '79
        Response.Write ( "      </td>" & Chr ( 13 ) ) '80
        Response.Write ( "      <td>" & Chr ( 13 ) ) '81
        Response.Write ( "        <select name=""kind"">" & Chr ( 13 ) ) '82
        Response.Write ( "          <option value=""Keyword"" " ) '83
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "kind" ) .Value) ) = "Keyword" Then '83
            Response.Write ( "selected" ) '83
        End If '83
        Response.Write ( ">关键词</option>" & Chr ( 13 ) ) '83
        Response.Write ( "          <option value=""IP"" " ) '84
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "kind" ) .Value) ) = "IP" Then '84
            Response.Write ( "selected" ) '84
        End If '84
        Response.Write ( ">IP地址</option>" & Chr ( 13 ) ) '84
        Response.Write ( "        </select>" & Chr ( 13 ) ) '85
        Response.Write ( "      </td>" & Chr ( 13 ) ) '86
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '87
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '88
        Response.Write ( "      <td height=""25""> " & Chr ( 13 ) ) '89
        Response.Write ( "        <div align=""right"">内容：</div>" & Chr ( 13 ) ) '90
        Response.Write ( "      </td>" & Chr ( 13 ) ) '91
        Response.Write ( "      <td>" & Chr ( 13 ) ) '92
        Response.Write ( "        <input type=""text"" name=""content"" value=""" ) '93
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "content" ) .Value) ) '93
        Response.Write ( """>" & Chr ( 13 ) ) '93
        Response.Write ( "      </td>" & Chr ( 13 ) ) '94
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '95
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '96
        Response.Write ( "      <td height=""30"" colspan=""2""> " & Chr ( 13 ) ) '97
        Response.Write ( "        <div align=""center""> " & Chr ( 13 ) ) '98
        Response.Write ( "          <input type=""submit"" name=""Submit"" value=""提交"" " ) '99
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 2 ) ) < = 0 Then '99
            Response.Write ( "disabled" ) '99
        End If '99
        Response.Write ( ">" & Chr ( 13 ) ) '99
        Response.Write ( "          <input type=""reset"" name=""Submit2"" value=""重置"">" & Chr ( 13 ) ) '100
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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