postsms.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 _POSTSMS
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public defaulthome
Public homepage
Public sender
Public accepter
Public title
Public content
Public sql
Public rs As ADODB.Recordset
Public AspToAspX_Str
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public num
Public smsnum
Public id
    Public ASPX_CONN As _CONN
    Public ASPX_INC_HTMLENCODE2 As _INC_HTMLENCODE2
    Public ASPX_BBSUSER As _BBSUSER
    Public ASPX_INC_UBBCODE As _INC_UBBCODE
    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_BBSUSER = New _BBSUSER()
        ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_BBSUSER.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_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_BBSUSER.AspToAspX_UnloadIncludeFiles()
        ASPX_BBSUSER = Nothing
        ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = 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_BBSUSER.AspToAspX_Page_Init ( )
    ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
    ASPX_FTBBS_NAV.AspToAspX_Page_Init ( )
    FTBBS_HTML_MB ( ft ) '7
    defaulthome = Application ( "FTBBSMB" ) ( 31 , 0 ) '8
    homepage = ft_home ( defaulthome ) '9
    If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '10
        sender = Checkstr ( getcookie ( "name" ) ) '11
        accepter = Checkstr ( Request ( "postuser" ) ) '12
        title = Checkstr ( htmlencode2 ( Request ( "title" ) ) ) '13
        title = RegExReplace ( title , "\b(script)\b" , " $1 " ) '14
        title = RegExReplace ( title , "\b(iframe)\b" , " $1 " ) '15
        content = Checkstr ( htmlencode2 ( Request ( "content" ) ) ) '16
        content = RegExReplace ( content , "\b(script)\b" , " $1 " ) '17
        content = RegExReplace ( content , "\b(iframe)\b" , " $1 " ) '18
        sql = "select clubuser_name from " & ft & "clubuser where clubuser_name='" & accepter & "'" '19
        rs = New ADODB.Recordset ( ) '20
        rs.Open ( sql , conn , 3 , 1 ) '21
        If rs.EOF Then '22
            Response.Write ( "<SCRIPT language=JavaScript>alert('接收短信用户不存在！');history.go(-1);</script>" ) '23
            Response.End ( ) '24
        End If '25
        AspToAspX_Str = "insert into " & ft & "sms(title,content,sender,accepter,IsNew) values('" & title & "','" & content & "','" & sender & "','" & accepter & "',1)" '26
        conn.Execute ( AspToAspX_Str ) '27
        Response.Write ( "<SCRIPT language=JavaScript>alert('短信发送成功！');" ) '28
        Response.Write ( "history.go(-1);" ) '29
        Response.Write ( "</script>" ) '30
        Response.End ( ) '31
        conn.Close ( ) '32
    End If '33
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '35
    Response.Write ( "<head>" & Chr ( 13 ) ) '36
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '37
    Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '38
    Response.Write ( "<script>" & Chr ( 13 ) ) '39
    Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '40
    Response.Write ( "var style;" & Chr ( 13 ) ) '41
    Response.Write ( "var strstyle;" & Chr ( 13 ) ) '42
    Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '43
    Response.Write ( "{" & Chr ( 13 ) ) '44
    Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '45
    Response.Write ( "}" & Chr ( 13 ) ) '46
    Response.Write ( "else" & Chr ( 13 ) ) '47
    Response.Write ( "{" & Chr ( 13 ) ) '48
    Response.Write ( " stylecook++;" & Chr ( 13 ) ) '49
    Response.Write ( "}" & Chr ( 13 ) ) '50
    Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '51
    Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '52
    Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '53
    Response.Write ( "</script>" & Chr ( 13 ) ) '54
    Response.Write ( "<title>论坛短信系统</title>" & Chr ( 13 ) ) '55
    Response.Write ( "</head>" & Chr ( 13 ) ) '56
    Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '57
    Response.Write ( "<!--" & Chr ( 13 ) ) '58
    Response.Write ( "" & Chr ( 9 ) & "function check(form)" & Chr ( 13 ) ) '59
    Response.Write ( "" & Chr ( 9 ) & "{" & Chr ( 13 ) ) '60
    Response.Write ( "    if (form.postuser.value=="""")" & Chr ( 13 ) ) '61
    Response.Write ( "    " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '62
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写用户！"");" & Chr ( 13 ) ) '63
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "form.postuser.focus();" & Chr ( 13 ) ) '64
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '65
    Response.Write ( "  " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '66
    Response.Write ( "    if (form.title.value=="""")" & Chr ( 13 ) ) '67
    Response.Write ( "    " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '68
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写标题！"");" & Chr ( 13 ) ) '69
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "form.title.focus();" & Chr ( 13 ) ) '70
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '71
    Response.Write ( "  " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '72
    Response.Write ( "    if (form.content.value=="""")" & Chr ( 13 ) ) '73
    Response.Write ( "    " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '74
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写内容！"");" & Chr ( 13 ) ) '75
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "form.content.focus();" & Chr ( 13 ) ) '76
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '77
    Response.Write ( "  " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '78
    Response.Write ( "return true;" & Chr ( 13 ) ) '79
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '80
    Response.Write ( "//-->" & Chr ( 13 ) ) '81
    Response.Write ( "</script>" & Chr ( 13 ) ) '82
    Response.Write ( "<body topmargin=""2"">" & Chr ( 13 ) ) '83
    Response.Write ( "<div align=""center"">" & Chr ( 13 ) ) '84
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '86
        Response.Write ( headhtml ) '87
    End If '88
    Response.Write ( vbCrLf )
    Response.Write ( "  <TABLE align=center class=""maintbbg"" border=0 cellPadding=0 cellSpacing=1 width=""99%"">" & Chr ( 13 ) ) '90
    Response.Write ( "        <tbody>" & Chr ( 13 ) ) '91
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '92
    Response.Write ( "            <td height=""25"" class=""f12bg"">&nbsp;" ) '93
    Response.Write ( userinfo ) '93
    Response.Write ( "</td>" & Chr ( 13 ) ) '93
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '94
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '95
    Response.Write ( "            <td height=""25"" class=""maintbtr3"" align=""left"">&nbsp;<a href=""" ) '96
    Response.Write ( homepage ) '96
    Response.Write ( """>论坛首页</a> " & Chr ( 13 ) ) '96
    Response.Write ( "              >> 发送短信</td>" & Chr ( 13 ) ) '97
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '98
    Response.Write ( "        </tbody>" & Chr ( 13 ) ) '99
    Response.Write ( "  </TABLE>" & Chr ( 13 ) ) '100
    Response.Write ( "  <table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">" & Chr ( 13 ) ) '101
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '102
    Response.Write ( "      <td height=5><spacer height=""5"" type=""block""></td>" & Chr ( 13 ) ) '103
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '104
    Response.Write ( "  </table>" & Chr ( 13 ) ) '105
    Response.Write ( "<div align=""center"">" & Chr ( 13 ) ) '106
    Response.Write ( " <div id=""postflag"">" & Chr ( 13 ) ) '107
    Response.Write ( "" & Chr ( 9 ) & "<ul class=""tabs"">" & Chr ( 13 ) ) '108
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<li><a href=""mysms.aspx?flag=1"">收件箱</a></li>" & Chr ( 13 ) ) '109
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<li><a href=""mysms.aspx?t=my&flag=2"">发件箱</a></li>" & Chr ( 13 ) ) '110
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<li class=""current""><a href=""postsms.aspx"">发短信</a></li>" & Chr ( 13 ) ) '111
    Response.Write ( "" & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '112
    Response.Write ( " </div>" & Chr ( 13 ) ) '113
    Response.Write ( "</div>" & Chr ( 13 ) ) '114
    Response.Write ( "  <TABLE width=""99%"" border=0 align=""center"" cellPadding=0 cellSpacing=0 class=""listborder"">" & Chr ( 13 ) ) '115
    Response.Write ( "    <TBODY>" & Chr ( 13 ) ) '116
    Response.Write ( "      <TR> " & Chr ( 13 ) ) '117
    Response.Write ( "      <TD height=50 class=""loopborder3""> <div align=""center""> " & Chr ( 13 ) ) '118
    Response.Write ( "          <form name=""form1"" method=""post"" action=""mysms.aspx"" style=""MARGIN-BOTTOM: 0px"">" & Chr ( 13 ) ) '119
    Response.Write ( "            短信搜索: " & Chr ( 13 ) ) '120
    Response.Write ( "            <input name=""searchstr"" type=""text"" id=""searchstr"" size=""35"">" & Chr ( 13 ) ) '121
    Response.Write ( "            <select name=""smtype"" id=""smtype"">" & Chr ( 13 ) ) '122
    Response.Write ( "              <option value=""title"" selected>短信标题</option>" & Chr ( 13 ) ) '123
    Response.Write ( "              <option value=""content"">短信内容</option>" & Chr ( 13 ) ) '124
    Response.Write ( "            </select>" & Chr ( 13 ) ) '125
    Response.Write ( "            <input type=""submit"" name=""Submit"" value=""查找短信"">" & Chr ( 13 ) ) '126
    Response.Write ( "          </form>" & Chr ( 13 ) ) '127
    Response.Write ( "          </div></TD>" & Chr ( 13 ) ) '128
    Response.Write ( "    </TR>" & Chr ( 13 ) ) '129
    Response.Write ( "      <TR> " & Chr ( 13 ) ) '130
    Response.Write ( "        <TD vAlign=middle class=""maintbtr3""><div align=""center"">" & Chr ( 13 ) ) '131
    Response.Write ( "            <form name=""form2"" method=""post"" action="""" style=""MARGIN-BOTTOM: 0px"" onsubmit=""return check(this)"">" & Chr ( 13 ) ) '132
    Response.Write ( "              <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '133
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '134
    Response.Write ( "                  <td width=""20%"" height=""28"" class=""f12""> " & Chr ( 13 ) ) '135
    Response.Write ( "                    <div align=""right"">用 户:</div></td>" & Chr ( 13 ) ) '136
    Response.Write ( "                  <td width=""76%"" height=""25""><input name=""postuser"" type=""text"" id=""postuser""></td>" & Chr ( 13 ) ) '137
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '138
    Response.Write ( "                <tr>" & Chr ( 13 ) ) '139
    Response.Write ( "                  <td width=""20%"" height=""28"" class=""f12"">" & Chr ( 13 ) ) '140
    Response.Write ( "                   <div align=""right"">标 题:</div></td>" & Chr ( 13 ) ) '141
    Response.Write ( "                  <td><input name=""title"" type=""text"" id=""title"" size=""50""></td>" & Chr ( 13 ) ) '142
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '143
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '144
    Response.Write ( "                  <td height=""25"" class=""f12""><div align=""right"">内 容:</div></td>" & Chr ( 13 ) ) '145