📄 blogcenter_pl.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 _BLOGCENTER_PL
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public i
Public userid
Public pltype
Public tyname
Public sql
Public rs As ADODB.Recordset
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
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_MEMBERINFO As _MEMBERINFO
Public ASPX_USERNAV As _USERNAV
Public ASPX_BOKERHEAD As _BOKERHEAD
Public ASPX_PHOTOHEAD As _PHOTOHEAD
Public ASPX_HAOYOUHEAD As _HAOYOUHEAD
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_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_HAOYOUHEAD = New _HAOYOUHEAD()
ASPX_HAOYOUHEAD.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_HAOYOUHEAD.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_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_HAOYOUHEAD.AspToAspX_UnloadIncludeFiles()
ASPX_HAOYOUHEAD = 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 ( )
userid = getcookie ( "clubuser_id" ) '7
pltype = AspToAspX_CInt ( Request ( "pltype" ) ) '8
tyname = "pltype" '9
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 ) ) '12
Response.Write ( "<title>" ) '13
Response.Write ( username ) '13
Response.Write ( "的评论管理中心</title>" & Chr ( 13 ) ) '13
Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '14
Response.Write ( cssfile ) '14
Response.Write ( """>" & Chr ( 13 ) ) '14
Response.Write ( "</head>" & Chr ( 13 ) ) '15
Response.Write ( "<script language=""javascript"" src=""js/publicfun.js""></script>" & Chr ( 13 ) ) '16
Response.Write ( "<body>" & Chr ( 13 ) ) '17
Response.Write ( "<center>" & Chr ( 13 ) ) '18
ASPX_USERNAV.AspToAspX_Page_Init ( )
If AspToAspX_CheckDBNull ( pltype ) = 0 Then '20
Response.Write ( vbCrLf )
ASPX_BOKERHEAD.AspToAspX_Page_Init ( )
ElseIf AspToAspX_CheckDBNull ( pltype ) = 1 Then '22
Response.Write ( vbCrLf )
ASPX_PHOTOHEAD.AspToAspX_Page_Init ( )
ElseIf AspToAspX_CheckDBNull ( pltype ) = 2 Then '24
Response.Write ( vbCrLf )
ASPX_HAOYOUHEAD.AspToAspX_Page_Init ( )
End If '26
Response.Write ( vbCrLf )
Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '27
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""layout"">" & Chr ( 13 ) ) '28
Response.Write ( "<tr>" & Chr ( 13 ) ) '29
Response.Write ( "<td valign=""top"" class=""c2t3"">" & Chr ( 13 ) ) '30
Response.Write ( "<div id=""m_blog"" class=""modbox"">" & Chr ( 13 ) ) '31
ASPX_USERCALOG.AspToAspX_Page_Init ( )
Response.Write ( "</div>" & Chr ( 13 ) ) '33
Response.Write ( "</td>" & Chr ( 13 ) ) '34
Response.Write ( "<td valign=""top"" class=""c2t1"">" & Chr ( 13 ) ) '35
Response.Write ( "<div id=""m_blog"" class=""modbox"">" & Chr ( 13 ) ) '36
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '37
Response.Write ( " <tr valign=""middle""> " & Chr ( 13 ) ) '38
Response.Write ( " <td height=""50"" colspan=""5"" class=new14> " & Chr ( 13 ) ) '39
Response.Write ( " <div align=""center"">" ) '40
If AspToAspX_CheckDBNull ( pltype ) = 0 Then
Response.Write ( "日志" )
Else
Response.Write ( "相册" )
End If
'40
Response.Write ( "评论管理</div></td>" & Chr ( 13 ) ) '40
Response.Write ( " </tr>" & Chr ( 13 ) ) '41
Response.Write ( " <tr> " & Chr ( 13 ) ) '42
Response.Write ( " <td height=""1"" colspan=""5"" bgcolor=""#336699"" class=new14><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '43
Response.Write ( " </tr>" & Chr ( 13 ) ) '44
Response.Write ( " <tr> " & Chr ( 13 ) ) '45
Response.Write ( " <td width=""78%"" height=""25""> <div align=""left""><strong>内容</strong></div></td>" & Chr ( 13 ) ) '46
Response.Write ( " <td width=""7%"" ><div align=""center"">状态</div></td>" & Chr ( 13 ) ) '47
Response.Write ( " <td width=""8%"" ><div align=""center"">编辑</div></td>" & Chr ( 13 ) ) '48
Response.Write ( " <td width=""7%"" ><div align=""center"">删除</div></td>" & Chr ( 13 ) ) '49
Response.Write ( " </tr>" & Chr ( 13 ) ) '50
Response.Write ( " <tr> " & Chr ( 13 ) ) '51
Response.Write ( " <td height=""1"" colspan=""5"" background=""blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '52
Response.Write ( " </tr>" & Chr ( 13 ) ) '53
Response.Write ( " <form name=""selectform"" method=post action=""pldelop.aspx"">" & Chr ( 13 ) ) '54
Response.Write ( " <input type=""hidden"" name=""op"" value=""选择显示"">" & Chr ( 13 ) ) '55
Response.Write ( " <input type=""hidden"" name=""tb"" value=""ftblog_pl"">" & Chr ( 13 ) ) '56
Response.Write ( " <input type=""hidden"" name=""returnURL"" value=""blogcenter_pl.aspx?" ) '57
Response.Write ( Request.QueryString ) '57
Response.Write ( """>" & Chr ( 13 ) ) '57
sql = "select * from " & ft & "ftblog_pl where userid=" & getcookie ( "clubuser_id" ) & " and pltype=" & pltype & " order by pldate desc" '59
rs = New ADODB.Recordset ( ) '60
rs.Open ( sql , conn , 1 , 1 ) '61
If Not rs.EOF Then '62
wzrep = 30 '63
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '64
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'65
rs.PageSize = wzrep '66
rs.AbsolutePage = wzpage '67
wzpagecount = rs.PageCount '68
wzcount = rs.RecordCount '69
For i = 0 To Val ( wzrep ) - 1 '70
If rs.EOF Then
Exit For
End If
'71
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '73
Response.Write ( " <td height=""25""><div class=""opt""><input name=""checkbox1"" type=""checkbox"" id=""checkbox1"" value=""" ) '74
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '74
Response.Write ( """>(" ) '74
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "netname" ) .Value) ) '74
Response.Write ( ")<br>" & Chr ( 13 ) ) '74
Response.Write ( " <a href=""myblog.aspx?id=" ) '75
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogid" ) .Value) ) '75
Response.Write ( "&userid=" ) '75
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '75
Response.Write ( """ target=""_blank"">" ) '75
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "plcontent" ) .Value) ) '75
Response.Write ( "</a></div></td>" & Chr ( 13 ) ) '75
Response.Write ( " <td height=""25"" align=""center""><div class=""opt""> " & Chr ( 13 ) ) '76
Response.Write ( " " ) '77
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "plqs" ) .Value) ) = 0 Then '77
Response.Write ( vbCrLf )
Response.Write ( " <a href=""plop.aspx?id=" ) '78
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '78
Response.Write ( "&op=top&v=1"">显示</a> " & Chr ( 13 ) ) '78
Response.Write ( " " ) '79
Else '79
Response.Write ( vbCrLf )
Response.Write ( " <a href=""plop.aspx?id=" ) '80
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '80
Response.Write ( "&op=top&v=0"">隐藏</a> " & Chr ( 13 ) ) '80
Response.Write ( " " ) '81
End If '81
Response.Write ( vbCrLf )
Response.Write ( " </div></td>" & Chr ( 13 ) ) '82
Response.Write ( " <td height=""25"" align=""center""><div class=""opt""><a href=""blog_editpl.aspx?id=" ) '83
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '83
Response.Write ( """>编辑</a></div></td>" & Chr ( 13 ) ) '83
Response.Write ( " <td height=""25"" align=""center""><div class=""opt""><a href=""plop.aspx?id=" ) '84
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '84
Response.Write ( "&op=del"">删除</a></div></td>" & Chr ( 13 ) ) '84
Response.Write ( " </tr>" & Chr ( 13 ) ) '85
Response.Write ( " <tr> " & Chr ( 13 ) ) '86
Response.Write ( " <td height=""1"" colspan=""5"" background=""blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '87
Response.Write ( " </tr>" & Chr ( 13 ) ) '88
rs.MoveNext ( ) '90
Next '91
rs.Close ( ) '92
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '94
Response.Write ( " <td colspan=""5"" height=""35"">" & Chr ( 13 ) ) '95
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '96
Response.Write ( " <tr>" & Chr ( 13 ) ) '97
Response.Write ( " <td width=""33%"" height=""30"">" & Chr ( 13 ) ) '98
Response.Write ( " <input name=""button"" type=""button"" onclick=""selectAll()"" value=""全选""> " & Chr ( 13 ) ) '99
Response.Write ( " <input name=""button"" type=""button"" onclick=""selectRev()"" value=""反选""> " & Chr ( 13 ) ) '100
Response.Write ( " <input name=""button"" type=""button"" onclick=""selectAll();selectRev()"" value=""全不选""> " & Chr ( 13 ) ) '101
Response.Write ( " <input name=""button"" type=""button"" onclick=""pl_op('选择删除')"" value=""将所选删除"">" & Chr ( 13 ) ) '102
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '103
Response.Write ( " <td width=""67%""><div align=""right""> 共<font color=red>" ) '104
Response.Write ( wzcount ) '104
Response.Write ( "</font>条 " & Chr ( 13 ) ) '104
Response.Write ( " <font color=red>" ) '105
Response.Write ( wzrep ) '105
Response.Write ( "</font>/页 共<font color=red>" ) '105
Response.Write ( wzpagecount ) '105
Response.Write ( "</font>页 " & Chr ( 13 ) ) '105
Response.Write ( " " ) '106
Response.Write ( pagenar ( wzpagecount , userid , tyname , pltype ) ) '106
Response.Write ( "</div></td>" & Chr ( 13 ) ) '106
Response.Write ( " </tr>" & Chr ( 13 ) ) '107
Response.Write ( " </table>" & Chr ( 13 ) ) '108
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '109
Response.Write ( " </tr>" & Chr ( 13 ) ) '110
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '111
Response.Write ( " " ) '112
Else '112
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '113
Response.Write ( " <td colspan=""5"" height=""25"">你还没有任何评论</td>" & Chr ( 13 ) ) '114
Response.Write ( " </tr>" & Chr ( 13 ) ) '115
Response.Write ( " " ) '116
End If '116
Response.Write ( vbCrLf )
Response.Write ( " </table>" & Chr ( 13 ) ) '117
Response.Write ( " </div>" & Chr ( 13 ) ) '118
Response.Write ( "</td>" & Chr ( 13 ) ) '119
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -