星铃丹

看完这个帖子，有时候觉得功能太复杂也不好，唉，头疼！

emj365

主要是这个评论区域开关比较麻烦

楼主能看看 随即文章为什么显示不出吗？

星铃丹

嗯，不过那个功能我还挺喜欢的，还想弄过来用- - ||

kenshin520

@摇曳铃丹 4u-HK是集成插件版的，正常来说对于4u-HK集成的插件不需要再次进行配置（我在集成插件的时候只选择了大家肯定常用的一些插件(*^__^*) ）造成现在这种情况的发生是由于Kenshin本身的大意、4u-HK的一些BUG和4u-hemingway本身的一些缺陷造成的。：（

@emj365 popavatar的站我认为的确是不太出色，由于我注册的时间比较早，所以对于你说的那些BUG不是很了解：（。
你说的javascript出问题，我也是在今天早上发现的，我会把你写的代码更新到4u-HK中的！另外，4u-HK这个版本只是我自己使用的BLOG，后来觉得宽屏版的确有些实际的用处，所以就共享出来给大家(*^__^*) ！关于随机文件的问题，请详细说明。
你说的统计留言数的这个问题，可能真的是ZBLOG本身的问题（或许zx.asd当初就没想包含Trackbacks在内呢！）

PS：Flex还算是比较不错的技术，我认为有前途(*^__^*) ，正好emj365提出来了，我就在这里做个宣传吧！喜欢Flex的朋友可以去我的BLOG：http://www.k-zone.cn

一条流浪的鱼儿

楼主我的博客“最热文章TOP15”显示还是错误
http://www.hidigi.net

kenshin520

@一条流浪的鱼儿 我看了你的BLOG，可能是由于之前我的一个BUG造成的。你可以重新下载4u-HK.rar也可以使用emj365的方法进行修改(*^__^*)

这是修复方法：
修复“最热文章TOP15”的错误显示

修改“\PLUGIN\randomsort\blog.asp”操作：

查找
strtopmonth = strtopmonth & "<ul class=""counts"" height=""4""><a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></ul>"

替换为
strtopmonth = strtopmonth & "<li><a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"

一条流浪的鱼儿

我已经在这个帖子里下载后重新更新了 还是不行啊

emj365

我的blog随便看看栏目没有任何东西 是否是randomsort2文件夹内的程序错误
由于我之前没有使用过这个插件 希望搂主能帮我检查一下你提供的插件代码是否有错误

emj365

根据这个模板我修改了randomsort插件
其实PLUGIN\randomsort2 文件夹的内容基本和 PLUGIN\randomsort 一样，只是一个是用于输出top15 一个是随即文件

blog.htm 根据你的需求 选其一:

复制内容到剪贴板

代码:

<!--最新文章-->
<!--最新文章2-->
<!--随机文章-->
<!--随机文章2-->
<!--本月评论排行-->
<!--本年评论排行-->
<!--本月排行-->
<!--本年排行-->

把blog.asp修改如下（两个文件是一样的）：

复制内容到剪贴板

代码:

<%@ CODEPAGE=65001 %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<% Response.ContentType ="application/x-javascript" %>
<!-- #include file="../../c_option.asp" -->
<!-- #include file="../../function/c_function.asp" -->
<!-- #include file="../../function/c_function_md5.asp" -->
<!-- #include file="../../function/c_system_lib.asp" -->
<!-- #include file="../../function/c_system_base.asp" -->
<!-- #include file="../../function/c_system_event.asp" -->
<%
Function WriteBlogFile

        Call GetReallyDirectory()

        '输出文件地址
    txtfilename =BlogPath & "PLUGIN\randomsort\" & "cache.htm"
        '模板文件地址
        templetfile =BlogPath & "PLUGIN\randomsort\" & "blog.htm"

        intCutLen=20

    If DateDiff("n", GetFileDate(txtfilename), Now) <= 2 Then '每隔20分钟生成一次目标文件
                WriteBlogFile=LoadFromFile(txtfilename,"utf-8")
                Exit Function
        End if

        Call System_Initialize()

    txttemplet = LoadFromFile(templetfile,"utf-8")

    Set objRS = CreateObject("ADODB.RECORDSET")

        '最新文章
        strSql = "select top 20 * from blog_Article WHERE ([log_ID]>0) AND ([log_Level]>2) order by log_ID desc "
    objRS.Open strSql, objConn, 1, 1
    strnew = " "
    strnew2 = " "
        lastid=objRS("log_ID")
    For icount=1 To 20
