📄 blogcenter.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
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public i
Public userid
Public tyname
Public typestr
Public sql
Public rsblog
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public rs As ADODB.Recordset
Public username
Public userimg
Public homepagetitle
Public cssfile
Public bokeer
Public blog_mid
Public blogheadimg
Public clubuser_id
Public rs8
Public blogtypeid
Public ASPX_CONN As _CONN
Public ASPX_INC_MD5 As _INC_MD5
Public ASPX_BBSUSER As _BBSUSER
Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
Public ASPX_ISBOKER As _ISBOKER
Public ASPX_MEMBERINFO As _MEMBERINFO
Public ASPX_USERNAV As _USERNAV
Public ASPX_BOKERHEAD As _BOKERHEAD
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_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_PUBLICFUN = New _INC_PUBLICFUN()
ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_PUBLICFUN.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_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_MD5.AspToAspX_UnloadIncludeFiles()
ASPX_INC_MD5 = Nothing
ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
ASPX_BBSUSER = Nothing
ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
ASPX_INC_PUBLICFUN = 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_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_MD5.AspToAspX_Page_Init ( )
ASPX_BBSUSER.AspToAspX_Page_Init ( )
ASPX_INC_PUBLICFUN.AspToAspX_Page_Init ( )
ASPX_ISBOKER.AspToAspX_Page_Init ( )
userid = getcookie ( "clubuser_id" ) '7
tyname = "blogtypeid" '9
If AspToAspX_CheckDBNull ( blogtypeid ) = EmptyString.Value Then '10
typestr = "" '11
Else '12
typestr = "and blogtypeid=" & blogtypeid '13
End If '14
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 ) ) '17
Response.Write ( "<title>" ) '18
Response.Write ( username ) '18
Response.Write ( "的日志管理中心</title>" & Chr ( 13 ) ) '18
Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '19
Response.Write ( cssfile ) '19
Response.Write ( """>" & Chr ( 13 ) ) '19
Response.Write ( "</head>" & Chr ( 13 ) ) '20
Response.Write ( "<body>" & Chr ( 13 ) ) '21
Response.Write ( "<center>" & Chr ( 13 ) ) '22
ASPX_USERNAV.AspToAspX_Page_Init ( )
ASPX_BOKERHEAD.AspToAspX_Page_Init ( )
Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '25
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""layout"">" & Chr ( 13 ) ) '26
Response.Write ( "<tr>" & Chr ( 13 ) ) '27
Response.Write ( "<td valign=""top"" class=""c2t3"">" & Chr ( 13 ) ) '28
Response.Write ( "<div id=""mod_profile"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '29
ASPX_USERCALOG.AspToAspX_Page_Init ( )
Response.Write ( "</div>" & Chr ( 13 ) ) '31
Response.Write ( "</td>" & Chr ( 13 ) ) '32
Response.Write ( "<td valign=""top"" class=""c2t1"">" & Chr ( 13 ) ) '33
Response.Write ( "<div id=""m_blog"" class=""modbox"">" & Chr ( 13 ) ) '34
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '35
Response.Write ( " <tr valign=""middle""> " & Chr ( 13 ) ) '36
Response.Write ( " <td height=""40"" colspan=""5"" class=new14 align=""left""><div class=""opt""> " & Chr ( 13 ) ) '37
Response.Write ( " <img src=""blogimages/post.gif"" width=""15"" height=""15""> " & Chr ( 13 ) ) '38
Response.Write ( " <strong><a href=""blogcenter_add.aspx"">发表</a></strong></div></td>" & Chr ( 13 ) ) '39
Response.Write ( " </tr>" & Chr ( 13 ) ) '40
Response.Write ( " <tr> " & Chr ( 13 ) ) '41
Response.Write ( " <td height=""1"" colspan=""5"" bgcolor=""#336699"" class=new14><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '42
Response.Write ( " </tr>" & Chr ( 13 ) ) '43
Response.Write ( " <tr> " & Chr ( 13 ) ) '44
Response.Write ( " <td width=""70%"" height=""25""> <div align=""left""><strong> 标题</strong></div></td>" & Chr ( 13 ) ) '45
Response.Write ( " <td width=""7%""><div align=""center"">查看</div></td>" & Chr ( 13 ) ) '46
Response.Write ( " <td width=""8%""><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 ( " " ) '54
sql = "select * from " & ft & "ftblog where userid=" & getcookie ( "clubuser_id" ) & " " & typestr & " order by writedate desc" '55
rsblog = New ADODB.Recordset ( ) '56
rsblog.Open ( sql , conn , 1 , 1 ) '57
If Not rsblog.EOF Then '58
wzrep = 30 '59
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '60
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'61
rsblog.PageSize = wzrep '62
rsblog.AbsolutePage = wzpage '63
wzpagecount = rsblog.PageCount '64
wzcount = rsblog.RecordCount '65
For i = 0 To Val ( wzrep ) - 1 '66
If rsblog.EOF Then
Exit For
End If
'67
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '69
Response.Write ( " <td height=""25""><div class=""opt""> <a href=""blog_edit.aspx?id=" ) '70
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '70
Response.Write ( """>" ) '70
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "writedate" ) .Value) ) '70
Response.Write ( "</a> " & Chr ( 13 ) ) '70
Response.Write ( " <a href=""blog_edit.aspx?id=" ) '71
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '71
Response.Write ( """>" ) '71
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogtitle" ) .Value) ) '71
Response.Write ( "</a></div></td>" & Chr ( 13 ) ) '71
Response.Write ( " <td height=""25"" align=""center""><div class=""opt""><a href=""myblog.aspx?id=" ) '72
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '72
Response.Write ( "&userid=" ) '72
Response.Write ( userid ) '72
Response.Write ( "&blogtypeid=" ) '72
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogtypeid" ) .Value) ) '72
Response.Write ( """ target=""_blank"">查看</a></div></td>" & Chr ( 13 ) ) '72
Response.Write ( " <td height=""25"" align=""center""><div class=""opt"">" & Chr ( 13 ) ) '73
Response.Write ( " " ) '74
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogtop" ) .Value) ) = 1 Then '74
Response.Write ( vbCrLf )
Response.Write ( " <a href=""blogop.aspx?id=" ) '75
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '75
Response.Write ( "&op=top&v=0"">已置顶</a>" & Chr ( 13 ) ) '75
Response.Write ( " " ) '76
Else '76
Response.Write ( vbCrLf )
Response.Write ( " <a href=""blogop.aspx?id=" ) '77
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '77
Response.Write ( "&op=top&v=1"">未置顶</a>" & Chr ( 13 ) ) '77
Response.Write ( " " ) '78
End If '78
Response.Write ( vbCrLf )
Response.Write ( " </div></td>" & Chr ( 13 ) ) '79
Response.Write ( " <td height=""25"" align=""center""><div class=""opt"">" & Chr ( 13 ) ) '80
Response.Write ( " " ) '81
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogtj" ) .Value) ) = 1 Then '81
Response.Write ( vbCrLf )
Response.Write ( " <a href=""blogop.aspx?id=" ) '82
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '82
Response.Write ( "&op=tj&t=0"">已推荐</a>" & Chr ( 13 ) ) '82
Response.Write ( " " ) '83
Else '83
Response.Write ( vbCrLf )
Response.Write ( " <a href=""blogop.aspx?id=" ) '84
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '84
Response.Write ( "&op=tj&t=1"">未推荐</a>" & Chr ( 13 ) ) '84
Response.Write ( " " ) '85
End If '85
Response.Write ( vbCrLf )
Response.Write ( " </div></td>" & Chr ( 13 ) ) '86
Response.Write ( " <td height=""25"" align=""center""><div class=""opt""><a href=""blogop.aspx?id=" ) '87
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '87
Response.Write ( "&op=del&blogtypeid=" ) '87
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogtypeid" ) .Value) ) '87
Response.Write ( """>删除</a></div></td>" & Chr ( 13 ) ) '87
Response.Write ( " </tr>" & Chr ( 13 ) ) '88
Response.Write ( " <tr> " & Chr ( 13 ) ) '89
Response.Write ( " <td height=""1"" colspan=""5"" background=""blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '90
Response.Write ( " </tr>" & Chr ( 13 ) ) '91
Response.Write ( " " ) '92
rsblog.MoveNext ( ) '93
Next '94
rsblog.Close ( ) '95
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '97
Response.Write ( " <td colspan=""5"" height=""35""> 共<font color=red>" ) '98
Response.Write ( wzcount ) '98
Response.Write ( "</font>条 " & Chr ( 13 ) ) '98
Response.Write ( " <font color=red>" ) '99
Response.Write ( wzrep ) '99
Response.Write ( "</font>/页 共<font color=red>" ) '99
Response.Write ( wzpagecount ) '99
Response.Write ( "</font>页 " & Chr ( 13 ) ) '99
Response.Write ( " " ) '100
Response.Write ( pagenar ( wzpagecount , userid , tyname , blogtypeid ) ) '100
Response.Write ( "</td>" & Chr ( 13 ) ) '100
Response.Write ( " </tr>" & Chr ( 13 ) ) '101
Response.Write ( " " ) '102
Else '102
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '103
Response.Write ( " <td colspan=""5"" height=""25"">你还没有任何文章</td>" & Chr ( 13 ) ) '104
Response.Write ( " </tr>" & Chr ( 13 ) ) '105
Response.Write ( " " ) '106
End If '106
Response.Write ( vbCrLf )
Response.Write ( " </table>" & Chr ( 13 ) ) '107
Response.Write ( " <br>" & Chr ( 13 ) ) '108
Response.Write ( " </div>" & Chr ( 13 ) ) '109
Response.Write ( "</td>" & Chr ( 13 ) ) '110
Response.Write ( "</tr></table>" & Chr ( 13 ) ) '111
Response.Write ( "</div>" & Chr ( 13 ) ) '112
Response.Write ( "</div>" & Chr ( 13 ) ) '113
Response.Write ( "<br><center>" & Chr ( 13 ) ) '114
Response.Write ( " " ) '115
ASPX_TAIL.AspToAspX_Page_Init ( )
Response.Write ( " </center>" & Chr ( 13 ) ) '116
Response.Write ( "</center>" & Chr ( 13 ) ) '117
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -