class_blog.asp

本息统基于中国网站技术人员最熟悉WindowsNT环境和Asp语言

            End If
			
            If i >= 40 Then
            show_logmore = show_logmore & "<div id=""saveurl""> ::<a href=""" & blogdir & "more.asp?action=comment&id=" & logid & "&page=5"" target=""_blank"">查看所有评论</a>::</div>"
            End If
            If encommment = 1 Then
                Dim strguest
                If oblog.setup(11, 0) = 1 Then strguest = "(游客无须输入密码)" Else strguest = ""
                show_logmore = filt_inc(show_logmore)
                show_logmore = show_logmore & "#ad_usercomment#<a name='cmt'></a><h2>发表评论：</h2>" & vbCrLf
                show_logmore = show_logmore & "<div id=""form_comment""><form action='" & blogdir & "savecomment.asp?logid=" & logid & "' method='post' name='commentform' id='commentform' onSubmit='return Verifycomment()'>" & vbCrLf
                show_logmore = show_logmore & "<ul>昵称：<input name='UserName' type='text' id='UserName' size='15' maxlength='20' value='' /></ul>" & vbCrLf
                show_logmore = show_logmore & "<ul>密码：<input name='Password' type='password' id='Password' size='15' maxlength='20' value='' /> " & strguest & "</ul>" & vbCrLf
                show_logmore = show_logmore & "<ul>主页：<input name='homepage' type='text' id='homepage' size='42' maxlength='50' value='http://' /></ul>"
                show_logmore = show_logmore & "<ul>标题：<input name='commenttopic' type='text' id='commenttopic' size='42' maxlength='50' value='" & commenttopic & "' /></ul>"
                show_logmore = show_logmore & "<ul><input type='hidden' name='edit' id='edit' value='' />" & vbCrLf
                show_logmore = show_logmore & "<div id=""oblog_edit"">"&oblog.setup(82,0)&"</div>" & vbCrLf
                show_logmore = show_logmore & "</ul>" & vbCrLf
                show_logmore = show_logmore & "<ul><span id=""ob_code""></span><input type='submit' value=' 提交 '></ul>" & vbCrLf
                show_logmore = show_logmore & "</form></div>" & vbCrLf
            End If
        End If
        show = Replace(user_skin_main, "$show_log$", show_logmore)
        If showpwblog = False And showpwlog = False Then
			 show = repl_label(show, injsfile, log_title & "--" & BlogName, user_userName & "," & user_nickName, log_title, Left(RemoveHTML(show_logtext), 80), log_month)
			user_logpath1 = user_logpath & "/" & filename & "." & f_ext
            show=replace(show,"$show_calendar$","<!-- #include file=""..\..\calendar\"&log_month&".htm"" -->")
            If ispwblog = False Then
                savefile user_logpath,"\"&filename&"."&f_ext,show
            Else
                savefile user_logpath,"\"&filename&"."&f_ext,"<script language=javascript>window.location.replace('"&blogdir&"pwblog.asp?action=log&userid="&user_id&"&logid="&logid&"')</script>"
            End If
            oblog.execute("update oblog_log set logfile='"&user_logpath1&"' where logid="&logid)
            If resp = 1 Then
                gourl = user_logpath1
                response.Write("<li><a href="&user_logpath1&" target=_blank>点击查看生成的"&tname&"</a></li>")
                response.Write("<li><a href=user_post.asp?logid="&logid&"&t="&request("t")&">点击修改刚刚提交的"&tname&"</a></li>")
            ElseIf resp = 2 Then
                response.Redirect (user_logpath1)
            ElseIf resp = 3 Then
                gourl = user_logpath1
            End If
        Else
            If f_ext = "htm" Or f_ext = "html" Then
                m_log=replace(show,"$show_calendar$","<div id=""calendar""></div><script src='"&user_path&"/calendar/"&log_month&".htm'></script>")
            Else
                m_log=replace(show,"$show_calendar$","<div id=""calendar"">"&oblog.readfile(user_path&"\calendar",log_month&".htm")&"</div>")
            End If
			m_log=m_log&injsfile
        End If
    End Sub
    
    Public Sub showcmt(logid)
        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, commentasc
        Dim homepage_str, commentid, strtmp
        logid = CLng(logid)
        If user_commentasc = 1 Then commentasc = " order by commentid asc" Else commentasc = " order by commentid desc"
        Set rs = Server.CreateObject("Adodb.RecordSet")
        rs.open "select comment_user,commenttopic,comment,addtime,commentid,homepage,isguest from oBlog_comment where mainid=" & logid & commentasc, conn, 1, 1
        If rs.EOF And rs.bof Then
            show_logmore = show_logmore & "共有0篇评论<br>"
          Else
            Dim totalPut, show_page, strFileName, i
            strFileName = "more.asp?action=comment&id=" & logid
            totalPut = rs.recordcount
            If currentPage < 1 Then
                currentPage = 1
            End If
            If (currentPage - 1) * MaxPerPage > totalPut Then
                If (totalPut Mod MaxPerPage) = 0 Then
                    currentPage = totalPut \ MaxPerPage
                  Else
                    currentPage = totalPut \ MaxPerPage + 1
                End If
            End If
            If (currentPage - 1) * MaxPerPage < totalPut Then
                rs.Move (currentPage - 1) * MaxPerPage
                show_page = oblog.showpage(strFileName, totalPut, MaxPerPage, False, True, "篇日志")
            End If
            Do 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=""user_comments.asp?action=del&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
                i = i + 1
                If i >= MaxPerPage Then Exit Do
                rs.movenext
            Loop
        End If
        show_logmore = show_logmore & show_page
        If encommment = 1 Then
            Dim strguest
            If oblog.setup(11, 0) = 1 Then strguest = "(游客无须输入密码)" Else strguest = ""
            show_logmore = filt_inc(show_logmore)
            show_logmore = show_logmore & "#ad_usercomment#<a Name='comment'></a><h2>发表评论：</h2>" & vbCrLf
            show_logmore = show_logmore & "<div id=""form_comment""><form action='" & blogdir & ".././../savecomment.asp?logid=" & logid & "' method='post' name='commentform' id='commentform' onSubmit='return Verifycomment()'>" & vbCrLf
            show_logmore = show_logmore & "<ul>昵称：<input Name='UserName' type='text' id='UserName' size='15' maxlength='20' value='' /></ul>" & vbCrLf
            show_logmore = show_logmore & "<ul>密码：<input Name='Password' type='password' id='Password' size='15' maxlength='20' value='' /> " & strguest & "</ul>" & vbCrLf
            show_logmore = show_logmore & "<ul>主页：<input Name='homepage' type='text' id='homepage' size='42' maxlength='50' value='http://' /></ul>"
            show_logmore = show_logmore & "<ul>标题：<input Name='commenttopic' type='text' id='commenttopic' size='42' maxlength='50' value='" & commenttopic & "' /></ul>"
            show_logmore = show_logmore & "<ul><input type='hidden' Name='edit' id='edit' value='' />" & vbCrLf
            show_logmore = show_logmore & "<div id=""oblog_edit""></div>" & vbCrLf
            show_logmore = show_logmore & "</ul>" & vbCrLf
            show_logmore = show_logmore & "<ul><script src=""" & blogdir & "count.asp?action=code""></script><input type='Submit' value=' 提交 '></ul>" & vbCrLf
            show_logmore = show_logmore & "</form></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 show_topic, show_emot, show_addtime, show_logtext, show_author, show_loginfo, show_more, show_logcyc, show_topictxt, show_logmore, show, strtmp, xmlstr, rstmp, strart, i, strlogn,  injsfile,substr
        xmlstr = "<?xml version=""1.0"" encoding=""GB2312""?>" & vbCrLf & "<rss version=""2.0"">" & vbCrLf
        xmlstr = xmlstr & "<channel>" & vbCrLf & "<title><![CDATA[" & BlogName & "]]></title>" & vbCrLf
        xmlstr = xmlstr & "<link>" & Trim(oblog.setup(3, 0)) & user_path & "/index." & f_ext & "</link>" & vbCrLf
        xmlstr = xmlstr & "<description><![CDATA[" & BlogName & "]]></description>" & vbCrLf
        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,ishide,commentnum,showword,ispassword,iis,trackbacknum,isbest,blog_password,author,logfile,ishide,authorid,passcheck,Abstract,logtext from oblog_log where userid=" & user_id & " and passcheck=1 and isdraft=0 and logtype=0 order by istop desc,addtime desc")
        While Not rs.EOF
			strtmp=""
            If rs("face") = "0" Then show_emot = "" Else show_emot = "<img src=" & blogdir & "images/face/" & rs("face") & ".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(substr,rs("subjectid"))) & "]</a>"
            End If
            show_topictxt = "<a href=""" & blogdir & rs("logfile") & """>" & oblog.filt_html(rs("topic")) & "</a>"
            If rs(12) = 1 Then show_topictxt = show_topictxt & "　<img src=" & blogdir & "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=""" & blogdir & rs("logfile") & """>阅读全文<span id=""ob_logr" & rs("logid") & """></span></a>"
            show_more = show_more & " | <a href=""" & blogdir & rs("logfile") & "#cmt"">回复<span id=""ob_logc" & rs("logid") & """></span></a>"
            show_more = show_more & " | <a href=""" & blogdir & "showtb.asp?id=" & rs(3) & """ target=""_blank"">引用通告<span id=""ob_logt" & rs("logid") & """></span></a>"
            '----------------------------------------
            '取得文章摘要内容
            If IsNull(rs("Abstract")) Or Trim(rs("Abstract")) = "" or rs("ishide")=1 or rs("ispassword") <> "" or rs("passcheck") = 0  Then
                '兼容以前数据
                If rs("ishide") = 1 Then strtmp = "此日志为隐藏日志，仅好友可见，<a href='" & blogdir & "more.asp?id=" & rs("logid") & "'>点击进入验证页面</a>。"
                If rs("ispassword") <> "" Then strtmp = "<form method='post' action='" & blogdir & "more.asp?id=" & rs("logid") & "' target='_blank'>请输入日志访问密码：<input type=""password"" size=""15"" name=""password"" />  <input type=""submit"" value=""提交""></form>"
                If rs("passcheck") = 0 Then strtmp = "此日志需要管理员审核后才可见。"
                If strtmp <> "" Then
                    show_logtext = strtmp
                Else
                    'show_logtext=filtscript(rs(6))
                    show_logtext = rs("logtext")
                    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=oblog.filt_html_b(show_logtext)
                    End If
                    show_logtext = Replace(show_logtext, "#isubb#", "")
                    show_logtext = filtimg(show_logtext)
                    If oblog.setup(29, 0) = 1 Then show_logtext = profilthtm(show_logtext)
                End If
            Else
                show_logtext = rs("Abstract")
            End If
            '----------------------------------------
            strlogn = strlogn & "$" & rs("logid")
            '只登记开放记录
            If (rs("ispassword")="" Or IsNull(rs("ispassword"))) And rs("blog_password")=0 And rs("ishide")=0 Then
	            xmlstr = xmlstr & "<item>" & vbCrLf & "<title><![CDATA[" & rs("topic") & "]]></title>" & vbCrLf
	            xmlstr = xmlstr & "<link>" & Trim(oblog.setup(3, 0)) & rs("logfile") & "</link>" & vbCrLf