狼的旋律的[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还是因为比较懒，所以连里面的变量名都没改改就直接拉过来用了...调用代码和原插件调用代码一致，修改后到该插件管理页面点下生成静态首页/缓存文件↓即可。静态页面需要文件重建才能显示出来。
预览效果如图：
不同的主题可能还需要适当的定义下css，上面的函数中我设置主页显示6个相册，然后每个相册只显示封面，每个图片限制宽度80，代码结构和zblog系统生成的include代码一致。
转载请注明：鸟儿博客 » WindsPhoto首页调用相册缩略图