📄 blog_group.aspx.vb
字号:
' ***************************************************
' * 本程序由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_GROUP
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public userid
Public ftblog_old
Public ftblog
Public nav
Public blogphoto
Public n
Public sql
Public rs As ADODB.Recordset
Public AspToAspX_Sign
Public url
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_ISBOKER As _ISBOKER
Public ASPX_GBTOUTF8 As _GBTOUTF8
Public ASPX_MEMBERINFO As _MEMBERINFO
Public ASPX_USERNAV As _USERNAV
Public ASPX_BOKERHEAD As _BOKERHEAD
Public ASPX_PHOTOHEAD As _PHOTOHEAD
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_ISBOKER = New _ISBOKER()
ASPX_ISBOKER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_ISBOKER.AspToAspX_InitIncludeFiles()
ASPX_GBTOUTF8 = New _GBTOUTF8()
ASPX_GBTOUTF8.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_GBTOUTF8.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_BOKERHEAD = New _BOKERHEAD()
ASPX_BOKERHEAD.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_BOKERHEAD.AspToAspX_InitIncludeFiles()
ASPX_PHOTOHEAD = New _PHOTOHEAD()
ASPX_PHOTOHEAD.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_PHOTOHEAD.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_ISBOKER.AspToAspX_UnloadIncludeFiles()
ASPX_ISBOKER = Nothing
ASPX_GBTOUTF8.AspToAspX_UnloadIncludeFiles()
ASPX_GBTOUTF8 = Nothing
ASPX_MEMBERINFO.AspToAspX_UnloadIncludeFiles()
ASPX_MEMBERINFO = Nothing
ASPX_USERNAV.AspToAspX_UnloadIncludeFiles()
ASPX_USERNAV = Nothing
ASPX_BOKERHEAD.AspToAspX_UnloadIncludeFiles()
ASPX_BOKERHEAD = Nothing
ASPX_PHOTOHEAD.AspToAspX_UnloadIncludeFiles()
ASPX_PHOTOHEAD = 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_ISBOKER.AspToAspX_Page_Init ( )
ASPX_GBTOUTF8.AspToAspX_Page_Init ( )
userid = getcookie ( "clubuser_id" ) '8
ftblog_old = Checkstr ( Request ( "ftblog_old" ) ) '9
ftblog = Checkstr ( Request ( "ftblog" ) ) '10
nav = Request ( "nav" ) '11
If AspToAspX_CheckDBNull ( nav ) = "b" Then '12
blogphoto = 0 '13
n = "分类" '14
Else '15
blogphoto = 1 '16
n = "相册" '17
End If '18
If AspToAspX_CheckDBNull ( ftblog_old ) < > EmptyString.Value Then '19
sql = "update " & ft & "ftblog_type set blogtype='" & ftblog & "' where blogtype='" & ftblog_old & "' and blogphoto=" & blogphoto '20
conn.Execute ( sql ) '21
sql = "update " & ft & "ftbbs_upload set photo_name='" & ftblog & "' where photo_name='" & ftblog_old & "' and clubuser_id=" & userid '22
conn.Execute ( sql ) '23
End If '24
If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '25
ftblog = Checkstr ( Request ( "ftblog" ) ) '26
blogphoto = AspToAspX_CInt ( AspToAspX_CheckIsNothing ( Request.Form ( "blogphoto" ) ) ) '27
If AspToAspX_CheckDBNull ( ftblog ) = EmptyString.Value Then '28
Response.Write ( "<SCRIPT language=JavaScript>alert('分类不能为空！');history.go(-1);</script>" ) '29
Response.End ( ) '30
End If '31
sql = "select * from " & ft & "ftblog_type where blogtype='" & ftblog & "' and userid=" & userid & " and blogphoto=" & blogphoto & " order by id desc" '32
rs = New ADODB.Recordset ( ) '33
rs.Open ( sql , conn , 1 , 3 ) '34
If rs.EOF Then '35
rs.addnew ( ) '36
rs.Fields ( "userid" ) .Value = getcookie ( "clubuser_id" ) '37
rs.Fields ( "blogtype" ) .Value = AspToAspX_CheckIsNothing ( Request.Form ( "ftblog" ) ) '38
rs.Fields ( "blogphoto" ) .Value = blogphoto '39
rs.Fields ( "qs" ) .Value = 0 '40
rs.Fields ( "userip" ) .Value = AspToAspX_GetRequestServerVariables ( "remote_addr" ) '41
rs.Update ( ) '42
rs.Close ( ) '43
rs = Nothing '44
Else '45
Response.Write ( "<SCRIPT language=JavaScript>alert('你添加的分类已存在！');history.go(-1);</script>" ) '46
Response.End ( ) '47
End If '48
End If '49
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 ) ) '52
Response.Write ( "<title>" ) '53
Response.Write ( username ) '53
Response.Write ( "的日志分类管理中心</title>" & Chr ( 13 ) ) '53
Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '54
Response.Write ( cssfile ) '54
Response.Write ( """>" & Chr ( 13 ) ) '54
Response.Write ( "</head>" & Chr ( 13 ) ) '55
Response.Write ( "<script language=""javascript"" src=""js/publicfun.js""></script>" & Chr ( 13 ) ) '56
Response.Write ( "<body>" & Chr ( 13 ) ) '57
Response.Write ( "<center>" & Chr ( 13 ) ) '58
ASPX_USERNAV.AspToAspX_Page_Init ( )
If AspToAspX_CheckDBNull ( nav ) = "b" Then '60
Response.Write ( vbCrLf )
ASPX_BOKERHEAD.AspToAspX_Page_Init ( )
ElseIf AspToAspX_CheckDBNull ( nav ) = "a"Then '62
Response.Write ( vbCrLf )
ASPX_PHOTOHEAD.AspToAspX_Page_Init ( )
End If '64
Response.Write ( vbCrLf )
Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '65
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""layout"">" & Chr ( 13 ) ) '66
Response.Write ( "<tr>" & Chr ( 13 ) ) '67
Response.Write ( "<td valign=""top"" class=""c2t3"">" & Chr ( 13 ) ) '68
Response.Write ( "<div id=""mod_profile"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '69
ASPX_USERCALOG.AspToAspX_Page_Init ( )
Response.Write ( "</div>" & Chr ( 13 ) ) '71
Response.Write ( "</td>" & Chr ( 13 ) ) '72
Response.Write ( "<td valign=""top"" class=""c2t1"">" & Chr ( 13 ) ) '73
Response.Write ( "<div id=""m_blog"" class=""modbox"">" & Chr ( 13 ) ) '74
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '75
Response.Write ( "<form name=""form1"" method=post action="""" onsubmit=""return chkForm(this)""> " & Chr ( 13 ) ) '76
Response.Write ( "<tr valign=""top""> " & Chr ( 13 ) ) '77
Response.Write ( " <td height=""50"" colspan=""5"" class=new14 valign=""middle""> " & Chr ( 13 ) ) '78
Response.Write ( " <div align=""left"">" & Chr ( 13 ) ) '79
Response.Write ( " " & Chr ( 13 ) ) '80
Response.Write ( " 请输入你的" ) '81
Response.Write ( n ) '81
Response.Write ( "名称: " & Chr ( 13 ) ) '81
Response.Write ( " <input name=""ftblog"" type=""text"" class=""text"" />" & Chr ( 13 ) ) '82
Response.Write ( " <input name=""Submit"" type=""Submit"" class=""button"" value=""创建" ) '83
Response.Write ( n ) '83
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -