admin_blog_editpl.aspx.vb
来自「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成」· VB 代码 · 共 317 行
VB
317 行
' ***************************************************
' * 本程序由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 _ADMIN_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 ASPX_CONN As _CONN
Public ASPX_ADMIN_CHECK_MASTER As _ADMIN_CHECK_MASTER
#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()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
ASPX_ADMIN_CHECK_MASTER = 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 ( )
id = AspToAspX_CInt ( Request ( "id" ) ) '4
userid = getcookie ( "clubuser_id" ) '5
If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '6
netname = Checkstr ( Request ( "netname" ) ) '7
plnl = Checkstr ( Request ( "menu" ) ) '8
plnl = AspToAspX_Object.RegExReplace ( plnl , "\b(script)\b" , " $1 " ) '9
plnl = AspToAspX_Object.RegExReplace ( plnl , "\b(iframe)\b" , " $1 " ) '10
AspToAspX_Str = "update " & ft & "ftblog_pl set netname='" & netname & "',plcontent='" & plnl & "' where id=" & id '11
conn.Execute ( AspToAspX_Str ) '12
AspToAspX_Response_Redirect ( Request ( "url" ) ) '13
End If '14
Response.Write ( vbCrLf )
Response.Write ( "<html><head><meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '16
Response.Write ( "<link href=""css/xmwuye.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '17
Response.Write ( "</head>" & Chr ( 13 ) ) '18
Response.Write ( "<body>" & Chr ( 13 ) ) '19
Response.Write ( "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '20
Response.Write ( " <tr valign=""middle""> " & Chr ( 13 ) ) '21
Response.Write ( " " & Chr ( 13 ) ) '22
Response.Write ( " <td height=""25"" colspan=""2"" bgcolor=""#FFFFFF"" class=new14> " & Chr ( 13 ) ) '23
Response.Write ( " <div align=""center"">修改评论</div></td>" & Chr ( 13 ) ) '24
Response.Write ( " </tr>" & Chr ( 13 ) ) '25
Response.Write ( " <tr> " & Chr ( 13 ) ) '26
Response.Write ( " <td height=""1"" colspan=""2"" bgcolor=""#336699"" class=new14><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '27
Response.Write ( " </tr>" & Chr ( 13 ) ) '28
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '29
Response.Write ( " <td height=""15"" colspan=""2"" class=new14></td>" & Chr ( 13 ) ) '30
Response.Write ( " </tr>" & Chr ( 13 ) ) '31
Response.Write ( " " ) '32
sql = "select * from " & ft & "ftblog_pl where id=" & id & "" '33
rs = New ADODB.Recordset ( ) '34
rs.Open ( sql , conn , 1 , 1 ) '35
Response.Write ( vbCrLf )
Response.Write ( " <form action="""" method=""post"" name=""myform"" onsubmit=""return CheckReForm(this)"">" & Chr ( 13 ) ) '37
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '38
Response.Write ( " <td width=""11%"" height=""28""> " & Chr ( 13 ) ) '39
Response.Write ( " <div align=""center"">网名:</div></td>" & Chr ( 13 ) ) '40
Response.Write ( " <td width=""89%""> " & Chr ( 13 ) ) '41
Response.Write ( " <input name=""netname"" type=""text"" id=""netname"" value=""" ) '42
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "netname" ) .Value) ) '42
Response.Write ( """ maxlength=""29""></td>" & Chr ( 13 ) ) '42
Response.Write ( " </tr>" & Chr ( 13 ) ) '43
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '44
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '45
Response.Write ( " <div align=""center"">内容:</div></td>" & Chr ( 13 ) ) '46
Response.Write ( " <td height=""300""> " & Chr ( 13 ) ) '47
Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""menu"" style=""position:absolute;left:0;visibility:hidden;"">" ) '48
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "plcontent" ) .Value) ) '48
Response.Write ( "</textarea>" & Chr ( 13 ) ) '48
Response.Write ( "<script type=""text/javascript"" src=""fteditor/editor.js""></script> " & Chr ( 13 ) ) '49
Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '50
Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '51
Response.Write ( "editor.hiddenName = ""menu"";" & Chr ( 13 ) ) '52
Response.Write ( "editor.editorType = ""simple"";" & Chr ( 13 ) ) '53
Response.Write ( "editor.editorWidth = ""600px"";" & Chr ( 13 ) ) '54
Response.Write ( "editor.editorHeight = ""250px"";" & Chr ( 13 ) ) '55
Response.Write ( "editor.show();" & Chr ( 13 ) ) '56
Response.Write ( "</script>" & Chr ( 13 ) ) '57
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " </td>" & Chr ( 13 ) ) '58
Response.Write ( " </tr>" & Chr ( 13 ) ) '59
Response.Write ( " <tr bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '60
Response.Write ( " <td height=""28""> </td>" & Chr ( 13 ) ) '61
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '62
Response.Write ( " <input type=""submit"" name=""submit1"" value="" 修 改 "" class=""button"" " ) '63
If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 2 ) ) < = 0 Then '63
Response.Write ( "disabled" ) '63
End If '63
Response.Write ( "> " & Chr ( 13 ) ) '63
Response.Write ( " <input name=""act"" type=""hidden"" id=""act"" value=""y""> <input name=""id"" type=""hidden"" id=""id"" value=""" ) '64
Response.Write ( id ) '64
Response.Write ( """>" & Chr ( 13 ) ) '64
Response.Write ( " <input name=""url"" type=""hidden"" id=""url"" value=""" ) '65
Response.Write ( AspToAspX_GetRequestServerVariables ( "Http_REFERER" ) ) '65
Response.Write ( """></td>" & Chr ( 13 ) ) '65
Response.Write ( " </tr>" & Chr ( 13 ) ) '66
Response.Write ( " </form>" & Chr ( 13 ) ) '67
rs.MoveNext ( ) '69
rs.Close ( ) '70
closedb ( ) '71
Response.Write ( vbCrLf )
Response.Write ( "</table>" & Chr ( 13 ) ) '73
Response.Write ( "</body>" & Chr ( 13 ) ) '74
Response.Write ( "</html>" & Chr ( 13 ) ) '75
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("admin_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
Public Property nothis
Get
nothis = ASPX_CONN.nothis
End Get
Set(ByVal value)
ASPX_CONN.nothis = value
End Set
End Property
Public Sub makeftbbstree(ByRef ft )
ASPX_CONN.makeftbbstree( ft )
End Sub
Public Sub CloseDb
ASPX_CONN.CloseDb
End Sub
Public Sub SaveToFile( ByVal strBody,ByVal File )
ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
End Sub
Public Function Checkstr(ByRef AspToAspX_Str )
Return ASPX_CONN.Checkstr( AspToAspX_Str )
End Function
Public Function CheckCharStr(ByRef usernamepsw,ByRef flag )
Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
End Function
Public Function ftbbs_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.ftbbs_msg( msg,reurl )
End Function
Public Function login_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.login_msg( msg,reurl )
End Function
Public Function FTBBS_HTML_MB(ByRef ft )
Return ASPX_CONN.FTBBS_HTML_MB( ft )
End Function
Public Function FTBBS_BZ_NAME(ByRef BoardID_1,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
End Function
Public Function FTBBS_BZ_NAME2(ByRef BoardID_1,ByRef BoardID_2,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
End Function
Public Function makefilename(ByRef fname )
Return ASPX_CONN.makefilename( fname )
End Function
Public Function GetExtendName(ByRef FileName )
Return ASPX_CONN.GetExtendName( FileName )
End Function
Public Function IsObjInstalled(ByRef strClassString )
Return ASPX_CONN.IsObjInstalled( strClassString )
End Function
Public Function ChkMapPath( ByVal strPath )
Return ASPX_CONN.ChkMapPath( strPath )
End Function
Public Function userlogin(ByRef ft )
Return ASPX_CONN.userlogin( ft )
End Function
Public Function headhtml
Return ASPX_CONN.headhtml
End Function
Public Function GetOpInfo(ByRef AspToAspX_Str,ByRef Flag )
Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
End Function
Public Function getcode
Return ASPX_CONN.getcode
End Function
Public Function codepass
Return ASPX_CONN.codepass
End Function
Public Function Ftbbs_Time
Return ASPX_CONN.Ftbbs_Time
End Function
Public Function ft_home(ByRef defaulthome )
Return ASPX_CONN.ft_home( defaulthome )
End Function
Public Function chkpost
Return ASPX_CONN.chkpost
End Function
Public Function CodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.CodeCookie( AspToAspX_Str )
End Function
Public Function DecodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
End Function
Public Function setcookie(ByRef cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
End Function
Public Function getcookie(ByRef ckname )
Return ASPX_CONN.getcookie( ckname )
End Function
Public Function clearcookie(ByRef cookdomain,ByRef cookneme )
Return ASPX_CONN.clearcookie( cookdomain,cookneme )
End Function
Public Function LoadFile( ByVal File )
Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
End Function
Public Function adminlogin(ByRef ft )
Return ASPX_ADMIN_CHECK_MASTER.adminlogin( ft )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?