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

    Public AspToAspX_Host_Class_Object As Object

Public searchcontent
Public AspToAspX_Str
Public rs As ADODB.Recordset
Public page
Public ipagesize
Public i
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public searchkind
    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 ( )
    searchcontent = trim ( Request ( "searchcontent" ) ) '4
    If AspToAspX_CheckDBNull ( searchcontent ) < > EmptyString.Value Then '5
        AspToAspX_Str = "select * from " & ft & "ftbbs_admin where admin_user like '%" & searchcontent & "%' order by id desc" '6
    Else '7
        If AspToAspX_CheckDBNull ( Session ( "qs" ) ) = 2 Then '8
            AspToAspX_Str = "select * from " & ft & "ftbbs_admin order by id desc" '9
        Else '10
            AspToAspX_Str = "select * from " & ft & "ftbbs_admin where admin_user='" & Session ( "admin_user" ) & "' order by id desc" '11
        End If '12
    End If '13
    rs = New ADODB.Recordset ( ) '14
    rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '15
    page = Request ( "page" ) '16
    If AspToAspX_CheckDBNull ( page ) = EmptyString.Value Then '17
        page = 1 '18
    Else '19
        page = AspToAspX_CInt ( trim ( Request ( "page" ) ) ) '20
    End If '21
    ipagesize = 20 '22
    rs.pagesize = ipagesize '23
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '25
    Response.Write ( "<head>" & Chr ( 13 ) ) '26
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '27
    Response.Write ( "<title>无标题文档</title>" & Chr ( 13 ) ) '28
    Response.Write ( "<link href=""../css/xmwuye.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '29
    Response.Write ( "</head>" & Chr ( 13 ) ) '30
    Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '31
    Response.Write ( "<br>" & Chr ( 13 ) ) '32
    Response.Write ( "<table width=""98%"" border=""0"" align=""center"">" & Chr ( 13 ) ) '33
    Response.Write ( "  <TR align=center>" & Chr ( 13 ) ) '34
    Response.Write ( "<FORM METHOD=POST ACTION=""" ) '35
    Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '35
    Response.Write ( """ >" & Chr ( 13 ) ) '35
    Response.Write ( "" & Chr ( 9 ) & "  <TD> " & Chr ( 13 ) ) '36
    Response.Write ( "        <INPUT TYPE=""text"" NAME=""searchcontent"" size=20>" & Chr ( 13 ) ) '37
    Response.Write ( "        <INPUT TYPE=""submit"" value=""搜索"" name="""" " ) '38
    If AspToAspX_CheckDBNull ( Session ( "qs" ) ) < > 2 Then '38
        Response.Write ( "disabled" ) '38
    End If '38
    Response.Write ( ">" & Chr ( 13 ) ) '38
    Response.Write ( "        <a href=""addadmin.aspx"">添加管理员</a></TD>" & Chr ( 13 ) ) '39
    Response.Write ( "</FORM>" & Chr ( 13 ) ) '40
    Response.Write ( "</TR>" & Chr ( 13 ) ) '41
    Response.Write ( "</TABLE>" & Chr ( 13 ) ) '42
    Response.Write ( "<table width=""98%"" border=""0"" bgcolor=""#333333"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '43
    Response.Write ( "  <tr bgcolor=""#cccccc"" align=center> " & Chr ( 13 ) ) '44
    Response.Write ( "    <td height=""20"" width=""6%"">编号</td>" & Chr ( 13 ) ) '45
    Response.Write ( "    <td width=""17%"">用户名</td>" & Chr ( 13 ) ) '46
    Response.Write ( "    <td bgcolor=""#cccccc"" width=""20%"">密码</td>" & Chr ( 13 ) ) '47
    Response.Write ( "    <td width=""26%"" bgcolor=""#cccccc"">最后登录时间</td>" & Chr ( 13 ) ) '48
    Response.Write ( "    <td width=""12%"">身份</td>" & Chr ( 13 ) ) '49
    Response.Write ( "    <td width=""12%"">修改</td>" & Chr ( 13 ) ) '50
    Response.Write ( "    <td width=""7%"">删除</td>" & Chr ( 13 ) ) '51
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '52
    Response.Write ( "  " ) '53
    If Not rs.EOF Then '53
        rs.absolutepage = page '54
        i = 1 '55
        Do While Not rs.EOF '56
            Response.Write ( vbCrLf )
            Response.Write ( "  <tr bgcolor=""#FFFFFF"" align=center> " & Chr ( 13 ) ) '58
            Response.Write ( "    <td height=""20"">" ) '59
            Response.Write ( i ) '59
            Response.Write ( "</td>" & Chr ( 13 ) ) '59
            Response.Write ( "    <td>" ) '60
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "admin_user" ) .Value) ) '60
            Response.Write ( "</td>" & Chr ( 13 ) ) '60
            Response.Write ( "    <td>" ) '61
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "admin_pwd" ) .Value) ) '61
            Response.Write ( "</td>" & Chr ( 13 ) ) '61
            Response.Write ( "    <td>" ) '62
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "lasttime" ) .Value) ) '62
            Response.Write ( "</td>" & Chr ( 13 ) ) '62
            Response.Write ( "    <td> " & Chr ( 13 ) ) '63
            Response.Write ( "      " ) '64
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "qs" ) .Value) ) = 1 Then '64
            Response.Write ( vbCrLf )
                Response.Write ( "      普通管理员" & Chr ( 13 ) ) '65
                Response.Write ( "      " ) '66
            Else '66
            Response.Write ( vbCrLf )
                Response.Write ( "      <font color=""#FF0000"">超级管理员</font>" & Chr ( 13 ) ) '67
                Response.Write ( "      " ) '68
            End If '68
            Response.Write ( vbCrLf )
            Response.Write ( "    </td>" & Chr ( 13 ) ) '69
            Response.Write ( "    <td><A HREF=""modadmin.aspx?id=" ) '70
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '70
            Response.Write ( "&mod_user=" ) '70
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "admin_user" ) .Value) ) '70
            Response.Write ( """>[修改密码]</A></td>" & Chr ( 13 ) ) '70
            Response.Write ( "    <td><A HREF=""opadmin.aspx?op=del&id=" ) '71
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '71
            Response.Write ( """>[删除]</A></td>" & Chr ( 13 ) ) '71
            Response.Write ( "  </tr>" & Chr ( 13 ) ) '72
            Response.Write ( "  " ) '73
            rs.MoveNext ( ) '74
            i = i + 1 '75
        If AspToAspX_CheckDBNull ( i ) > ipagesize Then
Exit Do
End If
    '76
        Loop '77
        Response.Write ( vbCrLf )
        Response.Write ( "  <tr align=center bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '79
        Response.Write ( "    <td colspan=""15""> <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '80
        Response.Write ( "        <tr> " & Chr ( 13 ) ) '81
        Response.Write ( "          <td width=""77%""> <div align=""center"">共" ) '82
        Response.Write ( rs.RecordCount ) '82
        Response.Write ( "个 第" ) '82
        Response.Write ( page ) '82
        Response.Write ( "页/共" ) '82
        Response.Write ( rs.pagecount ) '82
        Response.Write ( "页　 " & Chr ( 13 ) ) '82
        Response.Write ( "              " ) '83
        If AspToAspX_CheckDBNull ( page ) > 1 Then '83
        Response.Write ( vbCrLf )
            Response.Write ( "              <a href=""" ) '84
            Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '84
            Response.Write ( "?page=1&searchcontent=" ) '84
            Response.Write ( searchcontent ) '84
            Response.Write ( "&searchkind=" ) '84
            Response.Write ( searchkind ) '84
            Response.Write ( """>［首　页］</a> " & Chr ( 13 ) ) '84
            Response.Write ( "              " ) '85
        Else '85
        Response.Write ( vbCrLf )
            Response.Write ( "              ［首　页］ " & Chr ( 13 ) ) '86
            Response.Write ( "              " ) '87
        End If '87
        Response.Write ( vbCrLf )
        Response.Write ( "              " ) '88
        If AspToAspX_CheckDBNull ( page ) > 1 Then '88
        Response.Write ( vbCrLf )
            Response.Write ( "              <a href=""" ) '89
            Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '89
            Response.Write ( "?page=" ) '89
            Response.Write ( page - 1 ) '89
            Response.Write ( "&searchcontent=" ) '89
            Response.Write ( searchcontent ) '89
            Response.Write ( "&searchkind=" ) '89
            Response.Write ( searchkind ) '89
            Response.Write ( """>［上一页］</a> " & Chr ( 13 ) ) '89
            Response.Write ( "              " ) '90
        Else '90
        Response.Write ( vbCrLf )
            Response.Write ( "              ［上一页］ " & Chr ( 13 ) ) '91
            Response.Write ( "              " ) '92
        End If '92
        Response.Write ( vbCrLf )
        Response.Write ( "              " ) '93
        If AspToAspX_CheckDBNull ( page ) < rs.pagecount Then '93
        Response.Write ( vbCrLf )
            Response.Write ( "              <a href=""" ) '94
            Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '94
            Response.Write ( "?page=" ) '94
            Response.Write ( page + 1 ) '94
            Response.Write ( "&searchcontent=" ) '94
            Response.Write ( searchcontent ) '94
            Response.Write ( "&searchkind=" ) '94
            Response.Write ( searchkind ) '94
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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