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

    Public AspToAspX_Host_Class_Object As Object

Public postuserid
Public sql
Public rsx
Public postuser
Public defaulthome
Public homepage
Public sender
Public accepter
Public title
Public content
Public AspToAspX_Str
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public rs As ADODB.Recordset
Public num
Public smsnum
Public id
    Public ASPX_CONN As _CONN
    Public ASPX_INC_HTMLENCODE2 As _INC_HTMLENCODE2
    Public ASPX_INC_UBBCODE As _INC_UBBCODE
    Public ASPX_BBSUSER As _BBSUSER
    Public ASPX_FTBBS_NAV As _FTBBS_NAV
    Public ASPX_INC_BBSTAIL_HTM As _INC_BBSTAIL_HTM
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_INC_HTMLENCODE2 = New _INC_HTMLENCODE2()
        ASPX_INC_HTMLENCODE2.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_HTMLENCODE2.AspToAspX_InitIncludeFiles()
        ASPX_INC_UBBCODE = New _INC_UBBCODE()
        ASPX_INC_UBBCODE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_UBBCODE.AspToAspX_InitIncludeFiles()
        ASPX_BBSUSER = New _BBSUSER()
        ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
        ASPX_FTBBS_NAV = New _FTBBS_NAV()
        ASPX_FTBBS_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FTBBS_NAV.AspToAspX_InitIncludeFiles()
        ASPX_INC_BBSTAIL_HTM = New _INC_BBSTAIL_HTM()
        ASPX_INC_BBSTAIL_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_BBSTAIL_HTM.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_INC_HTMLENCODE2.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_HTMLENCODE2 = Nothing
        ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = Nothing
        ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
        ASPX_BBSUSER = Nothing
        ASPX_FTBBS_NAV.AspToAspX_UnloadIncludeFiles()
        ASPX_FTBBS_NAV = Nothing
        ASPX_INC_BBSTAIL_HTM.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_BBSTAIL_HTM = 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_INC_HTMLENCODE2.AspToAspX_Page_Init ( )
    ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
    ASPX_BBSUSER.AspToAspX_Page_Init ( )
    ASPX_FTBBS_NAV.AspToAspX_Page_Init ( )
    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 ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '9
    Response.Write ( "<script>" & Chr ( 13 ) ) '10
    Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '11
    Response.Write ( "var style;" & Chr ( 13 ) ) '12
    Response.Write ( "var strstyle;" & Chr ( 13 ) ) '13
    Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '14
    Response.Write ( "{" & Chr ( 13 ) ) '15
    Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '16
    Response.Write ( "}" & Chr ( 13 ) ) '17
    Response.Write ( "else" & Chr ( 13 ) ) '18
    Response.Write ( "{" & Chr ( 13 ) ) '19
    Response.Write ( " stylecook++;" & Chr ( 13 ) ) '20
    Response.Write ( "}" & Chr ( 13 ) ) '21
    Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '22
    Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '23
    Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '24
    Response.Write ( "</script>" & Chr ( 13 ) ) '25
    Response.Write ( "<title>论坛短信系统</title>" & Chr ( 13 ) ) '26
    Response.Write ( "</head>" & Chr ( 13 ) ) '27
    Response.Write ( "<script language=javascript src=""js/publicfun.js""></script>" & Chr ( 13 ) ) '28
    Response.Write ( "<body topmargin=""2"">" & Chr ( 13 ) ) '29
    postuserid = AspToAspX_CInt ( ( Request.QueryString ( "postuserid" ) ) ) '31
    sql = "select clubuser_id,clubuser_name from " & ft & "clubuser where clubuser_id=" & postuserid '32
    rsx = New ADODB.Recordset ( ) '33
    rsx.Open ( sql , conn , 3 , 1 ) '34
    postuser = AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_name" ) .Value) '35
    rsx.Close ( ) '36
    FTBBS_HTML_MB ( ft ) '37
    defaulthome = Application ( "FTBBSMB" ) ( 31 , 0 ) '38
    homepage = ft_home ( defaulthome ) '39
    If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '40
        sender = getcookie ( "name" ) '41
        accepter = Checkstr ( Request ( "postuser" ) ) '42
        title = Checkstr ( htmlencode2 ( Request ( "title" ) ) ) '43
        title = RegExReplace ( title , "\b(script)\b" , " $1 " ) '44
        title = RegExReplace ( title , "\b(iframe)\b" , " $1 " ) '45
        content = Checkstr ( htmlencode2 ( Request ( "content" ) ) ) '46
        content = RegExReplace ( content , "\b(script)\b" , " $1 " ) '47
        content = RegExReplace ( content , "\b(iframe)\b" , " $1 " ) '48
        AspToAspX_Str = "insert into " & ft & "sms(title,content,sender,accepter,IsNew) values('" & title & "','" & content & "','" & sender & "','" & accepter & "',1)" '49
        conn.Execute ( AspToAspX_Str ) '50
        If AspToAspX_CheckDBNull ( Request ( "File" ) ) < > EmptyString.Value Then '51
            AspToAspX_Response_Redirect ( Request ( "File" ) ) '52
        Else '53
            Response.Write ( "<script language='javascript'>" ) '54
            Response.Write ( "alert('发送成功！');" ) '55
            Response.Write ( "history.go(-2);" ) '56
            Response.Write ( "</script>" ) '57
            Response.End ( ) '58
        End If '59
        conn.Close ( ) '60
    End If '61
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '62
        Response.Write ( headhtml ) '63
    End If '64
    Response.Write ( vbCrLf )
    Response.Write ( "<TABLE align=center class=""maintbbg"" border=0 cellPadding=0 cellSpacing=1 width=""99%"">" & Chr ( 13 ) ) '66
    Response.Write ( "        <tbody>" & Chr ( 13 ) ) '67
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '68
    Response.Write ( "            <td height=""25"" class=""f12bg"">&nbsp;" ) '69
    Response.Write ( userinfo ) '69
    Response.Write ( "</td>" & Chr ( 13 ) ) '69
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '70
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '71
    Response.Write ( "            <td height=""25"" class=""maintbtr3"" align=""left"">&nbsp;<a href=""" ) '72
    Response.Write ( homepage ) '72
    Response.Write ( """>论坛首页</a> " & Chr ( 13 ) ) '72
    Response.Write ( "              >> 发送短信</td>" & Chr ( 13 ) ) '73
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '74
    Response.Write ( "        </tbody>" & Chr ( 13 ) ) '75
    Response.Write ( "  </TABLE>" & Chr ( 13 ) ) '76
    Response.Write ( "  <table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">" & Chr ( 13 ) ) '77
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '78
    Response.Write ( "      <td height=5><spacer height=""5"" type=""block""></td>" & Chr ( 13 ) ) '79
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '80
    Response.Write ( "  </table>" & Chr ( 13 ) ) '81
    Response.Write ( "  <TABLE width=""99%"" border=0 align=""center"" cellPadding=0 cellSpacing=1 class=""maintbbg"">" & Chr ( 13 ) ) '82
    Response.Write ( "    <TBODY>" & Chr ( 13 ) ) '83
    Response.Write ( "      <TR> " & Chr ( 13 ) ) '84
    Response.Write ( "        <TD height=""28"" vAlign=middle class=""maintbtr1""> " & Chr ( 13 ) ) '85
    Response.Write ( "          <div align=""center"">发送短信</div></TD>" & Chr ( 13 ) ) '86
    Response.Write ( "      </TR>" & Chr ( 13 ) ) '87
    Response.Write ( "      <TR class=""maintbtr3""> " & Chr ( 13 ) ) '88
    Response.Write ( "        <TD vAlign=middle class=""maintbtr3""><div align=""center"">" & Chr ( 13 ) ) '89
    Response.Write ( "            <form name=""form2"" method=""post"" action="""" style=""MARGIN-BOTTOM: 0px"" onsubmit=""return checkblogsms(this)"">" & Chr ( 13 ) ) '90
    Response.Write ( "              <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '91
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '92
    Response.Write ( "                  <td width=""20%"" height=""30"" class=""maintbtr3""> " & Chr ( 13 ) ) '93
    Response.Write ( "                    <div align=""right"">用户:</div></td>" & Chr ( 13 ) ) '94
    Response.Write ( "                  <td width=""76%"" height=""25"">" & Chr ( 13 ) ) '95
    Response.Write ( "<input name=""postuser"" type=""text"" id=""postuser"" value=""" ) '96
    Response.Write ( postuser ) '96
    Response.Write ( """ readonly>" & Chr ( 13 ) ) '96
    Response.Write ( "                  </td>" & Chr ( 13 ) ) '97
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '98
    Response.Write ( "                <tr>" & Chr ( 13 ) ) '99
    Response.Write ( "                  <td width=""20%"" height=""30"" class=""maintbtr3"">" & Chr ( 13 ) ) '100
    Response.Write ( "<div align=""right"">标题:</div></td>" & Chr ( 13 ) ) '101
    Response.Write ( "                  <td><input name=""title"" type=""text"" id=""title"" size=""50""></td>" & Chr ( 13 ) ) '102
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '103
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '104
    Response.Write ( "                  <td height=""25"" class=""maintbtr3""><div align=""right"">内容:</div></td>" & Chr ( 13 ) ) '105
    Response.Write ( "                  <td><textarea name=""content"" cols=""70"" rows=""20"" id=""content""></textarea></td>" & Chr ( 13 ) ) '106
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '107
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '108
    Response.Write ( "                  <td height=""30""><div align=""right""></div></td>" & Chr ( 13 ) ) '109
    Response.Write ( "                  <td><input type=""submit"" name=""Submit2"" value=""发送""> <input name=""cannel"" type=""reset"" id=""cannel"" value=""重置""> " & Chr ( 13 ) ) '110
    Response.Write ( "                    <input name=""act"" type=""hidden"" id=""act"" value=""y""> <input name=""id"" type=""hidden"" id=""id"" value=""" ) '111
    Response.Write ( id ) '111
    Response.Write ( """>" & Chr ( 13 ) ) '111
    Response.Write ( "                  </td>" & Chr ( 13 ) ) '112
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '113
    Response.Write ( "              </table>" & Chr ( 13 ) ) '114
    Response.Write ( "            </form>" & Chr ( 13 ) ) '115
    Response.Write ( "          </div></TD>" & Chr ( 13 ) ) '116
    Response.Write ( "      </TR>" & Chr ( 13 ) ) '117
    Response.Write ( "    </TBODY>" & Chr ( 13 ) ) '118
    Response.Write ( "  </TABLE>" & Chr ( 13 ) ) '119
    Response.Write ( "  " ) '120
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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