If objRS.eof Then Exit For
                Set objArticle=New TArticle
                If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then

                If icount<11 Then
                strnew = strnew & "<li>　<a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"
                else
                strnew2 = strnew2 & "<li>　<a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"
                End If
               
                End If
        objRS.movenext
    next
    objRS.Close

        '随机文章
        randomize
        tempid=CStr(CInt(Rnd*CInt(lastid))+20)
        strSql = "select top 20 * from blog_Article WHERE ([log_Level]>2) AND  log_ID>" & tempid & " order by log_ID "
    objRS.Open strSql, objConn, 1, 1
    strtemp = " "
    strtemp2 = " "
    For icount=1 To 20
If objRS.eof Then Exit For
                Set objArticle=New TArticle
                If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then


                If icount<11 Then
                strtemp = strtemp & "<li><a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"
                else
                strtemp2 = strtemp2 & "<li><a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"
                End If
               
                End If
        objRS.movenext
    next
    objRS.Close

        '本月评论排行  实际是本季度的排行
        strSql = "select top 10 * from blog_Article WHERE ([log_Level]>2) AND (log_ID>0) AND  (log_PostTime>Now()-90) ORDER BY log_CommNums DESC "
    objRS.Open strSql, objConn, 1, 1
    strcommonth = " "
    For icount=1 To 10
If objRS.eof Then Exit For
                Set objArticle=New TArticle
                If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then

        strcommonth = strcommonth & "<li>　<a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"
        objRS.movenext

                End If
    next
    objRS.Close
   
        '本年评论排行
        strSql = "select top 10 * from blog_Article WHERE ([log_Level]>2) AND (log_ID>0) AND  (log_PostTime>Now()-360) ORDER BY log_CommNums DESC "
    objRS.Open strSql, objConn, 1, 1
    strcomyear = " "
    For icount=1 To 10
If objRS.eof Then Exit For
                Set objArticle=New TArticle
                If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then


        strcomyear = strcomyear & "<li><td align=""left"">　<a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"
        objRS.movenext

                End If
    next
    objRS.Close

        '本月排行
        strSql = "select top 10 * from blog_Article WHERE ([log_Level]>2) AND (log_ID>0) AND  (log_PostTime>Now()-30) ORDER BY log_ViewNums DESC "
    objRS.Open strSql, objConn, 1, 1
    strtopmonth = " "
    For icount=1 To 10
If objRS.eof Then Exit For
                Set objArticle=New TArticle
                If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then


        strtopmonth = strtopmonth & "<li><a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"
        objRS.movenext

                End If
    next
    objRS.Close
   
        '本年排行
        strSql = "select top 10 * from blog_Article WHERE ([log_Level]>2) AND (log_ID>0) AND  (log_PostTime>Now()-360) ORDER BY log_ViewNums DESC "
    objRS.Open strSql, objConn, 1, 1
    strtopyear = " "
    For icount=1 To 10
If objRS.eof Then Exit For
                Set objArticle=New TArticle
                If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then


        strtopyear = strtopyear & "<li><a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"
        objRS.movenext

                End If
    next
    objRS.Close

        '模板文件替换
        txtout = txttemplet
    txtout = Replace(txtout, "<!--最新文章-->", strnew)
    txtout = Replace(txtout, "<!--最新文章2-->", strnew2)
    txtout = Replace(txtout, "<!--随机文章-->", strtemp)
    txtout = Replace(txtout, "<!--随机文章2-->", strtemp2)
    txtout = Replace(txtout, "<!--本月评论排行-->", strcommonth)
    txtout = Replace(txtout, "<!--本年评论排行-->", strcomyear)
    txtout = Replace(txtout, "<!--本月排行-->", strtopmonth)
    txtout = Replace(txtout, "<!--本年排行-->", strtopyear)
  
    txtout = Replace(txtout, Chr(10), "")
    txtout = Replace(txtout, Chr(13), "")
    txtout = "document.write ('" & txtout & "');"

        Call SaveToFile(txtfilename,txtout,"utf-8",False)

        WriteBlogFile=txtout

End Function

Function cutStr(str,strlen)
    dim i,l,t,c
    l=len(str)
    t=0
    for i=1 to l
    c=Abs(Asc(Mid(str,i,1)))
    if c=1 then
    t=t+2
    else
    t=t+1
    end if
    if t>=strlen then
    cutStr=left(str,i)&".."
    exit for
    else
    cutStr=str
    end if
    next
End Function

Function GetFileDate(filespec)
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(filespec) Then
                Set f = fs.GetFile(filespec)
                GetFileDate = f.DateLastModified
            Set f=Nothing
        Else
                GetFileDate="2004-11-11 11:11:11"
        End if
    Set fs=Nothing
End Function

Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
End With
Set Retrieval = Nothing
End Function

Response.Write WriteBlogFile

%>

kenshin520

感谢emj365的帮助，在这里我再重申一下！
随即文章和全年文章排行这个插件我是把williamlong的插件进行了整合，现在使用4u-HK这个Theme的朋友有不少人都碰到了“最热文章TOP15”和“随机文章”无法显示的问题！
这个问题我在制作4u-HK的时候的确没有碰到过，所以如果哪位朋友使用4u-HK出现上述问题一定要联系我，msn：kenshin726（AT）hotmail.com QQ：23784148 （闲聊误加）(*^__^*)

关于“最热文章TOP15”和“随机文章”我在说一下机制。
其中plugin中randomsort代表“最热文章TOP15”
randomsort2 代表“随机文章”

另外我正在研究为什么会出现这种情况，由于白天没有时间，只能晚上研究。所以请各位zblogger见谅（︶︿︶）

如果有朋友使用4u-HK，而“最热文章TOP15”和“随机文章”好使。也请在下面告诉我一声。我好分析原因才能得到最好的解决办法，对吧(*^__^*)

PS：由于我的“最热文章TOP15”和“随机文章”均好使，所以我无法判断不好使的原因（︶︿︶）

如果各位朋友没有自行修改randomsort和randomsort2中的内容，则不需要使用emj365修改的代码（当然你使用也没有问题，但是请记住覆盖的是randomsort这个文件夹的内容，切勿覆盖randomsort2中的内容！）

另外，在完成文件和索引重建后，请等几分钟才能使“最热文章TOP15”和“随机文章”生效！
也请把randomsort和randomsort2中的cache.html文件的内容清空。

最后，在使用“最热文章TOP15”和“随机文章”如果出现无法显示的问题，请不要认为是异常情况(*^__^*) 。因为已经有很多发生了和你们同样的事情（同样更多的朋友却没有这种问题）请马上联系我，我会即使帮助你们的(*^__^*)

[ 本帖最后由 kenshin520 于 2007-10-11 09:10 编辑 ]

emj365

嗯~~~~~~

我的确只修改了<li><a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>
这样的字符串

其他的我也没有那么大的本事修改 其实我就是吧randomsort中的blog.asp复制到randomsort2就好了
然后把字符串包含到<li></li> 先前是table 导致显示错误

其他没什么改动  麻烦kenshin520检查一下 为什么两个文件夹中的 blog.asp不一样呢  应该是个只要改外部参数就能用的插件 blog.asp唯一需要改的就是strtopmonth = strtopmonth & "<li><a href=""" & objArticle.Url & """>" & cutStr(objRS("log_Title"),intCutLen) & "</a></li>"  类似语句

自定义输出html

kenshin520

@emj365 这两个文件的确有些不同之处，因为randomsort是关于最热TOP15的文章，所以针对全年排行进行了处理，而randomsort2是关于随机的文章，也就是只对随机文章进行了处理！因此才会有区别的(*^__^*)