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

    Public AspToAspX_Host_Class_Object As Object

Public url
Public upfiletype
Public upfilesize
Public getcodeoff
Public htm_ext
Public id
Public blogtitle
Public blogqs
Public blogtypeid
Public xinqin
Public writedate
Public blogtag
Public bbstag
Public userip
Public userid
Public plqs
Public bloghtmfile
Public AspToAspX_Str
Public sql
Public rsblog
Public rs As ADODB.Recordset
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public remenu
    Public ASPX_CONN As _CONN
    Public ASPX_ADMIN_CHECK_MASTER As _ADMIN_CHECK_MASTER
    Public ASPX_INC_HTMLENCODE2 As _INC_HTMLENCODE2
    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_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()
    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_HTMLENCODE2.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_HTMLENCODE2 = 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_INC_HTMLENCODE2.AspToAspX_Page_Init ( )
    ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
    FTBBS_HTML_MB ( ft ) '6
    url = Application ( "FTBBSMB" ) ( 10 , 0 ) '7
    upfiletype = Application ( "FTBBSMB" ) ( 12 , 0 ) '8
    upfilesize = Application ( "FTBBSMB" ) ( 13 , 0 ) '9
    getcodeoff = Application ( "FTBBSMB" ) ( 30 , 0 ) '10
    htm_ext = Application ( "FTBBSMB" ) ( 32 , 0 ) '11
    If AspToAspX_CheckDBNull ( htm_ext ) = EmptyString.Value Then
htm_ext = ".htm"
End If
    '12
        If AspToAspX_CheckIsNothing ( Request.Form ( "act" ) ) = "y" Then '13
            id = AspToAspX_CInt ( AspToAspX_CheckIsNothing ( Request.Form ( "id" ) ) ) '14
            blogtitle = htmlencode2 ( AspToAspX_CheckIsNothing ( Request.Form ( "blogtitle" ) ) ) '15
            blogqs = AspToAspX_CheckIsNothing ( Request.Form ( "blogqs" ) ) '16
            blogtypeid = AspToAspX_CheckIsNothing ( Request.Form ( "blogtypeid" ) ) '17
            xinqin = AspToAspX_CheckIsNothing ( Request.Form ( "DiaryHeart" ) ) '18
            writedate = AspToAspX_CheckIsNothing ( Request.Form ( "writedate" ) ) '19
            blogtag = AspToAspX_CheckIsNothing ( Request.Form ( "blogtag" ) ) '21
            bbstag = AspToAspX_CheckIsNothing ( Request.Form ( "bbstag" ) ) '22
            userip = AspToAspX_GetRequestServerVariables ( "remote_addr" ) '23
            userid = getcookie ( "clubuser_id" ) '24
            plqs = AspToAspX_CheckIsNothing ( Request.Form ( "plqs" ) ) '25
            bloghtmfile = AspToAspX_CheckIsNothing ( Request.Form ( "bloghtmfile" ) ) '26
            If AspToAspX_Len ( remenu ) < = 0 Then '27
                Response.Write ( "<SCRIPT language=JavaScript>alert('内容不能为空！');history.go(-1);</script>" ) '28
                Response.End ( ) '29
            End If '30
            AspToAspX_Str = "update " & ft & "ftblog set blogtitle='" & blogtitle & "',blogcontent='" & remenu & "',blogtypeid=" & blogtypeid & ",blogqs=" & blogqs & ",writedate='" & writedate & "',xinqin='" & xinqin & "',userip='" & userip & "',blogtag='" & blogtag & "',plqs=" & plqs & ",bloghtmfile='" & bloghtmfile & "' where id=" & id '35
            conn.Execute ( AspToAspX_Str ) '36
            AspToAspX_Response_Redirect ( Request ( "reurl" ) ) '37
        End If '38
        sql = "select * from " & ft & "ftblog where id=" & AspToAspX_Int ( Request ( "id" ) ) '39
        rsblog = New ADODB.Recordset ( ) '40
        rsblog.Open ( sql , conn , 3 , 1 ) '41
        Response.Write ( vbCrLf )
        Response.Write ( "<html><head><meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '43
        Response.Write ( "<link href=""css/xmwuye.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '44
        Response.Write ( "</head>" & Chr ( 13 ) ) '45
        Response.Write ( "<body>             " & Chr ( 13 ) ) '46
        Response.Write ( "<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '47
        Response.Write ( "  <tr><td height=""25"" bgcolor=""#FFFFFF""> <div align=""center""><strong>编辑日志</strong></div></td></tr>" & Chr ( 13 ) ) '48
        Response.Write ( "</table>" & Chr ( 13 ) ) '49
        Response.Write ( "              " & Chr ( 13 ) ) '50
        Response.Write ( "<table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '51
        Response.Write ( "  <form name=""myform"" method=""post"" action="""" onsubmit=""return CheckReForm(this)"">" & Chr ( 13 ) ) '52
        Response.Write ( "    <tr bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '53
        Response.Write ( "      <td width=""16%"" height=""27""> <div align=""center"">标题：</div></td>" & Chr ( 13 ) ) '54
        Response.Write ( "      <td width=""86%""> <input name=""blogtitle"" type=""text"" id=""blogtitle"" value=""" ) '55
        Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogtitle" ) .Value) ) '55
        Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '55
        Response.Write ( "        是否公开发表？ " & Chr ( 13 ) ) '56
        Response.Write ( "        <select name=""blogqs"" id=""blogqs"">" & Chr ( 13 ) ) '57
        Response.Write ( "          <option value=""0"" " ) '58
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogqs" ) .Value) ) = 0 Then '58
            Response.Write ( "selected" ) '58
        End If '58
        Response.Write ( ">是</option>" & Chr ( 13 ) ) '58
        Response.Write ( "          <option value=""1"" " ) '59
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogqs" ) .Value) ) = 1 Then '59
            Response.Write ( "selected" ) '59
        End If '59
        Response.Write ( ">否</option>" & Chr ( 13 ) ) '59
        Response.Write ( "        </select></td>" & Chr ( 13 ) ) '60
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '61
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '62
        Response.Write ( "      <td height=""28""> <div align=""center"">分类：</div></td>" & Chr ( 13 ) ) '63
        Response.Write ( "      <td> <select name=""blogtypeid"" id=""blogtypeid"">" & Chr ( 13 ) ) '64
        sql = "select * from " & ft & "ftblog_type where blogphoto=0 order by id desc" '66
        rs = New ADODB.Recordset ( ) '67
        rs.Open ( sql , conn , 1 , 3 ) '68
        Do While Not rs.EOF '69
            Response.Write ( vbCrLf )
            Response.Write ( "          <option value=""" ) '71
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '71
            Response.Write ( """ " ) '71
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) = AspToAspX_CheckDBNull(rsblog.Fields ( "blogtypeid" ) .Value) Then '71
                Response.Write ( "selected" ) '71
            End If '71
            Response.Write ( ">" ) '71
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '71
            Response.Write ( "</option>" & Chr ( 13 ) ) '71
            Response.Write ( "          " ) '72
            rs.MoveNext ( ) '73
        Loop '74
        rs.Close ( ) '75
        Response.Write ( vbCrLf )
        Response.Write ( "        </select>" & Chr ( 13 ) ) '77
        Response.Write ( "        心情： " & Chr ( 13 ) ) '78
        Response.Write ( "        <select name=""select"" id=""postheart"" Onchange=""setHeart();"">" & Chr ( 13 ) ) '79
        Response.Write ( "          <option value="""" " ) '80
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = EmptyString.Value Then '80
            Response.Write ( "selected" ) '80
        End If '80
        Response.Write ( ">无</option>" & Chr ( 13 ) ) '80
        Response.Write ( "          <option value=""一般"" " ) '81
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "一般" Then '81
            Response.Write ( "selected" ) '81
        End If '81
        Response.Write ( ">一般</option>" & Chr ( 13 ) ) '81
        Response.Write ( "          <option value=""开心"" " ) '82
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "开心" Then '82
            Response.Write ( "selected" ) '82
        End If '82
        Response.Write ( ">开心</option>" & Chr ( 13 ) ) '82
        Response.Write ( "          <option value=""伤心"" " ) '83
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "伤心" Then '83
            Response.Write ( "selected" ) '83
        End If '83
        Response.Write ( ">伤心</option>" & Chr ( 13 ) ) '83
        Response.Write ( "          <option value=""郁闷"" " ) '84
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "郁闷" Then '84
            Response.Write ( "selected" ) '84
        End If '84
        Response.Write ( ">郁闷</option>" & Chr ( 13 ) ) '84
        Response.Write ( "          <option value=""茫然"" " ) '85
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "茫然" Then '85
            Response.Write ( "selected" ) '85
        End If '85
        Response.Write ( ">茫然</option>" & Chr ( 13 ) ) '85
        Response.Write ( "          <option value=""说不清"" " ) '86
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "说不清" Then '86
            Response.Write ( "selected" ) '86
        End If '86
        Response.Write ( ">说不清</option>" & Chr ( 13 ) ) '86
        Response.Write ( "          <option value=""selfHeart"">自填心情</option>" & Chr ( 13 ) ) '87
        Response.Write ( "        </select> &nbsp; <input name=""DiaryHeart"" id=""myheart"" style=""display:none;"" size=""14"" maxlength=""10""> " & Chr ( 13 ) ) '88
        Response.Write ( "        <script language=""JavaScript"">" & Chr ( 13 ) ) '89
        Response.Write ( "function setHeart()" & Chr ( 13 ) ) '90
        Response.Write ( "{" & Chr ( 13 ) ) '91
        Response.Write ( "if(document.getElementById(""postheart"").value == ""selfHeart"")" & Chr ( 13 ) ) '92
        Response.Write ( "{" & Chr ( 13 ) ) '93
        Response.Write ( "document.getElementById(""myheart"").style.display = """";" & Chr ( 13 ) ) '94
        Response.Write ( "document.getElementById(""myheart"").style.color = ""#c0c0c0"";" & Chr ( 13 ) ) '95
        Response.Write ( "document.getElementById(""myheart"").value = ""请输入自填心情"";" & Chr ( 13 ) ) '96
        Response.Write ( "}" & Chr ( 13 ) ) '97
        Response.Write ( "else" & Chr ( 13 ) ) '98
        Response.Write ( "{" & Chr ( 13 ) ) '99
        Response.Write ( "document.getElementById(""myheart"").style.display = ""none"";" & Chr ( 13 ) ) '100
        Response.Write ( "document.getElementById(""myheart"").value = document.getElementById(""postheart"").value;" & Chr ( 13 ) ) '101
        Response.Write ( "}" & Chr ( 13 ) ) '102
        Response.Write ( "}" & Chr ( 13 ) ) '103
        Response.Write ( "function isNum(theNum)" & Chr ( 13 ) ) '104
        Response.Write ( "{" & Chr ( 13 ) ) '105
        Response.Write ( "if (theNum =="""")" & Chr ( 13 ) ) '106
        Response.Write ( "return false;" & Chr ( 13 ) ) '107
        Response.Write ( "for(var i=0;i<theNum.length;i++){" & Chr ( 13 ) ) '108
        Response.Write ( "oneNum=theNum.substring(i,i+1);" & Chr ( 13 ) ) '109
        Response.Write ( "if (oneNum<""0"" || oneNum>""9"")" & Chr ( 13 ) ) '110
        Response.Write ( "return false;" & Chr ( 13 ) ) '111
        Response.Write ( "}" & Chr ( 13 ) ) '112
        Response.Write ( "return true;" & Chr ( 13 ) ) '113
        Response.Write ( "}" & Chr ( 13 ) ) '114
        Response.Write ( "</script> </td>" & Chr ( 13 ) ) '115
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '116
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '117
        Response.Write ( "      <td height=""28""> <div align=""center"">时间：</div></td>" & Chr ( 13 ) ) '118
        Response.Write ( "      <td> <input name=""writedate"" type=""text"" id=""writedate"" value=""" ) '119
        Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "writedate" ) .Value) ) '119
        Response.Write ( """ size=""26""></td>" & Chr ( 13 ) ) '119
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '120
        Response.Write ( "    <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '121
        Response.Write ( "      <td height=300></td>" & Chr ( 13 ) ) '122
        Response.Write ( "      <td>" & Chr ( 13 ) ) '123
        Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""menu"" style=""position:absolute;left:0;visibility:hidden;"">" ) '124
        Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogcontent" ) .Value) ) '124
        Response.Write ( "</textarea>" & Chr ( 13 ) ) '124
        Response.Write ( "<script type=""text/javascript"" src=""fteditor/editor.js""></script> " & Chr ( 13 ) ) '125
        Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '126
        Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '127