blog_editpl.aspx.vb
来自「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成」· VB 代码 · 共 606 行 · 第 1/2 页
VB
606 行
' ***************************************************
' * 本程序由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 _BLOG_EDITPL
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public id
Public userid
Public netname
Public plnl
Public AspToAspX_Str
Public sql
Public rs As ADODB.Recordset
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public username
Public userimg
Public homepagetitle
Public cssfile
Public bokeer
Public blog_mid
Public blogheadimg
Public clubuser_id
Public rs8
Public ASPX_CONN As _CONN
Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
Public ASPX_INC_MD5 As _INC_MD5
Public ASPX_BBSUSER As _BBSUSER
Public ASPX_INC_HTMLENCODE2 As _INC_HTMLENCODE2
Public ASPX_INC_UBBCODE As _INC_UBBCODE
Public ASPX_MEMBERINFO As _MEMBERINFO
Public ASPX_USERNAV As _USERNAV
Public ASPX_USERCALOG As _USERCALOG
Public ASPX_TAIL As _TAIL
#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_PUBLICFUN = New _INC_PUBLICFUN()
ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
ASPX_INC_MD5 = New _INC_MD5()
ASPX_INC_MD5.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_MD5.AspToAspX_InitIncludeFiles()
ASPX_BBSUSER = New _BBSUSER()
ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_BBSUSER.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_MEMBERINFO = New _MEMBERINFO()
ASPX_MEMBERINFO.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_MEMBERINFO.AspToAspX_InitIncludeFiles()
ASPX_USERNAV = New _USERNAV()
ASPX_USERNAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_USERNAV.AspToAspX_InitIncludeFiles()
ASPX_USERCALOG = New _USERCALOG()
ASPX_USERCALOG.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_USERCALOG.AspToAspX_InitIncludeFiles()
ASPX_TAIL = New _TAIL()
ASPX_TAIL.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_TAIL.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
ASPX_INC_PUBLICFUN = Nothing
ASPX_INC_MD5.AspToAspX_UnloadIncludeFiles()
ASPX_INC_MD5 = Nothing
ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
ASPX_BBSUSER = Nothing
ASPX_INC_HTMLENCODE2.AspToAspX_UnloadIncludeFiles()
ASPX_INC_HTMLENCODE2 = Nothing
ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
ASPX_INC_UBBCODE = Nothing
ASPX_MEMBERINFO.AspToAspX_UnloadIncludeFiles()
ASPX_MEMBERINFO = Nothing
ASPX_USERNAV.AspToAspX_UnloadIncludeFiles()
ASPX_USERNAV = Nothing
ASPX_USERCALOG.AspToAspX_UnloadIncludeFiles()
ASPX_USERCALOG = Nothing
ASPX_TAIL.AspToAspX_UnloadIncludeFiles()
ASPX_TAIL = 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_PUBLICFUN.AspToAspX_Page_Init ( )
ASPX_INC_MD5.AspToAspX_Page_Init ( )
ASPX_BBSUSER.AspToAspX_Page_Init ( )
ASPX_INC_HTMLENCODE2.AspToAspX_Page_Init ( )
ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
id = AspToAspX_CInt ( Request ( "id" ) ) '8
userid = AspToAspX_CInt ( getcookie ( "clubuser_id" ) ) '9
If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '10
netname = Checkstr ( Request ( "netname" ) ) '11
plnl = Checkstr ( trim ( Request ( "remenu" ) ) ) '12
plnl = RegExReplace ( plnl , "\b(script)\b" , " $1 " ) '13
plnl = RegExReplace ( plnl , "\b(iframe)\b" , " $1 " ) '14
AspToAspX_Str = "update " & ft & "ftblog_pl set netname='" & netname & "',plcontent='" & plnl & "' where id=" & id '15
conn.Execute ( AspToAspX_Str ) '16
AspToAspX_Response_Redirect ( Request ( "url" ) ) '17
End If '18
Response.Write ( vbCrLf )
ASPX_MEMBERINFO.AspToAspX_Page_Init ( )
Response.Write ( "<html><head><meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '21
Response.Write ( "<title>" ) '22
Response.Write ( username ) '22
Response.Write ( "的评论管理中心</title>" & Chr ( 13 ) ) '22
Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '23
Response.Write ( cssfile ) '23
Response.Write ( """>" & Chr ( 13 ) ) '23
Response.Write ( "</head>" & Chr ( 13 ) ) '24
Response.Write ( "<body>" & Chr ( 13 ) ) '25
Response.Write ( "<center>" & Chr ( 13 ) ) '26
ASPX_USERNAV.AspToAspX_Page_Init ( )
Response.Write ( "<div id=""main"" align=""left"">" & Chr ( 13 ) ) '28
Response.Write ( "<script language=javascript src=""js/windowsize.js""></script>" & Chr ( 13 ) ) '29
Response.Write ( "" & Chr ( 9 ) & "<div id=""header"">" & Chr ( 13 ) ) '30
Response.Write ( "" & Chr ( 9 ) & "<div class=""lc""><div class=""rc""></div></div>" & Chr ( 13 ) ) '31
Response.Write ( "" & Chr ( 9 ) & "<div class=""tit""><a href=""home.aspx?userid=" ) '32
Response.Write ( userid ) '32
Response.Write ( """ class=""titlink"" title=""" ) '32
Response.Write ( username ) '32
Response.Write ( "的空间"">" ) '32
Response.Write ( username ) '32
Response.Write ( "</a></div>" & Chr ( 13 ) ) '32
Response.Write ( "" & Chr ( 9 ) & "<div class=""desc"">" ) '33
Response.Write ( homepagetitle ) '33
Response.Write ( "</div>" & Chr ( 13 ) ) '33
Response.Write ( "" & Chr ( 9 ) & "<div id=""tabline""> </div>" & Chr ( 13 ) ) '34
Response.Write ( "" & Chr ( 9 ) & "<div id=""tab""><a href=""home.aspx?userid=" ) '35
Response.Write ( userid ) '35
Response.Write ( """ class=""on"">主页</a><a href=""boker.aspx?userid=" ) '35
Response.Write ( userid ) '35
Response.Write ( """>博客</a><span>|</span><a href=""myphoto.aspx?userid=" ) '35
Response.Write ( userid ) '35
Response.Write ( """>相册</a><span>|</span><a href=""myinfo.aspx?userid=" ) '35
Response.Write ( userid ) '35
Response.Write ( """>个人档案</a>" & Chr ( 13 ) ) '35
Response.Write ( "" & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '36
Response.Write ( "</div>" & Chr ( 13 ) ) '37
Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '38
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""layout"">" & Chr ( 13 ) ) '39
Response.Write ( "<tr>" & Chr ( 13 ) ) '40
Response.Write ( "<td valign=""top"" class=""c2t3"">" & Chr ( 13 ) ) '41
Response.Write ( "<div id=""mod_profile"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '42
ASPX_USERCALOG.AspToAspX_Page_Init ( )
Response.Write ( "</div>" & Chr ( 13 ) ) '44
Response.Write ( "</td>" & Chr ( 13 ) ) '45
Response.Write ( "<td valign=""top"" class=""c2t1"">" & Chr ( 13 ) ) '46
Response.Write ( "<div id=""mod_bloglist"" class=""mod"" rel=""drag""> " & Chr ( 13 ) ) '47
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '48
Response.Write ( " <tr valign=""middle""> " & Chr ( 13 ) ) '49
Response.Write ( " <td height=""50"" colspan=""2"" class=new14> " & Chr ( 13 ) ) '50
Response.Write ( " <div align=""center"">修改评论</div></td>" & Chr ( 13 ) ) '51
Response.Write ( " </tr>" & Chr ( 13 ) ) '52
Response.Write ( " <tr> " & Chr ( 13 ) ) '53
Response.Write ( " <td height=""1"" colspan=""2"" bgcolor=""#336699"" class=new14><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '54
Response.Write ( " </tr>" & Chr ( 13 ) ) '55
Response.Write ( " <tr > " & Chr ( 13 ) ) '56
Response.Write ( " <td height=""15"" colspan=""2"" class=new14></td>" & Chr ( 13 ) ) '57
Response.Write ( " </tr>" & Chr ( 13 ) ) '58
Response.Write ( " " ) '59
sql = "select * from " & ft & "ftblog_pl where id=" & id & "" '60
rs = New ADODB.Recordset ( ) '61
rs.Open ( sql , conn , 1 , 1 ) '62
Response.Write ( vbCrLf )
Response.Write ( " <form action="""" method=""post"" name=""form1"" onsubmit=""return CheckPlForm(this)"">" & Chr ( 13 ) ) '64
Response.Write ( " <tr > " & Chr ( 13 ) ) '65
Response.Write ( " <td width=""11%"" height=""28""> " & Chr ( 13 ) ) '66
Response.Write ( " <div align=""center"">网名:</div></td>" & Chr ( 13 ) ) '67
Response.Write ( " <td width=""89%""> " & Chr ( 13 ) ) '68
Response.Write ( " <input name=""netname"" type=""text"" id=""netname"" value=""" ) '69
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "netname" ) .Value) ) '69
Response.Write ( """ maxlength=""29""></td>" & Chr ( 13 ) ) '69
Response.Write ( " </tr>" & Chr ( 13 ) ) '70
Response.Write ( " <tr > " & Chr ( 13 ) ) '71
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '72
Response.Write ( " <div align=""center"">内容:</div></td>" & Chr ( 13 ) ) '73
Response.Write ( " <td height=""300"">" & Chr ( 13 ) ) '74
Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""remenu"" style=""position:absolute;left:0;visibility:hidden;"">" ) '75
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "plcontent" ) .Value) ) '75
Response.Write ( "</textarea>" & Chr ( 13 ) ) '75
Response.Write ( "<script type=""text/javascript"" src=""fteditor/blogeditor.js""></script> " & Chr ( 13 ) ) '76
Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '77
Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '78
Response.Write ( "editor.hiddenName = ""remenu"";" & Chr ( 13 ) ) '79
Response.Write ( "editor.editorType = ""simple"";" & Chr ( 13 ) ) '80
Response.Write ( "editor.editorWidth = ""600px"";" & Chr ( 13 ) ) '81
Response.Write ( "editor.editorHeight = ""250px"";" & Chr ( 13 ) ) '82
Response.Write ( "editor.show();" & Chr ( 13 ) ) '83
Response.Write ( "</script>" & Chr ( 13 ) ) '84
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " </td>" & Chr ( 13 ) ) '85
Response.Write ( " </tr>" & Chr ( 13 ) ) '86
Response.Write ( " <tr > " & Chr ( 13 ) ) '87
Response.Write ( " <td height=""28""> </td>" & Chr ( 13 ) ) '88
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '89
Response.Write ( " <input type=""submit"" name=""submit1"" value="" 修 改 "" class=""button""> " & Chr ( 13 ) ) '90
Response.Write ( " <input name=""act"" type=""hidden"" id=""act"" value=""y""> <input name=""id"" type=""hidden"" id=""id"" value=""" ) '91
Response.Write ( id ) '91
Response.Write ( """>" & Chr ( 13 ) ) '91
Response.Write ( " <input name=""url"" type=""hidden"" id=""url"" value=""" ) '92
Response.Write ( AspToAspX_GetRequestServerVariables ( "Http_REFERER" ) ) '92
Response.Write ( """></td>" & Chr ( 13 ) ) '92
Response.Write ( " </tr>" & Chr ( 13 ) ) '93
Response.Write ( " </form>" & Chr ( 13 ) ) '94
Response.Write ( " " ) '95
rs.MoveNext ( ) '96
rs.Close ( ) '97
Response.Write ( vbCrLf )
Response.Write ( " </table>" & Chr ( 13 ) ) '99
Response.Write ( " <br>" & Chr ( 13 ) ) '100
Response.Write ( " </div>" & Chr ( 13 ) ) '101
Response.Write ( "</td>" & Chr ( 13 ) ) '102
Response.Write ( "</tr></table>" & Chr ( 13 ) ) '103
Response.Write ( "</div>" & Chr ( 13 ) ) '104
Response.Write ( "</div>" & Chr ( 13 ) ) '105
Response.Write ( "<br><center>" & Chr ( 13 ) ) '106
Response.Write ( " " ) '107
ASPX_TAIL.AspToAspX_Page_Init ( )
Response.Write ( " </center>" & Chr ( 13 ) ) '108
Response.Write ( "</center>" & Chr ( 13 ) ) '109
Response.Write ( "</body>" & Chr ( 13 ) ) '110
Response.Write ( "</html>" & Chr ( 13 ) ) '111
closedb ( ) '112
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("blog_editpl_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
Public Property conn
Get
conn = ASPX_CONN.conn
End Get
Set(ByVal value)
ASPX_CONN.conn = value
End Set
End Property
Public Property qs
Get
qs = ASPX_CONN.qs
End Get
Set(ByVal value)
ASPX_CONN.qs = value
End Set
End Property
Public Property errc
Get
errc = ASPX_CONN.errc
End Get
Set(ByVal value)
ASPX_CONN.errc = value
End Set
End Property
Public Property iii
Get
iii = ASPX_CONN.iii
End Get
Set(ByVal value)
ASPX_CONN.iii = value
End Set
End Property
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?