📄 myblog.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 _MYBLOG
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public i
Public ck_name
Public userid
Public id
Public blogtypeid
Public url
Public upfiletype
Public upfilesize
Public getcodeoff
Public htm_ext
Public userip
Public netname
Public blogid
Public nl
Public plnl
Public codestr
Public codename
Public AspToAspX_Str
Public sql
Public rs As ADODB.Recordset
Public plqs
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_UBBCODE As _INC_UBBCODE
Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
Public ASPX_MEMBERINFO As _MEMBERINFO
Public ASPX_USERNAV As _USERNAV
Public ASPX_BOKERHEAD As _BOKERHEAD
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_UBBCODE = New _INC_UBBCODE()
ASPX_INC_UBBCODE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_UBBCODE.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_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_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_UBBCODE.AspToAspX_UnloadIncludeFiles()
ASPX_INC_UBBCODE = Nothing
ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
ASPX_INC_PUBLICFUN = Nothing
ASPX_MEMBERINFO.AspToAspX_UnloadIncludeFiles()
ASPX_MEMBERINFO = Nothing
ASPX_USERNAV.AspToAspX_UnloadIncludeFiles()
ASPX_USERNAV = Nothing
ASPX_BOKERHEAD.AspToAspX_UnloadIncludeFiles()
ASPX_BOKERHEAD = 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_UBBCODE.AspToAspX_Page_Init ( )
ASPX_INC_PUBLICFUN.AspToAspX_Page_Init ( )
ck_name = getcookie ( "name" ) '5
userid = AspToAspX_CInt ( Request ( "userid" ) ) '6
id = AspToAspX_CInt ( Request ( "id" ) ) '7
blogtypeid = Request ( "blogtypeid" ) '8
Response.Write ( vbCrLf )
ASPX_MEMBERINFO.AspToAspX_Page_Init ( )
FTBBS_HTML_MB ( ft ) '12
url = Application ( "FTBBSMB" ) ( 10 , 0 ) '13
upfiletype = Application ( "FTBBSMB" ) ( 12 , 0 ) '14
upfilesize = Application ( "FTBBSMB" ) ( 13 , 0 ) '15
getcodeoff = Application ( "FTBBSMB" ) ( 30 , 0 ) '16
htm_ext = Application ( "FTBBSMB" ) ( 32 , 0 ) '17
If AspToAspX_CheckIsNothing ( Request.Form ( "act" ) ) = "y" And chkpost Then '18
userip = AspToAspX_GetRequestServerVariables ( "remote_addr" ) '19
netname = Checkstr ( ck_name ) '20
userid = AspToAspX_CInt ( Request ( "userid" ) ) '21
blogid = AspToAspX_CInt ( Request ( "id" ) ) '22
nl = nohtml ( trim ( Request ( "remenu" ) ) ) '23
plnl = Checkstr ( Request ( "remenu" ) ) '24
plnl = RegExReplace ( plnl , "\b(script)\b" , " $1 " ) '25
plnl = RegExReplace ( plnl , "\b(iframe)\b" , " $1 " ) '26
If AspToAspX_Len ( Request ( "remenu" ) ) < = 0 Then '27
ftbbs_msg ( "内容不能为空" , "myblog.aspx?id=" & id & "&userid=" & userid & "&blogtypeid=" & blogid ) '28
End If '29
If AspToAspX_CheckDBNull ( userlogin ( ft ) ) = "N" Or AspToAspX_Len ( nl ) < = 0 Then '30
AspToAspX_Response_Redirect ( AspToAspX_GetRequestServerVariables ( "Http_REFERER" ) ) '31
End If '32
If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '33
codestr = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "codestr" ) ) ) '34
codename = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "codename" ) ) ) '35
If AspToAspX_CStr ( Session ( "GetCode" & codename ) ) < > AspToAspX_CStr ( codestr ) Then '36
Response.Write ( "<script language='javascript'>alert('验证码错误，请刷新后重新输入！');history.go(-1);</script>" ) '37
Response.End ( ) '38
End If '39
End If '40
AspToAspX_Str = "insert into " & ft & "ftblog_pl(netname,plcontent,blogid,userid,userip,pltype) values('" & netname & "','" & plnl & "','" & blogid & "','" & userid & "','" & userip & "',0)" '41
conn.Execute ( AspToAspX_Str ) '42
AspToAspX_Str = "update " & ft & "ftblog set blogplnum=blogplnum+1 where id=" & blogid '43
conn.Execute ( AspToAspX_Str ) '44
AspToAspX_Response_Redirect ( AspToAspX_GetRequestServerVariables ( "Http_REFERER" ) ) '45
End If '46
Response.Write ( vbCrLf )
Response.Write ( "<html><head><meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '48
Response.Write ( "<title>" ) '49
Response.Write ( username ) '49
Response.Write ( "的文章</title>" & Chr ( 13 ) ) '49
Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '50
Response.Write ( cssfile ) '50
Response.Write ( """>" & Chr ( 13 ) ) '50
Response.Write ( "</head>" & Chr ( 13 ) ) '51
Response.Write ( "<body>" & Chr ( 13 ) ) '52
Response.Write ( "<center>" & Chr ( 13 ) ) '53
ASPX_USERNAV.AspToAspX_Page_Init ( )
ASPX_BOKERHEAD.AspToAspX_Page_Init ( )
Response.Write ( " <div class=""stage""> " & Chr ( 13 ) ) '56
Response.Write ( " <div class=""stagepad""> " & Chr ( 13 ) ) '57
Response.Write ( " <div style=""width:100%""> " & Chr ( 13 ) ) '58
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '59
Response.Write ( " <tr> " & Chr ( 13 ) ) '60
Response.Write ( " <td class=""modtl"" width=""7""> </td>" & Chr ( 13 ) ) '61
Response.Write ( " <td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">查看文章</span></div></td>" & Chr ( 13 ) ) '62
Response.Write ( " <td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '63
Response.Write ( " <td class=""modtr"" width=""7""> </td>" & Chr ( 13 ) ) '64
Response.Write ( " </tr>" & Chr ( 13 ) ) '65
Response.Write ( " </table>" & Chr ( 13 ) ) '66
Response.Write ( " <div id=""m_blog"" class=""modbox""> " & Chr ( 13 ) ) '67
Response.Write ( " " ) '68
sql = "select " & ft & "ftblog.id," & ft & "ftblog.blogtitle," & ft & "ftblog.blogtypeid," & ft & "ftblog.xinqin," & ft & "ftblog_type.blogtype," & ft & "ftblog.blogcontent," & ft & "ftblog.writedate," & ft & "ftblog.blogplnum," & ft & "ftblog.plqs," & ft & "ftblog.hits from " & ft & "ftblog," & ft & "ftblog_type where " & ft & "ftblog.blogtypeid=" & ft & "ftblog_type.id and " & ft & "ftblog.sign=0 and " & ft & "ftblog.blogqs=0 and " & ft & "ftblog.id=" & id & " order by " & ft & "ftblog.id desc" '69
rs = New ADODB.Recordset ( ) '70
rs.Open ( sql , conn , 3 , 1 ) '71
plqs = AspToAspX_CheckDBNull(rs.Fields ( "plqs" ) .Value) '72
Response.Write ( vbCrLf )
Response.Write ( " <div class=""tit"">" ) '74
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '74
Response.Write ( "</div>" & Chr ( 13 ) ) '74
Response.Write ( " <div class=""date"">" ) '75
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "writedate" ) .Value) ) '75
Response.Write ( " " ) '75
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "xinqin" ) .Value) ) < > EmptyString.Value Then '75
Response.Write ( "心情: " ) '75
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "xinqin" ) .Value) ) '75
End If '75
Response.Write ( "</div>" & Chr ( 13 ) ) '75
Response.Write ( " " ) '76
Response.Write ( replace ( AspToAspX_CheckDBNull(rs.Fields ( "blogcontent" ) .Value) , "../" , "" ) ) '76
Response.Write ( " " & Chr ( 13 ) ) '76
Response.Write ( " <div class=""opt""> <a href=""boker.aspx?userid=" ) '77
Response.Write ( userid ) '77
Response.Write ( "&blogtypeid=" ) '77
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '77
Response.Write ( """ title=""查看该分类中所有文章"">类别：" ) '77
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '77
Response.Write ( "</a> " & Chr ( 13 ) ) '77
Response.Write ( " | 浏览(" ) '78
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "hits" ) .Value) ) '78
Response.Write ( ") </div>" & Chr ( 13 ) ) '78
Response.Write ( " <div class=""line""> </div>" & Chr ( 13 ) ) '79
rs.Close ( ) '81
rs = Nothing '82
If AspToAspX_CheckDBNull ( plqs ) = 0 Then '83
Response.Write ( vbCrLf )
Response.Write ( " <div id=""in_comment""> <a name=""comment""></a> " & Chr ( 13 ) ) '85
Response.Write ( " " ) '86
sql = "select * from " & ft & "ftblog_pl where blogid=" & id & " and plqs=0 and pltype=0 order by id desc" '87
rs = New ADODB.Recordset ( ) '88
rs.Open ( sql , conn , 3 , 1 ) '89
If Not rs.EOF Then '90
wzrep = 20 '91
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '92
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'93
rs.PageSize = wzrep '94
rs.AbsolutePage = wzpage '95
wzpagecount = rs.PageCount '96
wzcount = rs.RecordCount '97
Response.Write ( vbCrLf )
Response.Write ( " <div class=""tit"">网友评论：</div>" & Chr ( 13 ) ) '99
Response.Write ( " " ) '100
For i = 0 To Val ( wzrep ) - 1 '101
If rs.EOF Then
Exit For
End If
'102
Response.Write ( vbCrLf )
Response.Write ( " <div class=""user""> <strong>" ) '104
Response.Write ( i + 1 ) '104
Response.Write ( "</strong> " ) '104
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "netname" ) .Value) ) '104
Response.Write ( " - " ) '104
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "pldate" ) .Value) ) '104
Response.Write ( " " & Chr ( 13 ) ) '104
Response.Write ( " </div>" & Chr ( 13 ) ) '105
Response.Write ( " <div class=""desc"">" ) '106
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "plcontent" ) .Value) ) '106
Response.Write ( "</div>" & Chr ( 13 ) ) '106
Response.Write ( " <div class=""line""> </div>" & Chr ( 13 ) ) '107
Response.Write ( " " ) '108
rs.MoveNext ( ) '109
Next '110
rs.Close ( ) '111
rs = Nothing '112
Response.Write ( vbCrLf )
Response.Write ( " <div id=""page"">" ) '114
Response.Write ( pagination ( wzpagecount , userid ) ) '114
Response.Write ( "</div>" & Chr ( 13 ) ) '114
Response.Write ( " " ) '115
Else '116
Response.Write ( "<div class=""desc""></div>" ) '117
End If '118
Response.Write ( vbCrLf )
Response.Write ( " </div>" & Chr ( 13 ) ) '120
Response.Write ( " <div id=""in_send""> " & Chr ( 13 ) ) '121
Response.Write ( " <div class=""tit"">发表评论：</div>" & Chr ( 13 ) ) '122
Response.Write ( " <table width=""620"" border=""0"" cellspacing=""5"" cellpadding=""0"">" & Chr ( 13 ) ) '123
Response.Write ( " <form name=""form1"" action="""" method=""post"" onsubmit=""return CheckF(this)"">" & Chr ( 13 ) ) '124
Response.Write ( " <input name=""id"" type=""hidden"" id=""id"" value=""" ) '125
Response.Write ( id ) '125
Response.Write ( """>" & Chr ( 13 ) ) '125
Response.Write ( " <input name=""userid"" type=""hidden"" id=""userid"" value=""" ) '126
Response.Write ( userid ) '126
Response.Write ( """>" & Chr ( 13 ) ) '126
Response.Write ( " <tr> " & Chr ( 13 ) ) '127
Response.Write ( " <td class=""f14"">姓 名：</td>" & Chr ( 13 ) ) '128
Response.Write ( " <td class=""f14"">" & Chr ( 13 ) ) '129
If AspToAspX_CheckDBNull ( ck_name ) < > EmptyString.Value Then '131
Response.Write ( ck_name ) '132
Else '133
Response.Write ( "你还没有登录!" ) '134
End If '135
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '137
Response.Write ( " </tr>" & Chr ( 13 ) ) '138
Response.Write ( " <tr> " & Chr ( 13 ) ) '139
Response.Write ( " <td height=300 class=""f14"">内 容：</td>" & Chr ( 13 ) ) '140
Response.Write ( " <td>" & Chr ( 13 ) ) '141
Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""remenu"" style=""position:absolute;left:0;visibility:hidden;""></textarea>" & Chr ( 13 ) ) '142
Response.Write ( "<script type=""text/javascript"" src=""fteditor/blogeditor.js""></script> " & Chr ( 13 ) ) '143
Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '144
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -