📄 class_blog.asp
字号:
dim strguest
If oblog.cacheConfig(27) = 1 Then strguest = "(游客无须输入密码)" Else strguest = ""
show_logmore = filt_inc(show_logmore)
show_logmore = show_logmore & vbCrLf & "<div id=""form_comment"">" & vbCrLf
show_logmore = show_logmore & " #gg_usercomment#<a name=""comment""></a><div class=""title"">发表评论：</div>" & vbCrLf
show_logmore = show_logmore & " <form action=""" & blogurl & "savecomment.asp?logid=" & logid & """ method=""post"" name=""commentform"" id=""commentform"" onSubmit=""return Verifycomment()"">" & vbCrLf
show_logmore = show_logmore & " <div class=""d1""><label>昵称：<input name=""UserName"" type=""text"" id=""UserName"" size=""20"" maxlength=""20"" value="""" /></label></div>" & vbCrLf
show_logmore = show_logmore & " <div class=""d2""><label>密码：<input name=""Password"" type=""password"" id=""Password"" size=""20"" maxlength=""20"" value="""" /> " & strguest & "</label></div>" & vbCrLf
show_logmore = show_logmore & " <div class=""d3""><label>主页：<input name=""homepage"" type=""text"" id=""homepage"" size=""42"" maxlength=""50"" value=""http://"" /></label></div>"
show_logmore = show_logmore & " <div class=""d4""><label>标题：<input name=""commenttopic"" type=""text"" id=""commenttopic"" size=""42"" maxlength=""50"" value=""" & commenttopic & """ /></label></div>"
show_logmore = show_logmore & " <div class=""d5"">" & vbCrLf
show_logmore = show_logmore & " <input type=""hidden"" name=""edit"" id=""edit"" value="""" />" & vbCrLf
show_logmore = show_logmore & " <div id=""oblog_edit""></div>" & vbCrLf
show_logmore = show_logmore & " </div>" & vbCrLf
show_logmore = show_logmore & " <div class=""d6""><script src=""" & blogurl & "count.asp?action=code""></script><input type=""submit"" value="" 提 交 "" onclick='oblog_edittext.createTextRange().execCommand(""Copy"");'></div>" & vbCrLf
show_logmore = show_logmore & " </form>" & vbCrLf
show_logmore = show_logmore & "</div>" & vbCrLf
end if
show=Replace(user_skin_main,"$show_log$",show_logmore)
If f_ext = "htm" Or f_ext = "html" Then
m_commentsmore = Replace(show, "$show_calendar$", "<div id=""calendar""></div><script src='" & user_path & "\calendar\" & log_month & ".htm'></script>")
ElseIf Page="cmd" Then
m_commentsmore = Replace(show, "$show_calendar$", "<div id=""calendar""></div><" & "%'=Calendar(intYear,intMonth,intDay)%" & ">")
Else
m_commentsmore = Replace(show, "$show_calendar$", "<div id=""calendar"">" & oblog.readfile(user_path & "\calendar", log_month & ".htm") & "</div>")
End If
end sub
public sub update_index(resp)
Dim injsfile
dim show_topic,show_emot,show_addtime,show_logtext,show_author,show_loginfo,show_more,show_logcyc,show_topictxt,show_logmore,show,rssubject,strtmp,xmlstr,rstmp,start,i,strlogn,strlist,substr
xmlstr = "<?xml version=""1.0"" encoding=""GB2312""?>" & vbCrLf
'如果启用了二级或顶级域名，则不使用此项目
if (true_domain=0 And Cint(oblog.CacheConfig(5))=0) then
xmlstr = xmlstr&"<?xml-stylesheet type=""text/xsl"" href="""&blogurl&"oblogstyle/rss.xsl""?>"& vbCrLf
End If
xmlstr = xmlstr& "<rss version=""2.0"">"& vbCrLf
If IsNull(BlogName) Then BlogName=""
xmlstr = xmlstr & "<channel>" & vbCrLf & "<title><![CDATA[" & Replace(BlogName," "," ") & "]]></title>" & vbCrLf
if true_domain=1 then
xmlstr = xmlstr & "<link>http://" & user_domain & "/index." & f_ext & "</link>" & vbCrLf
else
xmlstr = xmlstr & "<link>" & Trim(oblog.CacheConfig(3)) & user_path & "/index." & f_ext & "</link>" & vbCrLf
end if
xmlstr = xmlstr & "<description><![CDATA[" & Replace(BlogName," "," ") & "]]></description>" & vbCrLf
'处理用户信息
'update_info user_id
'处理群组
'update_mygroups user_id
if user_showlog_num=0 then user_showlog_num=1
Set rs = oblog.execute("select subjectid,subjectname from oblog_subject where userid="&user_id)
While Not rs.EOF
substr = substr & rs(0) & "!!??((" & rs(1) & "##))=="
rs.movenext
Wend
set rs=oblog.execute("select top "&user_showlog_num&" face,topic,subjectid,logid,istop,addtime,logtext,ishide,commentnum,showword,ispassword,iis,trackbacknum,isbest,blog_password,author,logfile,ishide,authorid,passcheck,Abstract,isneedlogin,viewscores,IsSpecial,viewgroupid from oblog_log where (userid=" & user_id & " or authorid=" & user_id & ") and isdraft=0 and isdel=0 order by istop desc,addtime desc")
while not rs.eof
strtmp=""
If rs("passcheck") = 0 Then
strtmp = "此日志需要管理员审核后才可浏览。"
Else
If rs("ishide") = 1 Then
strtmp = "此日志为隐藏日志，仅好友可浏览，<a href='" & blogurl & "more.asp?id=" & rs("logid") & "'>点击进入验证页面</a>。"
ElseIf rs("ispassword") <> ""Then
strtmp = "<form method='post' action='" & blogurl & "more.asp?id=" & rs("logid") & "' target='_blank'>请输入日志访问密码：<input type=""password"" size=""15"" name=""password"" /> <input type=""submit"" value=""提交""></form>"
ElseIf OB_IIF(rs("isneedlogin"),0) = 1 Then
strtmp = oblog.filt_html_b(rs("Abstract")) &"<br /><br />此日志需要登录后才可浏览，<a href='" & blogurl & "more.asp?id=" & rs("logid") & "'>点击进入验证页面</a>。"
ElseIf OB_IIF(rs("viewscores"),0) > 0 Then
strtmp = oblog.filt_html_b(rs("Abstract")) &"<br /><br />此日志需要消费积分<strong>"&rs("viewscores")&"</strong>才可浏览，<a href='javascript:void(null);' onclick=""if(confirm('浏览此日志需消费积分"&rs("viewscores")&"，确认浏览？')==true)self.location='" & blogurl & "more.asp?id=" & rs("logid") & "';return false;"">点击进入验证页面</a>。"
ElseIf OB_IIF(rs("viewgroupid"),0) > 0 Then
strtmp = oblog.filt_html_b(rs("Abstract")) &"<br /><br />此日志需要特定用户组才可浏览，<a href='" & blogurl & "more.asp?id=" & rs("logid") & "'>点击进入验证页面</a>。"
Else
If OB_IIF(rs("isspecial"),0) > 0 Then
strtmp = "此日志为特殊日志，<a href='" & blogurl & "more.asp?id=" & rs("logid") & "'>点击进入验证页面</a>"
End if
End If
End if
'if rs("face")="0" then show_emot="" else show_emot="<img src=../../images/face/"&rs(0)&".gif >"
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_addtime=rs("addtime")
show_topic=show_emot
if rs("istop")=1 then show_topic="[置顶]"
if rs("subjectid")>0 then
show_topic = show_topic & "<a href=""" & user_truepath&"cmd."&f_ext&"?uid="&user_id&"&do=blogs&id=" & rs("subjectid") & """>[" & oblog.filt_html(getsubname(rs("subjectid"),substr)) & "]</a>"
end if
show_topictxt="<a href="""&log_truepath&rs("logfile")&""">"&oblog.filt_html(rs("topic"))&"</a>"
if rs(13)=1 Then show_topictxt = show_topictxt & " <img src=" & blogurl & "images/jhinfo.gif >"
show_topic=show_topic&show_topictxt
if rs("istop")=1 then show_topictxt="[置顶]"&show_topictxt
show_loginfo=show_author&" 发表于 "&show_addtime
show_more="<a href="""&log_truepath&rs("logfile")&""">阅读全文<span id=""ob_logr"&rs("logid")&"""></span></a>"
show_more=show_more&" | "&"<a href="""&log_truepath&rs("logfile")&"#comment"">回复<span id=""ob_logc"&rs("logid")&"""></span></a> <span id = ""ob_logm"&rs("logid")&"""> </span>"
show_more = show_more & " | <a href=""" & blogurl & "showtb.asp?id=" & rs(3) & """ target=""_blank"">引用通告<span id=""ob_logt" & rs("logid") & """></span></a>"
if strtmp<>"" then
show_logtext=strtmp
else
if rs("Abstract")="" or IsNull(rs("Abstract")) then
show_logtext=rs(6)
' show_logtext=oblog.filt_html_b(show_logtext)
' show_logtext=trimlog(show_logtext,rs(9))
show_logtext=trimlog(show_logtext,rs("showword"))
if left(show_logtext,7)="#isubb#" then
show_logtext=UBBCode(show_logtext,1)
show_logtext=Replace(show_logtext,CHR(10),"<br />")
show_logtext = show_logtext & "<br /><a href='"&log_truepath&rs("logfile")&"'>点击显示全文</a>"
end if
show_logtext=Replace(show_logtext,"#isubb#","")
show_logtext=filtimg(show_logtext)
if oblog.cacheConfig(45)=1 then show_logtext=profilthtm(show_logtext)
else
show_logtext=oblog.filt_html_b(rs("Abstract"))
end if
end If
show_logtext = "<span id=""ob_logd"&rs("logid")&"""></span> "&show_logtext
'处理RSS
strlogn=strlogn&"$"&rs("logid")
If rs("IsSpecial") = 0 OR IsNull("IsSpecial") Then
xmlstr = xmlstr & "<item>" & vbCrLf & "<title><![CDATA[" & rs("topic") & "]]></title>" & vbCrLf
if true_domain=1 then
xmlstr = xmlstr & "<link>" &rs("logfile") & "</link>" & vbCrLf
else
xmlstr = xmlstr & "<link>" & Trim(oblog.CacheConfig(3)) & rs("logfile") & "</link>" & vbCrLf
end if
xmlstr = xmlstr & "<description><![CDATA[" & oblog.trueurl(rs(6)) & "]]></description>" & vbCrLf
xmlstr = xmlstr & "<author>" & Replace(show_author," "," ") & "</author>" & vbCrLf
xmlstr = xmlstr & "<pubDate>" & show_addtime & "</pubDate>" & vbCrLf & "</item>" & vbCrLf
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)
show_logcyc=Replace(show_logcyc, "$show_blogtag$", "")
'列表式样
strlist=strlist&"<li>"&show_topictxt&" "&show_author&" <span>"&show_addtime&"</span></li>"&vbcrlf
rs.movenext
show_logmore=show_logmore&show_logcyc
wend
xmlstr=xmlstr& vbcrlf&"</channel>" & vbcrlf&"</rss>"
set rstmp=oblog.execute("select count(logid) from oblog_log where (userid=" & user_id & " or authorid=" & user_id & ") and passcheck=1 and isdraft=0 and isdel=0")
G_P_This=1
start = CreateStaticPageBar(rstmp(0),user_showlog_num,0)
rstmp.Close
Set rstmp=Nothing
injsfile = "<script src=""" & blogurl & "count.asp?action=logs&id=" & strlogn & """></script>"
if user_indexlist=1 then show_logmore="<div id=""subject_index""><ul>全部日志"&strlist&"</ul></div>"
show=Replace(user_skin_main,"$show_log$",show_logmore&start)
'ATFLAG首页替换掉文摘显示
show=Replace(show,"$show_blogzhai$","")
show=filt_inc(show)
'处理连接
if showpwblog=false then
'show=Replace(show,"$show_calendar$","<!-- #include file=""calendar\"&newcalendar(user_path&"/calendar")&".htm"" -->")
'show=repl_label(show,"",blogname,user_username&","&user_nickname,blogname,user_siteinfo)
show = repl_label(show, injsfile, BlogName, user_userName & "," & user_nickName, BlogName, user_siteinfo, newcalendar(blogdir&user_path&"/" & "calendar"))
if ispwblog=false then
savefile user_path,"/index."&f_ext,show
savefile user_path,"/rss2.Xml",xmlstr
else
savefile user_path, "\rss2.Xml", "<?xml version=""1.0"" encoding=""GB2312"" ?> <rss version=""2.0""><channel><title><![CDATA[ 此blog已加密 ]]> </title></channel></rss>"
savefile user_path,"/index."&f_ext,"<script language=javascript>window.location.replace('"&blogurl&"pwblog.asp?action=blog&userid="&user_id&"')</script>"
end if
if resp=1 then
Response.Write("<li><a href="&blogurl&user_path&"/index."&f_ext&" target=_blank>点击查看生成的首页</a></li>")
elseif resp=2 then
Response.Redirect(blogurl&user_path&"/index."&f_ext)
ElseIf resp = 3 Then
Response.Redirect(blogurl&user_path&"/index."&f_ext)
'Response.Write("<li><a href="&user_path&"/index."&f_ext&" target=_blank>点击查看生成的团队博客首页</a></li>")
end if
else
m_index = show&injsfile
end if
end sub
Public Sub Update_message(resp)
Dim show_topic, show_emot, show_addtime, show_logtext, show_author, show_loginfo, show_more, show_logcyc, show_topictxt, show_logmore, show
Dim homepage_str, user_filepath,strPageBar,lngAll
Set rs = oblog.Execute("select count(messageid) from oblog_message where userid=" & user_id)
lngAll=rs(0)
Set rs = oblog.Execute("select top " & user_showlog_num & " message_user,messagetopic,message,addtime,messageid,homepage,isguest,ishide,ubbedit from oblog_message where userid=" & user_id & " and istate= 1 order by messageid desc")
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=""" &blogurl&"go.asp?url=" & oblog.filt_html(rs(5)) & """ target=""_blank"">个人主页</a>"
End If
End If
show_topic = oblog.filt_html(rs(1)) & "<a name='" & rs(4) & "'></a>"
If rs(6) = 1 Then
show_author = oblog.filt_html(rs(0)) & "(游客)"
Else
show_author = oblog.filt_html(rs(0))
End If
show_addtime = rs(3)
show_topictxt = show_topic
show_loginfo = show_author & "发表留言于" & show_addtime
If rs("ubbedit")= 2 Then
show_logtext = oblog.FilterUbbFlash(filtscript(rs(2)))
Else
show_logtext = oblog.Ubb_Comment(rs(2))
End if
'show_logtext = oblog.FilterUbbFlash(filtscript(rs(2)))
show_more = homepage_str & " | <a href='#cmt'>签写留言</a> | <a href='"&blogurl&"user_messages.asp?action=modify&re=true&id=" & rs(4) & "'>回复</a>"
show_more = show_more & " | <a href=""" & blogurl & "user_messages.asp?action=del&id=" & rs(4) & """ target=""_blank"">删除</a>"
if rs("ishide")=1 then
show_topictxt="悄悄话"
show_topic="悄悄话"
show_logtext="此留言为悄悄话。"
show_more=Replace(show_more,"回复","查看")
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_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_logcyc = Replace(show_logcyc, "$show_blogtag$", "")
show_logcyc = Replace(show_logcyc, "$show_blogzhai$", "")
show_logmore = show_logmore & show_logcyc
rs.movenext
Wend
strPageBar = CreateStaticPageBar(lngAll,user_showlog_num,1)
Else
show_logmore = "暂无留言"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -