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

    Public AspToAspX_Host_Class_Object As Object

Public i
Public id
Public xiao
Public da
Public classx
Public nick
Public add
Public sql
Public root
Public pagestr
Public AspToAspX_Str
Public rs As ADODB.Recordset
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
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_PAGEFUN As _PAGEFUN
#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_PAGEFUN = New _PAGEFUN()
        ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_PAGEFUN.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_PAGEFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_PAGEFUN = 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_PAGEFUN.AspToAspX_Page_Init ( )
    id = Request ( "id" ) '5
    xiao = trim ( Request ( "xiao" ) ) '6
    da = trim ( Request ( "da" ) ) '7
    classx = trim ( Request ( "classx" ) ) '8
    nick = trim ( Request ( "nick" ) ) '9
    add = trim ( Request ( "add" ) ) '10
    If AspToAspX_CheckDBNull ( nick ) < > EmptyString.Value And AspToAspX_CheckDBNull ( da ) < > EmptyString.Value And AspToAspX_CheckDBNull ( xiao ) < > EmptyString.Value And AspToAspX_CheckDBNull ( classx ) < > EmptyString.Value Then '11
        If AspToAspX_CheckDBNull ( add ) < > "ok" Then '12
            sql = "update " & ft & "ftbbs_touxian set xiao=" & xiao & ",da=" & da & ",nick='" & nick & "',classx='" & classx & "' where id=" & id '13
            conn.Execute ( sql ) '14
        Else '15
            sql = "insert into " & ft & "ftbbs_touxian (xiao,da,nick,classx) values('" & xiao & "','" & da & "','" & nick & "','" & classx & "')" '16
            conn.Execute ( sql ) '17
        End If '18
    End If '19
    root = "../" '20
    pagestr = "" '21
    AspToAspX_Str = "select * from " & ft & "ftbbs_touxian order by id asc" '22
    rs = New ADODB.Recordset ( ) '23
    rs.Open ( AspToAspX_Str , conn , 1 , 1 ) '24
    If Not rs.EOF Then '25
        wzrep = 30 '26
        wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '27
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '28
        rs.PageSize = wzrep '29
        rs.AbsolutePage = wzpage '30
        wzpagecount = rs.PageCount '31
        wzcount = rs.RecordCount '32
        Response.Write ( vbCrLf )
        Response.Write ( "<html>" & Chr ( 13 ) ) '34
        Response.Write ( "<head>" & Chr ( 13 ) ) '35
        Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '36
        Response.Write ( "<title>无标题文档</title>" & Chr ( 13 ) ) '37
        Response.Write ( "<link href=""../css/main01.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '38
        Response.Write ( "</head>" & Chr ( 13 ) ) '39
        Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '40
        Response.Write ( "<table width=""99%"" border=""0"" bgcolor=""#f1f1f1"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '41
        Response.Write ( "  <tr bgcolor=""#f3f3f3"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '42
        Response.Write ( "    <td height=""25"" colspan=""2"" bgcolor=""#f3f3f3""><strong>头衔管理</strong></td>" & Chr ( 13 ) ) '43
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '44
        Response.Write ( "  <tr bgcolor=""#FFFFFF"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '45
        Response.Write ( "    <td height=""25"">序号</td>" & Chr ( 13 ) ) '46
        Response.Write ( "    <td width=""96%"" height=""25""> <div align=""left"">积分值（以下所填积分值必须符合<a href=""../help.aspx"">算法规则</a>规则才行）</div></td>" & Chr ( 13 ) ) '47
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '48
        Response.Write ( "  " ) '49
        For i = 0 To Val ( wzrep ) - 1 '50
        If rs.EOF Then
Exit For
End If
    '51
            Response.Write ( vbCrLf )
            Response.Write ( "  <tr bgcolor=""#FFFFFF"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '53
            Response.Write ( "    <form name=""form1"" method=""post"" action="""">" & Chr ( 13 ) ) '54
            Response.Write ( "      <td width=""4%"" height=""25"">" ) '55
            Response.Write ( i + 1 ) '55
            Response.Write ( "</td>" & Chr ( 13 ) ) '55
            Response.Write ( "      <td align=""left""> 积分值在 " & Chr ( 13 ) ) '56
            Response.Write ( "        <input name=""xiao"" type=""text"" id=""xiao"" value=""" ) '57
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "xiao" ) .Value) ) '57
            Response.Write ( """ size=""10"">" & Chr ( 13 ) ) '57
            Response.Write ( "        到 " & Chr ( 13 ) ) '58
            Response.Write ( "        <input name=""da"" type=""text"" id=""da"" value=""" ) '59
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "da" ) .Value) ) '59
            Response.Write ( """ size=""10"">" & Chr ( 13 ) ) '59
            Response.Write ( "        范围内头衔为 " & Chr ( 13 ) ) '60
            Response.Write ( "        <input name=""nick"" type=""text"" id=""nick"" value=""" ) '61
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "nick" ) .Value) ) '61
            Response.Write ( """ size=""12"">" & Chr ( 13 ) ) '61
            Response.Write ( "        级别图标" & Chr ( 13 ) ) '62
            Response.Write ( "        <input name=""classx"" type=""text"" id=""classx"" value=""" ) '63
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "classx" ) .Value) ) '63
            Response.Write ( """ size=""22""> " & Chr ( 13 ) ) '63
            Response.Write ( "        <input type=""submit"" name=""Submit"" value=""修改"" " ) '64
            If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 2 ) ) < = 0 Then '64
                Response.Write ( "disabled" ) '64
            End If '64
            Response.Write ( "> " & Chr ( 13 ) ) '64
            Response.Write ( "        <input name=""id"" type=""hidden"" id=""id"" value=""" ) '65
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '65
            Response.Write ( """>" & Chr ( 13 ) ) '65
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<a href=""deltouxian.aspx?id=" ) '66
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '66
            Response.Write ( """>删除</a>" & Chr ( 13 ) ) '66
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '67
            Response.Write ( "    </form>" & Chr ( 13 ) ) '68
            Response.Write ( "  </tr>" & Chr ( 13 ) ) '69
            Response.Write ( "  " ) '70
            rs.MoveNext ( ) '71
        Next '72
        rs.Close ( ) '73
        Response.Write ( vbCrLf )
        Response.Write ( "   <tr bgcolor=""#FFFFFF"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '75
        Response.Write ( "    <form name=""form1"" method=""post"" action="""">" & Chr ( 13 ) ) '76
        Response.Write ( "      <td width=""4%"" height=""40"">&nbsp;</td>" & Chr ( 13 ) ) '77
        Response.Write ( "      <td align=""left""> 积分值在 " & Chr ( 13 ) ) '78
        Response.Write ( "        <input name=""xiao"" type=""text"" id=""xiao"" size=""10"">" & Chr ( 13 ) ) '79
        Response.Write ( "        到 " & Chr ( 13 ) ) '80
        Response.Write ( "        <input name=""da"" type=""text"" id=""da"" size=""10"">" & Chr ( 13 ) ) '81
        Response.Write ( "        范围内头衔为 " & Chr ( 13 ) ) '82
        Response.Write ( "        <input name=""nick"" type=""text"" id=""nick"" size=""12"">" & Chr ( 13 ) ) '83
        Response.Write ( "        级别图标" & Chr ( 13 ) ) '84
        Response.Write ( "        <input name=""classx"" type=""text"" id=""classx"" size=""22""> " & Chr ( 13 ) ) '85
        Response.Write ( "        <input type=""submit"" name=""Submit"" value=""添加"" " ) '86
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 1 ) ) < = 0 Then '86
            Response.Write ( "disabled" ) '86
        End If '86
        Response.Write ( ">" & Chr ( 13 ) ) '86
        Response.Write ( "        <input name=""add"" type=""hidden"" id=""add"" value=""ok""> </td>" & Chr ( 13 ) ) '87
        Response.Write ( "    </form>" & Chr ( 13 ) ) '88
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '89
        Response.Write ( "  <tr align=center bgcolor=""#F3F3F3"" class=""f12""> " & Chr ( 13 ) ) '90
        Response.Write ( "    <td height=""28"" colspan=""12"" align=""left""> " ) '91
        Response.Write ( "</td>" & Chr ( 13 ) ) '91
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '92
        Response.Write ( "  " ) '93
    Else '93
    Response.Write ( vbCrLf )
        Response.Write ( "  <tr bgcolor=""#F2F9F9""> " & Chr ( 13 ) ) '94
        Response.Write ( "    <td height=""25"" colspan=12 class=""f12""> <div align=center> 找不到纪录！ </div></td>" & Chr ( 13 ) ) '95
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '96
        Response.Write ( "  " ) '97
    End If '97
    Response.Write ( vbCrLf )
    Response.Write ( "</table>" & Chr ( 13 ) ) '98
    Response.Write ( "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '99
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '100
    Response.Write ( "    <td height=""35"" colspan=""6"" class=""f12""><font color=""#FF0000""><strong>以下是级别图标说明：</strong><font color=""#000000"">(如要修改上面的级别图标请参照下面的说明，如要自定义级别图标请<font color=""#FF0000"">上传</font>自定义的图标并输入对应路径)</font></font></td>" & Chr ( 13 ) ) '101
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '102
    Response.Write ( "  <tr> " & Chr ( 13 ) ) '103
    Response.Write ( "    <td width=""9%"" height=""25"" class=""f12"">级别图标</td>" & Chr ( 13 ) ) '104
    Response.Write ( "    <td width=""18%"" class=""f12"">级别图标路径</td>" & Chr ( 13 ) ) '105
    Response.Write ( "    <td width=""9%"" class=""f12"">级别图标</td>" & Chr ( 13 ) ) '106
    Response.Write ( "    <td width=""18%"" class=""f12"">级别图标路径</td>" & Chr ( 13 ) ) '107
    Response.Write ( "    <td width=""9%"" class=""f12"">级别图标</td>" & Chr ( 13 ) ) '108
    Response.Write ( "    <td width=""44%"" class=""f12"">级别图标路径</td>" & Chr ( 13 ) ) '109
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '110
    Response.Write ( "  <tr class=""f12""> " & Chr ( 13 ) ) '111
    Response.Write ( "    <td height=""25""><img src=""../userheadimg/class1.gif"" width=""63"" height=""10""></td>" & Chr ( 13 ) ) '112
    Response.Write ( "    <td>userheadimg/class1.gif</td>" & Chr ( 13 ) ) '113
    Response.Write ( "    <td><img src=""../userheadimg/class2.gif"" width=""64"" height=""10""></td>" & Chr ( 13 ) ) '114
    Response.Write ( "    <td>userheadimg/class2.gif</td>" & Chr ( 13 ) ) '115
    Response.Write ( "    <td><img src=""../userheadimg/class3.gif"" width=""63"" height=""10""></td>" & Chr ( 13 ) ) '116
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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