reply_manage.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _BBSADMIN_REPLY_MANAGE
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public i
Public searchcontent
Public searchkind
Public root
Public tyname1
Public tyvalue1
Public tyname2
Public tyvalue2
Public pagestr
Public titlepage
Public return_url
Public sql
Public rs As ADODB.Recordset
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public AspToAspX_Str
Public rs0
Public k
Public xpage
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 ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '5
    Response.Write ( "<link href=""../css/main01.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '6
    searchcontent = trim ( Request ( "searchcontent" ) ) '20
    searchkind = Request ( "searchkind" ) '21
    root = "../" '22
    tyname1 = "searchcontent" '23
    tyvalue1 = searchcontent '24
    tyname2 = "searchkind" '25
    tyvalue2 = Request ( "searchkind" ) '26
    If AspToAspX_CheckDBNull ( searchcontent ) < > EmptyString.Value Then '27
        pagestr = "&" & tyname2 & "=" & searchkind & "&" & tyname1 & "=" & searchcontent '28
    Else '29
        If AspToAspX_CheckDBNull ( searchkind ) < > EmptyString.Value Then '30
            pagestr = "&" & tyname2 & "=" & searchkind '31
        Else '32
            pagestr = "" '33
        End If '34
    End If '35
    titlepage = Request.QueryString ( "page" ) '36
    return_url = "reply_manage.aspx?page=" & titlepage & pagestr '37
    return_url = replace ( return_url , "&" , "%26" ) '38
    If AspToAspX_CheckDBNull ( searchkind ) = EmptyString.Value Then '40
        sql = "select * from " & ft & "bbsmenu order by id desc" '41
    Else '42
        Select Case searchkind '43
            Case "id" '44
                sql = "select * from " & ft & "bbsmenu where id=" & searchcontent & " order by id desc" '45
            Case "user_id" '46
                sql = "select * from " & ft & "bbsmenu where user_id='" & searchcontent & "' order by id desc" '47
            Case "pid" '48
                sql = "select * from " & ft & "bbsmenu where pid=" & searchcontent & " order by id desc" '49
            Case "deleted" '50
                sql = "select * from " & ft & "bbsmenu where deleted=1 order by id desc" '51
            Case "ip" '52
                sql = "select * from " & ft & "bbsmenu where reip ='" & searchcontent & "' order by id desc" '53
            Case "bbs_img" '54
                sql = "select * from " & ft & "bbsmenu where bbs_img<>'' order by id desc" '55
            Case "img_url" '56
                sql = "select * from " & ft & "bbsmenu where img_url<>'' order by id desc" '57
            Case "delt" '58
                sql = "select * from " & ft & "bbsmenu where deleted=1" '59
        End Select '60
    End If '61
    rs = New ADODB.Recordset ( ) '62
    rs.Open ( sql , conn , 3 , 1 ) '63
    If Not rs.EOF Then '64
        wzrep = 30 '65
        If AspToAspX_CheckDBNull ( Request.QueryString ( "page" ) ) < > EmptyString.Value Then '66
            wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '67
        Else '68
            wzpage = 0 '69
        End If '70
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '71
        rs.PageSize = wzrep '72
        rs.AbsolutePage = wzpage '73
        wzpagecount = rs.PageCount '74
        wzcount = rs.RecordCount '75
        Response.Write ( vbCrLf )
        Response.Write ( "<body>" & Chr ( 13 ) ) '77
        Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '78
        Response.Write ( "  <TR align=center class=""f12"">" & Chr ( 13 ) ) '79
        Response.Write ( "    <TD width=""66%"" height=""30"" align=""left"">" ) '80
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '80
        Response.Write ( "</TD> " & Chr ( 13 ) ) '80
        Response.Write ( "      <TD width=""34%"" height=""25"">" & Chr ( 13 ) ) '81
        Response.Write ( "" & Chr ( 9 ) & "  <FORM METHOD=POST ACTION=""" ) '82
        Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '82
        Response.Write ( """ >" & Chr ( 13 ) ) '82
        Response.Write ( "" & Chr ( 9 ) & "   搜索:<INPUT TYPE=""text"" NAME=""searchcontent"" size=20> <select name=""searchkind"">" & Chr ( 13 ) ) '83
        Response.Write ( "          <option value=""id"">ID号</option>" & Chr ( 13 ) ) '84
        Response.Write ( "          <option value=""user_id"">用户名</option>" & Chr ( 13 ) ) '85
        Response.Write ( "          <option value=""pid"">主题ID</option>" & Chr ( 13 ) ) '86
        Response.Write ( "          <option value=""ip"">IP地址</option>" & Chr ( 13 ) ) '87
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""delt"">隐藏贴</option>" & Chr ( 13 ) ) '88
        Response.Write ( "        </select> <INPUT TYPE=""submit"" value=""搜索"" name="""">" & Chr ( 13 ) ) '89
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</FORM>" & Chr ( 13 ) ) '90
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</TD>" & Chr ( 13 ) ) '91
        Response.Write ( "  </TR>" & Chr ( 13 ) ) '92
        Response.Write ( "</TABLE>" & Chr ( 13 ) ) '93
        Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '94
        Response.Write ( "  <tr class=""f12"">" & Chr ( 13 ) ) '95
        Response.Write ( "        <td width=""100%""> " & Chr ( 13 ) ) '96
        Response.Write ( "         <table border=""0"" cellspacing=""1"" width=""100%"" bordercolorlight=""#000000"" bordercolordark=""#FFFFFF"" cellpadding=""0"" bgcolor=""#cccccc"">" & Chr ( 13 ) ) '97
        Response.Write ( "        <tr bgcolor=""#f8f8f8"" class=""f12""> " & Chr ( 13 ) ) '98
        Response.Write ( "          <td width=""5%"" height=""25"" align=""center""><strong>ID号</strong></td>    " & Chr ( 13 ) ) '99
        Response.Write ( "          <td width=""5%"" align=""center""><strong>主题</strong></td>" & Chr ( 13 ) ) '100
        Response.Write ( "          <td width=""10%"" align=""center""><strong>作者</strong></td>" & Chr ( 13 ) ) '101
        Response.Write ( "          <td width=""30%"" align=""center""><strong>内容</strong></td>      " & Chr ( 13 ) ) '102
        Response.Write ( "          <td width=""12%"" align=""center""><strong>IP</strong></td>     " & Chr ( 13 ) ) '103
        Response.Write ( "          <td width=""12%"" align=""center""><strong>日期</strong></td>   " & Chr ( 13 ) ) '104
        Response.Write ( "          <td width=""5%"" align=""center""><strong>状态</strong></td>    " & Chr ( 13 ) ) '105
        Response.Write ( "          <td width=""5%"" align=""center""><strong>删除</strong></td>" & Chr ( 13 ) ) '106
        Response.Write ( "        </tr>" & Chr ( 13 ) ) '107
        For i = 0 To Val ( wzrep ) - 1 '109
        If rs.EOF Then
Exit For
End If
    '110
            AspToAspX_Str = "SELECT id,rep,htmfilename FROM " & ft & "bbstitle WHERE id=" & AspToAspX_CheckDBNull(rs.Fields ( "pid" ) .Value) '111
            rs0 = conn.Execute ( AspToAspX_Str ) '112
            k = AspToAspX_CheckDBNull(rs0.Fields ( "rep" ) .Value) / 20 '113
            If AspToAspX_Int ( k ) = k Then '114
                xpage = k '115
            Else '116
                xpage = AspToAspX_Int ( k ) + 1 '117
            End If '118
            Response.Write ( vbCrLf )
            Response.Write ( "                  <tr bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '120
            Response.Write ( "                    <td height=""25"" align=""center"">" ) '121
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '121
            Response.Write ( " </td>" & Chr ( 13 ) ) '121
            Response.Write ( "                    <td align=""center""> " & Chr ( 13 ) ) '122
            Response.Write ( "                      <a href=""../" ) '123
            Response.Write ( AspToAspX_CheckDBNull(rs0.Fields ( "htmfilename" ) .Value) ) '123
            Response.Write ( """ target=""_blank"">" ) '123
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "pid" ) .Value) ) '123
            Response.Write ( "</a>" & Chr ( 13 ) ) '123
            Response.Write ( "                    </td>" & Chr ( 13 ) ) '124
            Response.Write ( "                    <td align=""center""> " & Chr ( 13 ) ) '125
            Response.Write ( "                      " ) '126
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) ) '126
            Response.Write ( "</td>" & Chr ( 13 ) ) '126
            Response.Write ( "                    <td align=""center""> " ) '127
            Response.Write ( nohtml ( AspToAspX_CheckDBNull(rs.Fields ( "remenu" ) .Value) ) ) '127
            Response.Write ( "</td>" & Chr ( 13 ) ) '127
            Response.Write ( "                    <td align=""center""> " & Chr ( 13 ) ) '128
            Response.Write ( "                      " ) '129
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "reip" ) .Value) ) '129
            Response.Write ( "</td>" & Chr ( 13 ) ) '129
            Response.Write ( "                    <td align=""center""> " & Chr ( 13 ) ) '130
            Response.Write ( "                      " ) '131
            Response.Write ( right ( Year ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) , 2 ) ) '131
            Response.Write ( "/" ) '131
            Response.Write ( Month ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) ) '131
            Response.Write ( "/" ) '131
            Response.Write ( Day ( AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) ) '131
            Response.Write ( "</td>" & Chr ( 13 ) ) '131
            Response.Write ( "                    <td align=""center"">" & Chr ( 13 ) ) '132
            Response.Write ( "                      " ) '133
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "deleted" ) .Value) ) = 0 Then '133
            Response.Write ( vbCrLf )
                Response.Write ( "                        <A HREF=""bzdeltohtm.aspx?id=" ) '134
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "pid" ) .Value) ) '134
                Response.Write ( "&FileName=" ) '134
                Response.Write ( AspToAspX_CheckDBNull(rs0.Fields ( "htmfilename" ) .Value) ) '134
                Response.Write ( "&bbs_img=" ) '134
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_img" ) .Value) ) '134
                Response.Write ( "&reid=" ) '134
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '134
                Response.Write ( "&pollYN=N&sign=1&return_url=" ) '134
                Response.Write ( return_url ) '134
                Response.Write ( """><FONT COLOR=""green"">显示</FONT></A> " & Chr ( 13 ) ) '134
                Response.Write ( "                      " ) '135
            Else '135
            Response.Write ( vbCrLf )
                Response.Write ( "                        <A HREF=""bzdeltohtm.aspx?id=" ) '136
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "pid" ) .Value) ) '136
                Response.Write ( "&FileName=" ) '136
                Response.Write ( AspToAspX_CheckDBNull(rs0.Fields ( "htmfilename" ) .Value) ) '136
                Response.Write ( "&bbs_img=" ) '136
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_img" ) .Value) ) '136
                Response.Write ( "&reid=" ) '136
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '136
                Response.Write ( "&pollYN=N&sign=0&return_url=" ) '136
                Response.Write ( return_url ) '136
                Response.Write ( """><FONT COLOR=""red"">隐藏</FONT></A> " & Chr ( 13 ) ) '136
                Response.Write ( "                      " ) '137
            End If '137
            Response.Write ( vbCrLf )
            Response.Write ( "                    </td>" & Chr ( 13 ) ) '138
            Response.Write ( "                    <td align=""center"">" & Chr ( 13 ) ) '139