如果用ASP程序 + FSO 能把以下代码 生成 JS 文件,就大功告成了
************************************************************************************************************
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><%set rsbig=server.createobject("adodb.recordset")
rsbig.open "select category,categoryid,icon from category where parentid=0 and hide=0 order by categoryorder asc",conn,1,1
if rsbig.eof and rsbig.bof then
rsbig.close
response.write"<td><font color='#ff0000'>暂无统计数据!</font></td>"
else
n=0
do while not rsbig.eof %>
<td width="70" align="center"><img src="<%=rsbig("icon")%>" onload ="javascript:if(this.width>65)this.width=65;if(this.height>65)this.height=65;"></td>
<td valign="top"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><a href="product.asp?bigclassid=<%=rsbig("categoryid")%>"><b><%=rsbig("category")%></b></a></td>
</tr>
<tr>
<td><%set rssm=server.createobject("adodb.recordset")
rssm.open "select category,categoryid,icon from category where parentid="&rsbig("categoryid")&" and hide=0 order by categoryorder asc",conn,1,1
if rssm.eof and rssm.bof then
rssm.close
response.write"<font color='#ff0000'>暂无分类数据!</font>"
else
y=1
do while not rssm.eof %>
<a href='product.asp?bigclassid=<%=rsbig("categoryid")%>&smallclassid=<%=rssm("categoryid")%>'><%=rssm("category")%></a> <% if rssm.RecordCount<>int(y) then response.write " | " end if%>
<% y=y+1
rssm.movenext
loop
end if
%></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td><% n=n+1
if n mod 2=0 and n<>rsbig.RecordCount then
response.write"</tr><tr><td height='3' colspan='4' background='images/LINE.JPG'><img name='' src='' width='1' height='3' alt=''></td></tr><tr>"
end if
rsbig.movenext
loop
end if
rssm.close
set rssm=nothing
rsbig.close
set rsbig=nothing%>
</tr>
</table>