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

    Public AspToAspX_Host_Class_Object As Object

Public i
Public searchcontent
Public searchkind
Public tyname1
Public tyname2
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
    Public ASPX_INC_UBBCODE As _INC_UBBCODE
#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()
        ASPX_INC_UBBCODE = New _INC_UBBCODE()
        ASPX_INC_UBBCODE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_UBBCODE.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
        ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = 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 ( )
    ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
    searchcontent = trim ( Request ( "searchcontent" ) ) '6
    searchkind = Request ( "searchkind" ) '7
    tyname1 = "searchcontent" '8
    tyname2 = "searchkind" '9
    root = "../" '10
    If AspToAspX_CheckDBNull ( searchcontent ) < > EmptyString.Value Then '11
        pagestr = "&" & tyname1 & "=" & searchcontent & "&" & tyname2 & "=" & searchkind '12
    Else '13
        pagestr = "" '14
    End If '15
    If AspToAspX_CheckDBNull ( searchkind ) = EmptyString.Value Then '16
        AspToAspX_Str = "select * from " & ft & "sms order by id desc" '17
    Else '18
        AspToAspX_Str = "select * from " & ft & "sms where " & searchkind & " like '%" & searchcontent & "%' order by id desc" '19
    End If '20
    rs = New ADODB.Recordset ( ) '21
    rs.Open ( AspToAspX_Str , conn , 1 , 1 ) '22
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '24
    Response.Write ( "<head>" & Chr ( 13 ) ) '25
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '26
    Response.Write ( "<title>无标题文档</title>" & Chr ( 13 ) ) '27
    Response.Write ( "<link href=""../css/main01.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '28
    Response.Write ( "<script language=javascript src=""../js/publicfun.js""></script>" & Chr ( 13 ) ) '29
    Response.Write ( "</head>" & Chr ( 13 ) ) '30
    Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '31
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '32
    If Not rs.EOF Then '34
        wzrep = 30 '35
        wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '36
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '37
        rs.PageSize = wzrep '38
        rs.AbsolutePage = wzpage '39
        wzpagecount = rs.PageCount '40
        wzcount = rs.RecordCount '41
        Response.Write ( vbCrLf )
        Response.Write ( "  <TR align=center class=""f12"">" & Chr ( 13 ) ) '43
        Response.Write ( "  <TD width=""64%"" align=""left"">" ) '44
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '44
        Response.Write ( "</TD> " & Chr ( 13 ) ) '44
        Response.Write ( "    <FORM METHOD=POST ACTION=""" ) '45
        Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '45
        Response.Write ( """ >" & Chr ( 13 ) ) '45
        Response.Write ( "      <TD width=""36%""> <div align=""right""> " & Chr ( 13 ) ) '46
        Response.Write ( "          <INPUT TYPE=""text"" NAME=""searchcontent"" size=15>" & Chr ( 13 ) ) '47
        Response.Write ( "          <select name=""searchkind"">" & Chr ( 13 ) ) '48
        Response.Write ( "            <option value=""title"">标题</option>" & Chr ( 13 ) ) '49
        Response.Write ( "            <option value=""content"">内容</option>" & Chr ( 13 ) ) '50
        Response.Write ( "          </select>" & Chr ( 13 ) ) '51
        Response.Write ( "          <INPUT TYPE=""submit"" value=""搜索"" name="""">" & Chr ( 13 ) ) '52
        Response.Write ( "          <A HREF=""adminpostsms.aspx"">[发系统短信]</A></div></TD>" & Chr ( 13 ) ) '53
        Response.Write ( "    </FORM>" & Chr ( 13 ) ) '54
        Response.Write ( "  </TR>" & Chr ( 13 ) ) '55
        Response.Write ( "</TABLE>" & Chr ( 13 ) ) '56
        Response.Write ( "<table width=""99%"" border=""0"" bgcolor=""#f1f1f1"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '57
        Response.Write ( "  <tr bgcolor=""#f3f3f3"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '58
        Response.Write ( "    <td width=""4%"" height=""25"" bgcolor=""#f3f3f3"">选择</td>" & Chr ( 13 ) ) '59
        Response.Write ( "    <td width=""4%"" bgcolor=""#f3f3f3"">编号</td>" & Chr ( 13 ) ) '60
        Response.Write ( "    <td width=""26%"">标题</td>" & Chr ( 13 ) ) '61
        Response.Write ( "    <td width=""40%"">内容</td>" & Chr ( 13 ) ) '62
        Response.Write ( "    <td width=""16%"">日期</td>" & Chr ( 13 ) ) '63
        Response.Write ( "    <td width=""5%"">修改</td>" & Chr ( 13 ) ) '64
        Response.Write ( "    <td width=""5%"">删除</td>" & Chr ( 13 ) ) '65
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '66
        Response.Write ( "  <form name=""selectform"" method=post action=""pldelsms.aspx"">" & Chr ( 13 ) ) '67
        Response.Write ( "    <input type=""hidden"" name=""op"" value=""选择转正"">" & Chr ( 13 ) ) '68
        Response.Write ( "    <input type=""hidden"" name=""returnURL"" value=""managesms.aspx?" ) '69
        Response.Write ( Request.QueryString ) '69
        Response.Write ( """>" & Chr ( 13 ) ) '69
        Response.Write ( "    <script language=""JavaScript"">" & Chr ( 13 ) ) '70
        Response.Write ( "  <!--" & Chr ( 13 ) ) '71
        Response.Write ( "  function select_pl_submit(optype){" & Chr ( 13 ) ) '72
        Response.Write ( "" & Chr ( 9 ) & "var f=document.forms[""selectform""]" & Chr ( 13 ) ) '73
        Response.Write ( "" & Chr ( 9 ) & "f.op.value=optype" & Chr ( 13 ) ) '74
        Response.Write ( "" & Chr ( 9 ) & "f.submit()" & Chr ( 13 ) ) '75
        Response.Write ( "  }" & Chr ( 13 ) ) '76
        Response.Write ( "  //-->" & Chr ( 13 ) ) '77
        Response.Write ( "  </script>" & Chr ( 13 ) ) '78
        For i = 0 To Val ( wzrep ) - 1 '80
        If rs.EOF Then
Exit For
End If
    '81
            Response.Write ( vbCrLf )
            Response.Write ( "    <tr bgcolor=""#FFFFFF"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '83
            Response.Write ( "      <td height=""25"">" & Chr ( 13 ) ) '84
            Response.Write ( "<input name=""checkbox1"" type=""checkbox"" id=""checkbox1"" value=""" ) '85
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '85
            Response.Write ( """>" & Chr ( 13 ) ) '85
            Response.Write ( "      </td>" & Chr ( 13 ) ) '86
            Response.Write ( "      <td height=""20"">" ) '87
            Response.Write ( i + 1 ) '87
            Response.Write ( "</td>" & Chr ( 13 ) ) '87
            Response.Write ( "      <td align=""left"">" ) '88
            Response.Write ( nohtml ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) ) '88
            Response.Write ( "</td>" & Chr ( 13 ) ) '88
            Response.Write ( "      <td align=""left"">" ) '89
            Response.Write ( nohtml ( AspToAspX_CheckDBNull(rs.Fields ( "content" ) .Value) ) ) '89
            Response.Write ( "</td>" & Chr ( 13 ) ) '89
            Response.Write ( "      <td>" ) '90
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "indate" ) .Value) ) '90
            Response.Write ( "</td>" & Chr ( 13 ) ) '90
            Response.Write ( "      <td><A HREF=""admineditsms.aspx?id=" ) '91
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '91
            Response.Write ( """>[修改]</A></td>" & Chr ( 13 ) ) '91
            Response.Write ( "      <td><A HREF=""sms_ope_act.aspx?ope=del&id=" ) '92
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '92
            Response.Write ( """>[删除]</A></td>" & Chr ( 13 ) ) '92
            Response.Write ( "    </tr>" & Chr ( 13 ) ) '93
            rs.MoveNext ( ) '95
        Next '96
        rs.Close ( ) '97
        Response.Write ( vbCrLf )
        Response.Write ( "    <tr bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '99
        Response.Write ( "      <td height=""25"" colspan=""12""> " & Chr ( 13 ) ) '100
        Response.Write ( "        <input name=""button"" type=""button"" onclick=""selectAll()"" value=""全选""> " & Chr ( 13 ) ) '101
        Response.Write ( "        <input name=""button"" type=""button"" onclick=""selectRev()"" value=""反选""> <input name=""button"" type=""button"" onclick=""selectAll();selectRev()"" value=""全不选""> " & Chr ( 13 ) ) '102
        Response.Write ( "        <input name=""button"" type=""button"" onclick=""select_pl_submit('选择删除')"" value=""将所选删除"" " ) '103
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '103
            Response.Write ( "disabled" ) '103
        End If '103
        Response.Write ( ">" & Chr ( 13 ) ) '103
        Response.Write ( "      </td>" & Chr ( 13 ) ) '104
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '105
        Response.Write ( "  </form>" & Chr ( 13 ) ) '106
        Response.Write ( "  <tr align=center bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '107
        Response.Write ( "    <td height=""28"" colspan=""15"" align=""left""> " ) '108
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '108
        Response.Write ( "</td>" & Chr ( 13 ) ) '108
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '109
        Response.Write ( "  " ) '110
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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