class_blog.asp

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

	            xmlstr = xmlstr & "<description><![CDATA[" & oblog.trueurl(show_logtext) & "]]></description>" & vbCrLf
	            xmlstr = xmlstr & "<author>" & 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)
            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 & " and passcheck=1 and isdraft=0")
		CurrentPage=1
        strart =  CreateStaticPageBar(rstmp(0),user_showlog_num,0) 
        injsfile = "<script src=""" & blogdir & "count.asp?action=logs&id=" & strlogn & """></script>"
        show = Replace(user_skin_main, "$show_log$", show_logmore & strart)
        show = Replace(show, "$show_blogtag$", "")
        show = Replace(show, "$show_blogzhai$", "")
        show = filt_inc(show)
        If showpwblog = False Then
            show = repl_label(show, injsfile, BlogName, user_userName & "," & user_nickName, BlogName, user_siteinfo, newcalendar(user_truepath & "calendar"))
            If ispwblog = False Then
                savefile user_path, "\index." & f_ext, Show
                savefile user_path, "\rss2.xml", xmlstr
            Else
                savefile user_path, "\rss2.xml", "此blog已加密"
                savefile user_path,"\index."&f_ext,"<script language=javascript>window.location.replace('"&blogdir&"pwblog.asp?action=blog&userid="&user_id&"')</script>"
            End If
            If resp = 1 Then
                response.Write("<li><a href="&user_path&"/index."&f_ext&" target=_blank>点击查看生成的首页</a></li>")
            ElseIf resp = 2 Then
                response.Redirect(user_path&"/index."&f_ext)
            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(*) 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 from oblog_message where userid=" & user_id & " 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=""" & 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
                show_logtext = oblog.FilterUbbFlash(filtscript(rs(2)))
                show_more = homepage_str & " | <a href='#cmt'>签写留言</a> | <a href='"&blogdir&"user_messages.asp?action=modify&re=true&id=" & rs(4) & "'>回复</a>"
                show_more = show_more & " | <a href=""" & blogdir & "user_messages.asp?action=del&id=" & rs(4) & """  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_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 = "暂无留言"
            strPageBar =""
        End If
        show_logmore = show_logmore &  strPageBar
        Dim strguest, strart, i
        If oblog.setup(11, 0) = 1 Then strguest = "(游客无须输入密码)" Else strguest = ""
        show_logmore = filt_inc(show_logmore)
        show_logmore = show_logmore & strart & "#ad_usercomment#<a name='cmt'></a><h2>签写留言：</h2>" & vbCrLf
        show_logmore = show_logmore & "<div id=""form_comment""><form action='" & blogdir & "savemessage.asp?userid=" & user_id & "' 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='' /></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 name='login' type='submit' id='Login' value=' 提交 ' /> " & vbCrLf
        show_logmore = show_logmore & "</ul>" & vbCrLf
        show_logmore = show_logmore & "</form></div>" & vbCrLf
        show_logmore = "<h1>留言板首页(<a href='#cmt'>签写留言</a>)</h1>" & vbCrLf & show_logmore

        show = Replace(user_skin_main, "$show_log$", show_logmore)
        if showpwblog=false then
	        show = repl_label(show, "", BlogName & "--留言板", user_userName & "," & user_nickName, BlogName, BlogName, newcalendar(user_truepath & "calendar"))
	        user_filepath = user_path & "/message." & f_ext
	        If ispwBlog = False Then
	            savefile user_path, "\message." & f_ext, show
	        Else
	            savefile user_path, "\message." & f_ext, "<script language=javascript>window.location.replace('" & blogdir & "pwblog.asp?action=message&userid=" & user_id & "')</script>"
	        End If
	        If resp = 1 Then
	            Response.Write ("<li><a href=" & user_filepath & " target=_blank>点击查看留言板!</a></li>")
	        ElseIf resp = 2 Then
	            Response.Redirect (user_filepath)
	        ElseIf resp = 3 Then
	            GoUrl = user_filepath
	        End If
	    Else
	    	m_message=show
	    End If
    End Sub
            
     Public Sub Update_info(userid)
        Dim show
        show = "<ul>" & vbCrLf
        show = show & "<li>日志总数:" & user_log_count & "</li>" & vbCrLf
        show = show & "<li>评论数量:" & user_comment_count & "</li>" & vbCrLf
        show = show & "<li>留言数量:" & user_message_count & "</li>" & vbCrLf
        show = show & "<li>访问次数:<span id=""site_count""></span></li>" & vbCrLf
        show = show & "<li><a href=""" & blogdir & "user_friends.asp?action=saveadd&friendname=" & user_userName & """ target=""_blank"">加为好友</a>　<a href=""javascript:openScript('" & blogdir & "user_pm.asp?action=send&incept=" & user_userName & "',450,400)"">发送短信</a></li>"
        show = show & "</ul>" & vbCrLf
        if showpwblog or showpwlog then m_info=show : exit sub
        savefile user_path, "\inc\show_info.htm", show
    End Sub
    
    Public Sub Update_placard(userid)
        Dim show
        show = FilterJS(user_placard)
        show = filtSkinPath(filt_inc(show))
        if showpwblog or showpwlog then m_placard=show : exit sub
        savefile user_path, "\inc\show_placard.htm", show
    End Sub
    
    Public Sub Update_links(userid)
        Dim show
        show = user_links & vbCrLf
        show = filtSkinPath(filt_inc(show))
        if showpwblog or showpwlog then m_links=show : exit sub
        savefile user_path, "\inc\show_links.htm", show
    End Sub
    
    Public Sub Update_newblog(userid)
        Dim n, show,fname
        n = CLng(user_shownewlog_num)
        Set rs = oblog.Execute("select top " & n & " topic,addtime,logfile,logid from [oblog_log] where userid=" & userid & " and isdraft=0 and passcheck=1 order by addtime desc")
        If Not rs.EOF Then show = "<ul>" & vbCrLf
        While Not rs.EOF
            show = show & "<li><a href=""" & blogdir&rs(2) & """ title=""发表于" & rs(1) & """>" & oblog.filt_html(Left(rs(0), 18)) & "</a></li>" & vbCrLf
            rs.movenext
            If rs.EOF Then show = show & "</ul>" & vbCrLf
        Wend
        if showpwblog or showpwlog then m_newblog=show : exit sub
        savefile user_path, "\inc\show_newblog.htm", show
    End Sub
    
    Public Sub Update_newmessage(userid)
        Dim n, show, userdir, ustr
        n = CLng(user_shownewmessage_num)
        show = "<ul><li><a href="""&blogdir&user_path&"/message." & f_ext & "#cmt"">::签写留言::</a></li>"
        Set rs = oblog.Execute("select top " & n & " user_dir,messagetopic,oblog_message.addtime,message_user,messageid,messagefile from oblog_user,oblog_message where oblog_message.userid=" & userid & " and oblog_user.userid=oblog_message.userid order by messageid desc")
        While Not rs.EOF
            ustr = user_truepath&"message." & f_ext & "#" & rs("messageid")
            show = show & "<li><a href=""" & ustr & """ title=""" & oblog.filt_html(rs("message_user")) & "发表于" & rs("addtime") & """ >" & oblog.filt_html(Left(rs("messagetopic"), 18)) & "</a></li>" & vbCrLf
            rs.movenext
        Wend
        show = show & "</ul>" & vbCrLf
        if showpwblog or showpwlog then m_newmessage=show : exit sub
        savefile user_path, "\inc\show_newmessage.htm", show
    End Sub
    
    Public Sub Update_comment(userid)
        Dim n, show
        n = CLng(user_shownewcomment_num)
        Set rs = oblog.Execute("select top " & n & " oblog_comment.commenttopic,oblog_comment.addtime,oblog_comment.comment_user,oblog_comment.commentid,oblog_log.logfile from oblog_log,oblog_comment where oblog_comment.mainid=oblog_log.logid and oblog_comment.userid=" & userid & " order by commentid desc")
        If Not rs.EOF Then show = "<ul>" & vbCrLf
        While Not rs.EOF
            show = show & "<li><a href=""" &blogdir&rs("logfile")& "#" & rs("commentid") & """ title=""" & oblog.filt_html(rs("comment_user")) & "发表于" & rs("addtime") & """>" & oblog.filt_html(Left(rs("commenttopic"), 18)) & "</a></li>" & vbCrLf
            rs.movenext
            If rs.EOF Then show = show & "</ul>" & vbCrLf
        Wend
        if showpwblog or showpwlog then m_comment=show : exit sub
        savefile user_path, "\inc\show_comment.htm", show
    End Sub
    
    '生成用户的日志分类
    Public Sub Update_Subject(userid)
        Dim n, show
        show = "<ul>" & vbCrLf & "<li><a href=""" & user_truepath&"index." & f_ext & """>首页</a>"
        'show = show & "<li><a href=""" & blogdir & "user_index.asp"" target=""blank"">管理</a></li>"
        If en_photo = 1 Then
            show = show & vbCrLf & " <a href="""&user_truepath&"cmd." & f_ext &"?uid="&user_id&"&do=album"">相册</a> "
        End If
        If EN_TAGS = 1 Then