class_blog.asp

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

            show = show & vbCrLf & " <a href="""&user_truepath&"cmd."&f_ext&"?uid=" & user_id &"&do=tags"">标签</a>"
        End If
		show=show&"</li>"
        Set rs = oblog.Execute("select Subjectid,SubjectName,Subjectlognum from oBlog_Subject where  userid=" & userid & " and Subjecttype=0 order by ordernum")
        While Not rs.EOF
            show = show & "<li><a href=""" & user_truepath & "cmd."&f_ext&"?do=blogs&id=" & rs("Subjectid") & "&uid="&user_id&""">" & oblog.filt_html(rs("SubjectName")) & "(" & rs("Subjectlognum") & ")" & "</a></li>" & vbCrLf
            rs.movenext
        Wend
        show = show & "</ul>" & vbCrLf
        'show1 = Replace(show, "<div id=""subject"">", "<div id=""subject_l"">")
        if showpwblog or showpwlog then m_subject=show:m_subject_l=show : exit sub
        savefile user_path, "\inc\show_subject.htm", show
        '使用一个文件，用不同的div id控制格式savefile user_path, "\inc\show_subject_l.htm", show1
    End Sub
    
    Public Sub Update_calendar(logid)
        Dim c_year, c_month, c_day, logdate, today, tomonth, toyear, sql, s, count, b, c
        Dim thismonth, thisdate, thisyear, startspace, NextMonth, NextYear, PreMonth, PreYear, linkTrue
        Dim linkdays, selectdate, linkcount, ccode
        Dim CommondFile
		CommondFile= user_truepath&"cmd."&f_ext&"?uid="&user_id&"&do=month&month="
        ReDim linkdays(2, 0)
        Set rs = oblog.Execute("select addtime from oBlog_log where oBlog_log.logid=" & CLng(logid))
        If rs.EOF Then Exit Sub
        selectdate = rs(0)
        c_year = CInt(Year(selectdate))
        c_month = CInt(Month(selectdate))
        c_day = CInt(Day(selectdate))
        logdate = c_year & "-" & c_month
        If is_sqldata Then
            Dim cmd, rs
            Set cmd = Server.CreateObject("ADODB.Command")
            Set cmd.ActiveConnection = conn
            cmd.CommandText = "ob_calendar"
            cmd.CommandType = 4
            cmd("@logdate") = logdate
            cmd("@userid") = user_id
            Set rs = cmd.Execute
            Set cmd = Nothing
          Else
            sql = "SELECT addtime,logfile from oBlog_log WHERE datediff('n','" & logdate & "',addtime)>0 and userid=" & user_id
            Set rs = oblog.Execute(sql)
        End If
        Dim theday
        theday = 0
    
        Do While Not rs.EOF
            If Day(rs("addtime")) <> theday Then
                theday = Day(rs("addtime"))
                ReDim Preserve linkdays(2, linkcount)
                linkdays(0, linkcount) = Month(rs("addtime"))
                linkdays(1, linkcount) = Day(rs("addtime"))
                'linkdays(2, linkcount) = blogdir & rs("logfile")
                linkdays(2, linkcount)=user_truepath&"cmd."&f_ext&"?uid="&user_id&"&do=day&day=" & CStr(CDate(Year(rs("addtime")) & "-" & Month(rs("addtime")) & "-" & Day(rs("addtime"))))
                linkcount = linkcount + 1
            End If
            rs.movenext
        Loop
        Set rs = Nothing
        Dim mdays(12)
        mdays(0) = ""
        mdays(1) = 31
        mdays(2) = 28
        mdays(3) = 31
        mdays(4) = 30
        mdays(5) = 31
        mdays(6) = 30
        mdays(7) = 31
        mdays(8) = 31
        mdays(9) = 30
        mdays(10) = 31
        mdays(11) = 30
        mdays(12) = 31
        '今天的年月日
        today = Day(ServerDate(Now()))
        tomonth = Month(ServerDate(Now()))
        toyear = Year(ServerDate(Now()))
        '指定的年月日及星期
        thismonth = c_month
        thisdate = c_day
        thisyear = c_year
        If IsDate("February 29, " & thisyear) Then mdays(2) = 29
        '确定日历1号的星期
        startspace = Weekday(thismonth & "-1-" & thisyear) - 1
        NextMonth = c_month + 1
        NextYear = c_year+1
        If NextMonth > 12 Then
            NextMonth = 1
            NextYear = NextYear + 1
        End If
        PreMonth = c_month - 1
        PreYear = c_year-1
        If PreMonth < 1 Then
            PreMonth = 12
            PreYear = PreYear - 1
        End If
        ccode = "<table width='100%'>" & vbCrLf
        'ccode = ccode & "<caption>" & mName(thismonth) & thisyear & "</caption><tr>" & vbCrLf
        ccode = ccode & "<caption><a href="""& CommondFile & (PreYear & Right("0" & c_month,2)) &""" title=""上一年""><span class=""arrow""><<</span></a>&nbsp;&nbsp;<a href=""" & CommondFile & c_year& Right("0" & preMonth,2)&""" title=""上一月""><span class=""arrow""><</span></a> "& toyear &"  <a href=""" & CommondFile & Year(ServerDate(Date)) & Right("0" & Month(ServerDate(Date)),2) & """ title=""返回当月"">-</a> "& c_month&" <a href="""& CommondFile & c_year& Right("0" & NextMonth,2) &""" title=""下一月""><span class=""arrow"">></span></a>&nbsp;&nbsp;<a href=""" & CommondFile & NextYear & Right("0" & c_month,2) &""" title=""下一年""><span class=""arrow"">>></span></a></caption><tr>"
        'ccode = ccode & "<caption><a href=""" & CommondFile & c_year& Right("0" & preMonth,2)&""" title=""上一月""><span class=""arrow""><</span></a> "& toyear &"  <a href=""" & CommondFile & Year(ServerDate(Date)) & Right("0" & Month(ServerDate(Date)),2) & """ title=""返回当月"">-</a> "& c_month&" <a href="""& CommondFile & c_year& Right("0" & NextMonth,2) &""" title=""下一月""><span class=""arrow"">></span></a></caption><tr>"
        ccode = ccode & "<th>日</th>" & vbCrLf
        ccode = ccode & "<th>一</th>" & vbCrLf
        ccode = ccode & "<th>二</th>" & vbCrLf
        ccode = ccode & "<th>三</th>" & vbCrLf
        ccode = ccode & "<th>四</th>" & vbCrLf
        ccode = ccode & "<th>五</th>" & vbCrLf
        ccode = ccode & "<th>六</th></tr><tr>" & vbCrLf
        For s = 0 To startspace - 1
            ccode = ccode & "<td align=center>&nbsp;</td>" & vbCrLf
        Next
        count = 1
        While count <= mdays(thismonth)
            For b = startspace To 6
                ccode = ccode & "<td align=center>"
                linkTrue = "False"
                For c = 0 To UBound(linkdays, 2)
                    If linkdays(0, c) <> "" Then
                        If linkdays(0, c) = thismonth And linkdays(1, c) = count Then
                            ccode = ccode & "<a href='" & linkdays(2, c) & "'>"
                            linkTrue = "True"
                        End If
                    End If
                Next
                If count <= mdays(thismonth) Then ccode = ccode & count
                If linkTrue = "True" Then ccode = ccode & "</a>"
                ccode = ccode & "</td>" & vbCrLf
                count = count + 1
            Next
            If count > mdays(thismonth) Then
                ccode = ccode & "</tr>" & vbCrLf
              Else
                ccode = ccode & "</tr><tr>" & vbCrLf
            End If
            startspace = 0
        Wend
        ccode = ccode & "</table>" & vbCrLf
        If CLng(c_month) < 10 Then c_month = "0" & c_month
        'ccode = "<div id=""calendar"">" & ccode & "</div>"
        savefile user_path, "\calendar\" & c_year & c_month & ".htm", ccode
    End Sub
    
    
    Public Function filt_pwblog(show, log_title)
        update_info (user_id)
        update_subject (user_id)
        update_newblog (user_id)
        update_newmessage (user_id)
        update_links (user_id)
        update_comment (user_id)
        'show=replace(show,"$show_calendar$",oblog.readfile(user_path&"\calendar",log_month&".htm"))
        show = Replace(show, "$show_placard$", "<div id=""placard"">"&m_placard&"</div>")
        show = Replace(show, "$show_subject$", "<div id=""subject"">"&m_subject&"</div>")
        show = Replace(show, "$show_subject_l$", "<div id=""subject_l"">"&m_subject&"</div>")
        show = Replace(show, "$show_newblog$", "<div id=""newblog"">"&m_newblog&"</div>")
        show = Replace(show, "$show_comment$", "<div id=""comment"">"&m_comment&"</div>")
        show = Replace(show, "$show_newmessage$", "<div id=""newmessage"">"&m_newmessage&"</div>")
        show = Replace(show, "$show_links$", "<div id=""links"">"&m_links&"</div><div id=""ad_userlinks""></div>")
        show = Replace(show, "$show_info$", "<div id=""info"">"&m_info&"</div>")
        show = Replace(show, "$show_blogname$", blogname)
		show = Replace(show, "#ad_usercomment#", "<div id=""ad_usercomment""></div>")
		show=replace(show,"$show_xml$","<div id=""xml""><a href="""&user_truepath&"rss2.xml"" target=""_blank""><img src='" & blogdir & "images/xml.gif' width='36' height='14' border='0' /></a></div>")
        If f_ext = "htm" Or f_ext = "html" Then
            show=replace(show,"$show_search$","<div id=""search""></div><script src="""&blogdir&user_path&"/inc/show_search.htm""></script>")
            show=replace(show,"$show_login$","<div id=""ob_login""></div><script src="""&blogdir&user_path&"/inc/show_login.htm""></script>")
        Else
            show=replace(show,"$show_search$",oblog.readfile(user_path&"\inc","show_search.htm"))
            show=replace(show,"$show_login$",oblog.readfile(user_path&"\inc","show_login.htm"))
            'show=replace(show,"$show_xml$",oblog.readfile(user_path&"\inc","show_xml.htm"))
        End If
        show="<script src=""inc/main.js"" type=""text/javascript""></script>"&VbCrLf&show
        show="<link href=""OblogStyle/OblogUserDefault31.css"" rel=""stylesheet"" type=""text/css"" />"&VbCrLf&"</head>"&VbCrLf&"<body><div id=""ad_usertop""></div>"&show
        show=show&"<div id=""powered""><a href=""http://oblog.oioj.net"" target=""_blank""><img src=""images/oblog_powered.gif"" border=""0"" alt=""Powered by Oblog."" /></a></div>"&VbCrLf&"<div id=""ad_userbot""></div></body>"&VbCrLf&"</html>"
        show="<title>"&log_title&"</title>"&VbCrLf&show
        show="<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"&VbCrLf&show
        show="<meta http-equiv=""Content-Language"" content=""zh-CN"" />"&VbCrLf&show
        show="<html>"&VbCrLf&"<head>"&VbCrLf&show
		 If InStr(show, "<div id=""oblog_edit"">") Then
            show = show & "<script src=""" & blogdir & "commentedit.asp""></script>" & vbCrlf
            show = show & "<script src=""" & blogdir & "count.asp?action=code31""></script>" & vbCrlf
        End If
        If InStr(show, "<div id=""blogzhai"">") Then
            show = show & "<script src=""" & blogdir & "inc/inc_zhai.js""></script>" & vbCrlf
        End If
        show = show & "<script src=""" & blogdir & "count.asp?action=site&id=" & user_id & """></script>" & vbCrlf
        show = show & "<script src=""" & blogdir & "login.asp?action=showindexlogin""></script>" & vbCrlf
        show =repl_ad(show,1)
        filt_pwblog = show
    End Function
	
	public sub update_partlog(uid,lid)
		dim rs1,p,lastid,i
		i=1
		lid=clng(lid)
		Set rs1 = Server.CreateObject("Adodb.RecordSet")
        rs1.open "select top 200 logid from oBlog_log where userid=" & uid & " and isdraft=0 and logid>"&lid, conn, 1, 1
		if rs1.eof then
			rs1.Close
			set rs1=nothing
			progress 100, "更新所有日志完成!"
			exit sub
		end if
        While Not rs1.EOF
            p = rs1.recordcount + 1
            progress Int(i / p * 100), "更新ID为" & rs1(0) & "的日志..."
            Update_log rs1(0), 0
            Update_calendar rs1(0)
            lastid=rs1(0)
			i=i+1
            rs1.movenext
        Wend
		set rs1=oblog.execute("select top 1 logid from oblog_log where userid=" & uid & " and isdraft=0 and logid>"&lastid)