📄 class_blog.asp
字号:
<!--#include file="../inc/Inc_UBB.asp"-->
<!--#include file="../inc/Inc_Tags.asp"-->
<%
'*********************************************************
'文件名称: Class_blog.asp
'功能描述: 日志操作主类模块
'程序制作：叶开,阿泰
'官方网站: http://www.oblog.cn
'论坛支持：http://bbs.oblog.cn
'Copyright (C) 2004-2005 oblog.cn All rights reserved.
'LastUpdate: 20050921
'*********************************************************
Class Class_Blog
Public GoUrl, user_skin_main, user_skin_showlog, user_userName, user_id, user_nickName, user_showName
Public user_commentasc, user_path, user_folder,user_showlog_num, user_showlogword_num, BlogName, user_siteinfo,user_truepath
Public user_Blogpassword, user_domain, user_placard, user_links, user_log_count, user_comment_count
Public user_message_count, user_shownewlog_num, user_shownewmessage_num, user_shownewcomment_num
Public rs, objFSO, tf, ispwBlog,showpwblog,showpwlog,Page
Public m_index,m_log,m_subjectid,m_subjectindex,m_message,m_album,m_info,m_placard,m_links,m_newblog,m_newmessage,m_comment,m_subject,m_subject_l,m_commentsmore
Private Sub Class_Initialize()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
showpwblog=false
showpwlog=false
End Sub
Private Sub Class_Terminate()
Set objFSO = Nothing
Set tf = Nothing
Set rs = Nothing
End Sub
Public Property Let userid(ByVal Values)
Dim rstmp, strSql
userid = CLng(Values)
strSql = "Select user_dir,user_showlog_num,user_showlogword_num,user_skin_main,user_skin_showlog,"
strSql = strSql & "BlogName,nickName,userName,siteinfo,Blog_password,"
strSql = strSql & "comment_isasc,user_domain,user_domainroot,user_placard,user_links,"
strSql = strSql & "log_count,comment_count,message_count,user_shownewlog_num,user_shownewcomment_num,"
strSql = strSql & "user_shownewmessage_num,user_folder"
strSql = strSql & " From oBlog_user Where userid=" & userid
Set rs = oblog.Execute(strSql)
If rs.EOF Then Exit Property
user_id = userid
user_path = Trim(rs("user_dir")) & "/" & rs("user_folder")
user_showlog_num = CLng(rs("user_showlog_num"))
user_showlogword_num = rs("user_showlogword_num")
user_skin_main = Trim(rs("user_skin_main"))
user_skin_showlog = Trim(rs("user_skin_showlog"))
BlogName = oblog.filt_html(rs("BlogName"))
user_nickName = oblog.filt_html(rs("nickName"))
user_userName = oblog.filt_html(rs(7))
user_siteinfo = oblog.filt_html(rs(8))
user_Blogpassword = Trim(rs(9))
user_commentasc = rs(10)
user_domain = Trim(rs(11)) & "." & Trim(rs(12))
user_placard = rs(13)
user_links = rs(14)
user_log_count = rs(15)
user_comment_count = rs(16)
user_message_count = rs(17)
user_shownewlog_num = rs(18)
user_shownewcomment_num = rs(19)
user_shownewmessage_num = rs(20)
user_folder=rs("user_folder")
user_truepath=blogdir&user_path&"/"
If user_skin_main = "" Or IsNull(user_skin_main) Then
Set rstmp = oblog.Execute("select skinmain,skinshowlog from oBlog_userskin where isdefault=1")
If Not rstmp.EOF Then
user_skin_main = rstmp(0)
user_skin_showlog = rstmp(1)
Else
Set rstmp = Nothing
Set rs = Nothing
Response.Write ("模版错误")
Response.End
End If
End If
If user_Blogpassword = "" Or IsNull(user_Blogpassword) Then ispwBlog = False Else ispwBlog = True
End Property
Public Sub Update_log(logid, resp)
Dim sql, rstmp
Dim show_topic, show_emot, show_addtime, show_logtext, show_author, show_loginfo, show_more, show_logcyc, show_topictxt, show_logmore, show, log_month, user_logpath1, log_title, commentasc
Dim homepage_str, commentid, commenttopic, strtmp, encommment, i, filename, injsfile,user_logpath,logtype
logid = CLng(logid)
Set rs = oblog.Execute("select face,topic,logtext,author,istop,isencomment,addtime,ishide,ispassword,isbest,commentnum,trackbacknum,passcheck,authorid,filename,logtype from oblog_log where logid=" & logid)
If rs.EOF Then Exit Sub
If Int(Month(rs("addtime"))) < 10 Then
log_month = Year(rs("addtime")) & "0" & Month(rs("addtime"))
Else
log_month = Year(rs("addtime")) & Month(rs("addtime"))
End If
if logfilepath=0 then
user_logpath=user_path
else
user_logpath=user_path&"/archives/"&trim(year(rs("addtime")))
end if
logtype=rs("logtype")
filename = Trim(rs("filename"))
If filename = "" Or IsNull(filename) Then filename = logid
encommment = rs("isencomment")
If rs("ishide") = 1 And showpwlog=false Then strtmp = "此日志为隐藏日志，仅好友可见，<a href='" & blogdir & "more.asp?id=" & logid & "'>点击进入验证页面</a>。"
If rs("ispassword") <> "" And showpwlog=false Then strtmp = "<form method='post' action='" & blogdir & "more.asp?id=" & logid & "'>请输入日志访问密码：<input type=""password"" size=""15"" name=""password"" /> <input type=""submit"" value=""提交""></form>"
If rs("passcheck") = 0 Then strtmp = "此日志需要管理审核后才可见。"
If user_nickName <> "" Then user_showName = user_nickName Else user_showName = user_userName
If rs("face") = "0" Then show_emot = "" Else show_emot = "<img src=""" & blogdir & "images/face/" & rs("face") & ".gif"" />"
show_topictxt = oblog.filt_html(rs("topic"))
log_title = show_topictxt
commenttopic = "Re:" & show_topictxt
If rs("isbest") = 1 Then show_topictxt = show_topictxt & " <img src=""" & blogdir & "images/jhinfo.gif"" />"
show_topic = show_emot
show_addtime = rs("addtime")
show_topic = show_topic & show_topictxt
If user_nickName = "" Or IsNull(user_nickName) Then
show_author = user_userName
Else
show_author = user_nickName
End If
If rs("authorid") <> user_id Then show_author = rs("author")
show_loginfo = show_author & " 发表于 " & show_addtime
show_more = "<a href=""#"" >阅读全文<span id=""ob_logreaded""></span></a>"
show_more = show_more & " | " & "<a href=""#cmt"">回复(" & rs("commentnum") & ")</a>"
show_more = show_more & " | <a href=""" & blogdir & "showtb.asp?id=" & logid & """ target=""_blank"">引用通告<span id=""ob_tbnum""></span></a>"
injsfile = "<Script src=""" & blogdir & "count.asp?action=logtb31&id=" & logid & """></Script>"
show_more = show_more & " | <a href=""" & blogdir & "user_post.asp?logid=" & logid & """ target=""_blank"">编辑</a>"
If strtmp <> "" Then
show_logtext = strtmp
Else
show_logtext = rs("logtext")
If Left(show_logtext, 7) = "#isubb#" Then
show_logtext = UBBCode(show_logtext, 1)
show_logtext = Replace(show_logtext, Chr(10), "<br /> ")
'show_logtext=oblog.filt_html_b(show_logtext)
End If
show_logtext = Replace(show_logtext, "#isubb#", "")
show_logtext = filtimg(show_logtext)
End If
show_logcyc = Replace(user_skin_showlog, "$show_topic$", show_topic)
show_logcyc = Replace(show_logcyc, "$show_loginfo$", show_loginfo)
show_logcyc = Replace(show_logcyc, "$show_logtext$", show_logtext)
show_logcyc = Replace(show_logcyc, "$show_more$", show_more)
show_logcyc = Replace(show_logcyc, "$show_emot$", show_emot)
show_logcyc = Replace(show_logcyc, "$show_author$", show_author)
show_logcyc = Replace(show_logcyc, "$show_addtime$", show_addtime)
show_logcyc = Replace(show_logcyc, "$show_topictxt$", show_topictxt)
If EN_TAGS = 1 Then
Dim sBlogTag
sBlogTag = Tags_ShowForBlog(logid,user_truepath)
'If sBlogTag <> "" Then sBlogTag = P_TAGS_DESC & ":" & sBlogTag
show_logcyc = Replace(show_logcyc, "$show_blogtag$", sBlogTag)
Else
show_logcyc = Replace(show_logcyc, "$show_blogtag$", "")
End If
show_logcyc = Replace(show_logcyc, "$show_blogzhai$", "<div id=""blogzhai""></div>")
show_logmore = show_logcyc
show_logmore = show_logmore&"<div id=""morelog""><ul>"
set rstmp=oblog.execute("select top 1 logfile,topic from oblog_log where logid<"&logid&" and userid="&user_id&" and logtype="&logtype&" order by addtime desc")
if not rstmp.eof then
show_logmore = show_logmore&"<li>上一篇："&"<a href="""&blogdir&rstmp(0)&""">"&oblog.filt_html(rstmp(1))&"</a></li>"
rstmp.movenext
end if
set rstmp=oblog.execute("select top 1 logfile,topic from oblog_log where logid>"&logid&" and userid="&user_id&" and logtype="&logtype&" order by addtime asc")
if not rstmp.eof then
show_logmore = show_logmore&"<li>下一篇："&"<a href="""&blogdir&rstmp(0)&""">"&oblog.filt_html(rstmp(1))&"</a></li>"
rstmp.movenext
end if
show_logmore = show_logmore&"</ul></div>"
If strtmp = "" Then
If user_commentasc = 1 Then commentasc = " order by commentid asc" Else commentasc = " order by commentid desc"
Set rs = oblog.Execute("select top 40 comment_user,commenttopic,comment,addtime,commentid,homepage,isguest from oblog_comment where mainid=" & logid & commentasc)
If Not rs.EOF Then
While Not rs.EOF
If IsNull(rs(5)) Then
homepage_str = "个人主页"
Else
If Trim(Replace(rs(5), "http://", "")) = "" Then
homepage_str = "个人主页"
Else
homepage_str = "<a href=""" & oblog.filt_html(rs(5)) & """ target=""_blank"">个人主页</a>"
End If
End If
commentid = rs(4)
show_topic = oblog.filt_html(rs(1)) & "<a name='" & rs(4) & "'></a>"
If rs(6) = 1 Then
show_author = "<span id=""n_" & commentid & """>" & oblog.filt_html(rs(0)) & "(游客)</span>"
Else
show_author = "<span id=""n_" & commentid & """>" & oblog.filt_html(rs(0)) & "</span>"
End If
show_addtime = "<span id=""t_" & commentid & """>" & rs(3) & "</span>"
show_topictxt = show_topic
show_loginfo = show_author & "发表评论于" & show_addtime
show_logtext = "<span id=""c_" & commentid & """>" & oblog.FilterUbbFlash(filtscript(rs(2))) & "</span>"
show_more = homepage_str & " | <a href=""javascript:reply_quote('" & commentid & "')"" >引用</a> | <a href=""#top"">返回</a>"
show_more = show_more & " | <a href=""" & blogdir & "user_comments.asp?action=del&id=" & commentid & """ target=""_blank"">删除</a>"
show_more = show_more & " | <a href=""" & blogdir & "user_comments.asp?action=modify&re=true&id=" & commentid & """ target=""_blank"">回复</a>"
show_logcyc = Replace(user_skin_showlog, "$show_topic$", show_topic)
show_logcyc = Replace(show_logcyc, "$show_loginfo$", show_loginfo)
show_logcyc = Replace(show_logcyc, "$show_logtext$", show_logtext)
show_logcyc = Replace(show_logcyc, "$show_more$", show_more)
show_logcyc = Replace(show_logcyc, "$show_emot$", "")
show_logcyc = Replace(show_logcyc, "$show_author$", show_author)
show_logcyc = Replace(show_logcyc, "$show_addtime$", show_addtime)
show_logcyc = Replace(show_logcyc, "$show_topictxt$", show_topictxt)
show_logmore = show_logmore & show_logcyc
show_logmore = Replace(show_logmore, "$show_blogtag$", "")
show_logmore = Replace(show_logmore, "$show_blogzhai$", "")
rs.movenext
i = i + 1
Wend
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -