📄 rblog.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 _RBLOG
Public AspToAspX_Host_Class_Object As Object
Dim _aspx_conn,_aspx_i,_aspx_userid,_aspx_sql,_aspx_rs,_aspx_ft,_aspx_CurrentDate,_aspx_PreviousMonthDate,_aspx_NextMonthDate,_aspx_bgnum,_aspx_ym,_aspx_j,_aspx_CurrentWeekDay,_aspx_LinkText,_aspx_blogtypeid
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
End Sub
#End Region
Public Sub AspToAspX_Page_Init()
On Error GoTo _AspToAspX_Err
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '1
Response.Write ( "<div id=""mod_links"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '2
Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '3
Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7""> </td>" & Chr ( 13 ) ) '4
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">文章分类</span></div></td>" & Chr ( 13 ) ) '5
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '6
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7""> </td>" & Chr ( 13 ) ) '7
Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '8
Response.Write ( " <div id=""m_links"" class=""modbox"">" & Chr ( 13 ) ) '9
sql = "select * from " & ft & "ftblog_type where userid=" & userid & " and blogphoto=0 order by indate desc" '11
rs = New ADODB.Recordset ( ) '12
rs.Open ( sql , conn , 1 , 3 ) '13
Do While Not rs.EOF '14
Response.Write ( vbCrLf )
Response.Write ( " <div class=""item""><span style=""margin-left:3px""></span><span id=""linkArea""><a href=""boker.aspx?userid=" ) '16
Response.Write ( userid ) '16
Response.Write ( "&blogtypeid=" ) '16
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '16
Response.Write ( """>" ) '16
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '16
Response.Write ( "</a>(" ) '16
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "totalnum" ) .Value) ) '16
Response.Write ( ")</span>" & Chr ( 13 ) ) '16
Response.Write ( " </div>" & Chr ( 13 ) ) '17
Response.Write ( " <div class=""line""> </div>" & Chr ( 13 ) ) '18
rs.MoveNext ( ) '20
Loop '21
rs.Close ( ) '22
Response.Write ( vbCrLf )
Response.Write ( "</div>" & Chr ( 13 ) ) '24
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '25
Response.Write ( "<tr><td class=""modbl"" width=""7""> </td>" & Chr ( 13 ) ) '26
Response.Write ( "<td class=""modbc""> </td>" & Chr ( 13 ) ) '27
Response.Write ( "<td class=""modbr"" width=""7""> </td>" & Chr ( 13 ) ) '28
Response.Write ( "</tr></table>" & Chr ( 13 ) ) '29
Response.Write ( "</div>" & Chr ( 13 ) ) '30
Response.Write ( "<div id=""comm_info"" rel=""drag"" class=""mod"">" & Chr ( 13 ) ) '31
Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '32
Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7""> </td>" & Chr ( 13 ) ) '33
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">文章存档</span></div></td>" & Chr ( 13 ) ) '34
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '35
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7""> </td>" & Chr ( 13 ) ) '36
Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '37
Response.Write ( "<div id=""m_links"" class=""modbox"">" & Chr ( 13 ) ) '38
Response.Write ( " <span id=""linkArea"">" & Chr ( 13 ) ) '39
Response.Write ( " " ) '40
If AspToAspX_CheckDBNull ( Trim ( Request ( "ReqDate" ) ) ) = EmptyString.Value Or ( Not IsDate ( Trim ( Request ( "ReqDate" ) ) ) ) Then '41
CurrentDate = ToDay ( ) '42
Else '43
CurrentDate = Trim ( Request ( "ReqDate" ) ) '44
End If '45
PreviousMonthDate = DateAdd ( "m" , - 1 , CurrentDate ) '46
NextMonthDate = DateAdd ( "m" , 1 , CurrentDate ) '47
bgnum = AspToAspX_Split ( CurrentDate , "-" ) ( 1 ) '48
Response.Write ( vbCrLf )
Response.Write ( "<table width=""176"" cellpadding=""2"" cellspacing=""2"" background=""blogimages/month" ) '50
Response.Write ( bgnum ) '50
Response.Write ( ".gif"" align=center>" & Chr ( 13 ) ) '50
Response.Write ( " <tr align=""LEFT""> " & Chr ( 13 ) ) '51
Response.Write ( " <td width=""14%"" height=""19"" align=""center""><a href=""log.aspx?userid=" ) '52
Response.Write ( userid ) '52
Response.Write ( "&blogtypeid=" ) '52
Response.Write ( blogtypeid ) '52
Response.Write ( "&ReqDate=" ) '52
Response.Write ( PreviousMonthDate ) '52
Response.Write ( """ title=""上一月""><<</a></td>" & Chr ( 13 ) ) '52
Response.Write ( " <td colspan=""5"" align=""center"">" ) '53
Response.Write ( Year ( CurrentDate ) & "年" & Month ( CurrentDate ) & "月" ) '53
Response.Write ( "</td>" & Chr ( 13 ) ) '53
Response.Write ( " <td width=""14%"" align=""center""><a href=""log.aspx?userid=" ) '54
Response.Write ( userid ) '54
Response.Write ( "&ReqDate=" ) '54
Response.Write ( NextMonthDate ) '54
Response.Write ( """ title=""下一月"">>></a></td>" & Chr ( 13 ) ) '54
Response.Write ( " </tr>" & Chr ( 13 ) ) '55
Response.Write ( " <tr align=""LEFT""> " & Chr ( 13 ) ) '56
Response.Write ( " " & Chr ( 13 ) ) '57
Response.Write ( " <td style=""bold 11px; color:red""> 日</td>" & Chr ( 13 ) ) '58
Response.Write ( " <td style=""bold 11px;""> 一</td>" & Chr ( 13 ) ) '59
Response.Write ( " <td style=""bold 11px;""> 二</td>" & Chr ( 13 ) ) '60
Response.Write ( " <td style=""bold 11px;""> 三</td>" & Chr ( 13 ) ) '61
Response.Write ( " <td style=""bold 11px;""> 四</td>" & Chr ( 13 ) ) '62
Response.Write ( " <td style=""bold 11px;""> 五</td>" & Chr ( 13 ) ) '63
Response.Write ( " <td style=""bold 11px;""> 六</td>" & Chr ( 13 ) ) '64
Response.Write ( " </tr>" & Chr ( 13 ) ) '65
Response.Write ( " " ) '66
ym = Year ( CurrentDate ) & "-" & Month ( CurrentDate ) & "-" '67
i = 1 '68
Do While i < 33 '69
j = 1 '70
Response.Write ( "<tr height=19>" ) '71
Do While j < 8 '72
If IsDate ( ym & i ) Then '73
CurrentWeekDay = weekday ( ym & i ) '74
If AspToAspX_CheckDBNull ( j ) = CurrentWeekDay Then '75
If AspToAspX_DateDiff ( "d" , ym & i , DateAndTime.Now ) > - 1 Then '76
LinkText = "<a href=log.aspx?userid=" & userid & "&blogtypeid=" & blogtypeid & "&NewsDate=" & ym & i & ">" & i & "</a>" '77
Else '78
LinkText = i '79
End If '80
If AspToAspX_CheckDBNull ( i ) < > Day ( DateAndTime.Now ) Then '81
Response.Write ( "<td class=""calendar""> " & LinkText & "</td>" ) '82
Else '83
Response.Write ( "<td class=""calendar-today""> " & LinkText & "</td>" ) '84
End If '85
i = i + 1 '86
Else '87
Response.Write ( "<td></td>" ) '88
End If '89
Else '90
Response.Write ( "<td></td>" ) '91
i = i + 1 '92
End If '94
j = j + 1 '95
Loop '96
Response.Write ( "</tr>" ) '97
Loop '98
Response.Write ( vbCrLf )
Response.Write ( "</table>" & Chr ( 13 ) ) '100
Response.Write ( " <div class=""line""> </div>" & Chr ( 13 ) ) '101
Response.Write ( " </div>" & Chr ( 13 ) ) '102
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '103
Response.Write ( " <tr>" & Chr ( 13 ) ) '104
Response.Write ( " <td class=""modbl"" width=""7""> </td>" & Chr ( 13 ) ) '105
Response.Write ( " <td class=""modbc""> </td>" & Chr ( 13 ) ) '106
Response.Write ( " <td class=""modbr"" width=""7""> </td>" & Chr ( 13 ) ) '107
Response.Write ( " </tr>" & Chr ( 13 ) ) '108
Response.Write ( " </table>" & Chr ( 13 ) ) '109
Response.Write ( "</div>" & Chr ( 13 ) ) '110
Response.Write ( "<div id=""mod_links"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '111
Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '112
Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7""> </td>" & Chr ( 13 ) ) '113
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">最新评论</span></div></td>" & Chr ( 13 ) ) '114
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right"">" & Chr ( 13 ) ) '115
Response.Write ( "" & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '116
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7""> </td>" & Chr ( 13 ) ) '117
Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '118
Response.Write ( "<div id=""m_links"" class=""modbox"">" & Chr ( 13 ) ) '119
sql = "select top 20 * from " & ft & "ftblog_pl where userid=" & userid & " order by pldate desc" '121
rs = New ADODB.Recordset ( ) '122
rs.Open ( sql , conn , 1 , 3 ) '123
If Not rs.EOF Then '124
Do While Not rs.EOF '125
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & "<div class=""item""> <span style=""margin-left:3px""></span> <span id=""linkArea"">" ) '127
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "netname" ) .Value) ) '127
Response.Write ( "</span> " & Chr ( 13 ) ) '127
Response.Write ( " <br><span style=""margin-left:3px""></span><a href=""myblog.aspx?id=" ) '128
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogid" ) .Value) ) '128
Response.Write ( "&userid=" ) '128
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '128
Response.Write ( """>" ) '128
Response.Write ( left ( nohtml ( AspToAspX_CheckDBNull(rs.Fields ( "plcontent" ) .Value) ) , 50 ) ) '128
If AspToAspX_Len ( nohtml ( AspToAspX_CheckDBNull(rs.Fields ( "plcontent" ) .Value) ) ) > 200 Then
Response.Write ( "......" )
End If
'128
Response.Write ( "</a>" & Chr ( 13 ) ) '128
Response.Write ( "" & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '129
Response.Write ( "" & Chr ( 9 ) & "<div class=""line""> </div>" & Chr ( 13 ) ) '130
rs.MoveNext ( ) '132
Loop '133
rs.Close ( ) '134
Else '135
Response.Write ( "数据为空" ) '136
End If '137
Response.Write ( vbCrLf )
Response.Write ( "</div>" & Chr ( 13 ) ) '139
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '140
Response.Write ( "<tr><td class=""modbl"" width=""7""> </td>" & Chr ( 13 ) ) '141
Response.Write ( "<td class=""modbc""> </td>" & Chr ( 13 ) ) '142
Response.Write ( "<td class=""modbr"" width=""7""> </td>" & Chr ( 13 ) ) '143
Response.Write ( "</tr></table>" & Chr ( 13 ) ) '144
Response.Write ( "</div>" & Chr ( 13 ) ) '145
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("Rblog_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
Public Property conn
Get
On Error Resume Next
conn = AspToAspX_Host_Class_Object.conn
If Err.Number = 438 Then
Err.Clear
conn = _aspx_conn
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.conn = value
If Err.Number = 438 Then
Err.Clear
_aspx_conn = value
End If
End Set
End Property
Public Property i
Get
On Error Resume Next
i = AspToAspX_Host_Class_Object.i
If Err.Number = 438 Then
Err.Clear
i = _aspx_i
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.i = value
If Err.Number = 438 Then
Err.Clear
_aspx_i = value
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -