花褪残红青杏小。燕子飞时,绿水人家绕。

WindsPhoto首页调用相册缩略图

ZBLOG教程 十五楼的鸟儿 23672浏览 0评论

狼的旋律的[loc=http://www.wilf.cn/post/WindsPhoto.html]WindsPhoto[/loc]相册插件一直没有提供首页缩略图列表调用的方式,因为自己比较懒也一直没去修改,今天遇上朋友问,顺手解决这个问题。

安装插件的问题请到作者主页去问,我这里只解决标题的问题。

插件后台安装好之后,找到插件目录下的admin_html.asp,Ctrl+F 搜索函数GetHTMLSort(),把整个函数替换成下面这段。

Function GetHTMLSort()  
    Dim rssort, rssortcount, sqlsort1, sqlsort2, countsort  
    Set rssort = Server.CreateObject("ADODB.RecordSet")  
  sqlsort1= "select top 11 * from zhuanti where pass='' order by ordered,id asc"  
    rssort.Open sqlsort1, wConn, 1, 1  
    Do While Not rssort.EOF  
        sqlsort2 = "select top 1 * from desktop where zhuanti="&rssort("id")&"and hot=true"  
        Set rssortcount = Server.CreateObject("ADODB.RecordSet")  
        rssortcount.Open sqlsort2, wConn, 3, 3  
        GetHTMLSort = GetHTMLSort&"<li><a href='"& WP_SUB_DOMAIN &"album.asp?typeid="&rssort("id")&"'><img title='"&rssort("name")&"' width='135' height='90'  src='"& WP_SUB_DOMAIN &rssortcount("surl")&"' border='0' alt='"&rssort("name")&"' /><span class='title'>"&rssort("name")&"</span></a></li>"&Chr(13)&Chr(10)  
        rssortcount.Close  
        Set rssortcount = Nothing  
        rssort.movenext  
    Loop  
    rssort.Close  
    Set rssort = Nothing  
End Function


    还是因为比较懒,所以连里面的变量名都没改改就直接拉过来用了...调用代码和原插件调用代码一致,修改后到该插件管理页面点下生成静态首页/缓存文件↓即可。静态页面需要文件重建才能显示出来。

    预览效果如图:
    WindsPhoto首页调用相册缩略图 ZBLOG ZBLOG教程  第1张

    不同的主题可能还需要适当的定义下css,上面的函数中我设置主页显示6个相册,然后每个相册只显示封面,每个图片限制宽度80,代码结构和zblog系统生成的include代码一致。


转载请注明:鸟儿博客 » WindsPhoto首页调用相册缩略图

与本文相关的文章

游客
发表我的评论 换个身份
取消评论

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址