📄 user_manage.aspx.vb

📁 本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量基于ASP.NET的DLL可以运行在支持ASP
💻 VB
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
' ***************************************************
' *        本程序由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_MANAGE
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public sql
Public rs As ADODB.Recordset
Public i
Public seachstr
Public login_sort
Public tyname1
Public tyvalue1
Public tyname2
Public tyvalue2
Public str_sort
Public root
Public pagestr
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_INC_PUBLICFUN As _INC_PUBLICFUN
    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_INC_PUBLICFUN = New _INC_PUBLICFUN()
        ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_PUBLICFUN.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_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_PUBLICFUN = 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_INC_PUBLICFUN.AspToAspX_Page_Init ( )
    ASPX_PAGEFUN.AspToAspX_Page_Init ( )
    Response.Write ( "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & Chr ( 13 ) ) '5
    Response.Write ( "<html>" & Chr ( 13 ) ) '6
    Response.Write ( "<head>" & Chr ( 13 ) ) '7
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '8
    Response.Write ( "<link rel=""stylesheet"" href=""../css/main01.css"">" & Chr ( 13 ) ) '9
    Response.Write ( "</head>" & Chr ( 13 ) ) '10
    seachstr = Request ( "seachstr" ) '14
    login_sort = Request ( "login_sort" ) '15
    tyname1 = "seachstr" '16
    tyvalue1 = seachstr '17
    tyname2 = "kind" '18
    tyvalue2 = Request ( "kind" ) '19
    If AspToAspX_CheckDBNull ( login_sort ) = EmptyString.Value Then '20
        str_sort = "" '21
    Else '22
        str_sort = "clubuser_enter_count " & login_sort & "," '23
    End If '24
    root = "../" '25
    If AspToAspX_CheckDBNull ( seachstr ) < > EmptyString.Value Then '26
        pagestr = "&" & tyname2 & "=" & tyvalue2 & "&" & tyname1 & "=" & seachstr '27
    Else '28
        pagestr = "" '29
    End If '30
    If AspToAspX_CheckDBNull ( Request ( "seachstr" ) ) < > EmptyString.Value Then '31
        sql = "select clubuser_id,clubuser_name,clubuser_nickname,clubuser_password,clubuser_phone,clubuser_fax,clubuser_url,clubuser_email,clubuser_enter_count,clubuser_reg_date,clubuser_lasttime,clubuser_ip,payuser,bbsmanager,bbsadmin,jfmsign,bokeer from " & ft & "clubuser where " & Request ( "kind" ) & " like '%" & seachstr & "%' order by " & str_sort & " clubuser_id desc" '32
    Else '33
        sql = "select clubuser_id,clubuser_name,clubuser_nickname,clubuser_password,clubuser_phone,clubuser_fax,clubuser_url,clubuser_email,clubuser_enter_count,clubuser_reg_date,clubuser_lasttime,clubuser_ip,payuser,bbsmanager,bbsadmin,jfmsign,bokeer from " & ft & "clubuser order by " & str_sort & " clubuser_id desc" '34
    End If '35
    rs = New ADODB.Recordset ( ) '36
    rs.Open ( sql , conn , 3 , 1 ) '37
    Response.Write ( vbCrLf )
    Response.Write ( "<body leftmargin=""0"" topmargin=""5"">" & Chr ( 13 ) ) '39
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '40
    Response.Write ( "  <form name=""form1"" method=""post"" action=""user_manage.aspx"">" & Chr ( 13 ) ) '41
    Response.Write ( "      <tr bgcolor=""#d6dff7""> " & Chr ( 13 ) ) '42
    Response.Write ( "        <td height=""30"" align=""right"" bgcolor=""#f4f4f4"" class=""f12""><div align=""center"">搜索用户： " & Chr ( 13 ) ) '43
    Response.Write ( "            <input name=""seachstr"" type=""text"" id=""seachstr"" size=""20"">" & Chr ( 13 ) ) '44
    Response.Write ( "            <select name=""kind"">" & Chr ( 13 ) ) '45
    Response.Write ( "              <option value=""clubuser_id"" selected>用户ID号</option>" & Chr ( 13 ) ) '46
    Response.Write ( "              <option value=""clubuser_name"" >用户名</option>" & Chr ( 13 ) ) '47
    Response.Write ( "              <option value=""clubuser_ip"">IP地址</option>" & Chr ( 13 ) ) '48
    Response.Write ( "              <option value=""clubuser_email"">E-mail</option>" & Chr ( 13 ) ) '49
    Response.Write ( "            </select>" & Chr ( 13 ) ) '50
    Response.Write ( "            <input type=""submit"" name=""Submit"" value="" 搜 索 "">" & Chr ( 13 ) ) '51
    Response.Write ( "          </div></td>" & Chr ( 13 ) ) '52
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '53
    Response.Write ( "    </form>" & Chr ( 13 ) ) '54
    Response.Write ( "  </table>" & Chr ( 13 ) ) '55
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '56
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '57
    Response.Write ( "    <td width=""100%""> <TABLE width=100% border=0 align=center>" & Chr ( 13 ) ) '58
    Response.Write ( "        <FORM METHOD=POST ACTION=""user_manage.aspx"">" & Chr ( 13 ) ) '59
    Response.Write ( "          <TR align=right class=""f12""> " & Chr ( 13 ) ) '60
    Response.Write ( "            <TD width=""65%"" height=""23"" bgcolor=""#FFFFFF""> <div align=""left""><strong><font color=""#FF0000"">查找</font></strong>：<a href=""user_manage.aspx?kind=bbsmanager&seachstr=1"">总版主</a> " & Chr ( 13 ) ) '61
    Response.Write ( "                <a href=""user_manage.aspx?kind=bbsadmin&seachstr=1"">分版主</a> <a href=""user_manage.aspx?kind=payuser&seachstr=1"">认证用户</a> " & Chr ( 13 ) ) '62
    Response.Write ( "                <a href=""user_manage.aspx?kind=payuser&seachstr=3"">被封用户</a></div></TD>" & Chr ( 13 ) ) '63
    Response.Write ( "            <TD width=""35%"" bgcolor=""#FFFFFF"">登录次数排序： " & Chr ( 13 ) ) '64
    Response.Write ( "              <SELECT NAME=""login_sort"">" & Chr ( 13 ) ) '65
    Response.Write ( "                <option value=""desc"">降序 " & Chr ( 13 ) ) '66
    Response.Write ( "                <option value=""asc"">升序 </SELECT> <INPUT name=""submit"" TYPE=""submit"" value=""确定""></TD>" & Chr ( 13 ) ) '67
    Response.Write ( "          </TR>" & Chr ( 13 ) ) '68
    Response.Write ( "        </FORM>" & Chr ( 13 ) ) '69
    Response.Write ( "      </TABLE>" & Chr ( 13 ) ) '70
    Response.Write ( "      <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" bordercolorlight=""#000000"" bordercolordark=""#FFFFFF"" bgcolor=""#999999"">" & Chr ( 13 ) ) '71
    Response.Write ( "        <tr bgcolor=""#f4f4f4"" height=22 class=""f12""> " & Chr ( 13 ) ) '72
    Response.Write ( "            <td width=""5%"" align=""center"" height=""20""><strong>ID号</strong></td>" & Chr ( 13 ) ) '73
    Response.Write ( "            <td width=""13%"" align=""center""><strong>用户名</strong></td>" & Chr ( 13 ) ) '74
    Response.Write ( "            <td width=""10%"" align=""center""><strong>博客</strong></td>" & Chr ( 13 ) ) '75
    Response.Write ( "            <td  align=""center""><strong>电子信箱</strong></td>" & Chr ( 13 ) ) '76
    Response.Write ( "            <td width=""8%"" align=""center""><strong>次数</strong></td>" & Chr ( 13 ) ) '77
    Response.Write ( "            <td width=""4%"" align=""center""><strong>IP</strong></td>" & Chr ( 13 ) ) '78
    Response.Write ( "            <td width=""10%"" align=""center""><strong>登记时间</strong></td>" & Chr ( 13 ) ) '79
    Response.Write ( "            " & Chr ( 13 ) ) '80
    Response.Write ( "          <td width=""5%"" align=""center""><strong>勋章</strong></td>" & Chr ( 13 ) ) '81
    Response.Write ( "            <td width=""7%"" align=""center""><strong>状态</strong></td>" & Chr ( 13 ) ) '82
    Response.Write ( "            <td width=""3%"" align=""center""><strong>总版主</strong></td>" & Chr ( 13 ) ) '83
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<td width=""3%"" align=""center""><strong>分版主</strong></td>" & Chr ( 13 ) ) '84
    Response.Write ( "            <td width=""3%"" align=""center""><strong>认证用户</strong></td>" & Chr ( 13 ) ) '85
    Response.Write ( "            <td width=""3%"" align=""center""><strong>封锁</strong></td>" & Chr ( 13 ) ) '86
    Response.Write ( "            <td width=""3%"" align=""center""><strong>上传权限</strong></td>" & Chr ( 13 ) ) '87
    Response.Write ( "            <td width=""5%"" align=""center""><strong>修改</strong></td>" & Chr ( 13 ) ) '88
    Response.Write ( "            <td width=""5%"" align=""center""><strong>删除</strong></td>" & Chr ( 13 ) ) '89
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '90
    If Not rs.EOF Then '92
        wzrep = 30 '93
        wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '94
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '95
        rs.PageSize = wzrep '96
        rs.AbsolutePage = wzpage '97
        wzpagecount = rs.PageCount '98
        wzcount = rs.RecordCount '99
        For i = 0 To Val ( wzrep ) - 1 '100
        If rs.EOF Then
Exit For
End If
    '101
            Response.Write ( vbCrLf )
            Response.Write ( "          <tr bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '103
            Response.Write ( "            <td  height=22 align=""center""><FONT COLOR=""blue"">" ) '104
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '104
            Response.Write ( "</FONT></td>" & Chr ( 13 ) ) '104
            Response.Write ( "            <td align=""center"">" ) '105
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '105
            Response.Write ( "</td>" & Chr ( 13 ) ) '105
            Response.Write ( "            <td align=""center"">" & Chr ( 13 ) ) '106
            Response.Write ( "                " ) '107
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bokeer" ) .Value) ) = 1 Then '107
12 3 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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