function fat(a,b,c,d,e)
ds=timer()
tab=tab+"<span id=showimport><font color=red><b>全部分类和首页生成中，请稍候……</b></font></span><ie:download id=""odownload"" style=""behavior:url(#default#download)"" />"
If e="" then
set rs=conn.execute("select id from ["&a&"]")
else
set rs=conn.execute("select id from ["&a&"] where ty="&e&" or id="&e&"")
end If
do while not rs.eof '总循环开始
ly=""
tid=int(rs(0))
fid=""&rs(0)&""
set list=conn.execute("select id from ["&a&"] where ty="&tid&"") '获取该分类是否含有二级分类，有则取的二级分类所有id
do while not list.eof
ly=ly+" or ty="&list(0)&""
list.movenext
loop
list.close
set list=nothing
sql="select id from ["&b&"] where (ty="&tid&ly&")"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,1
rs1.pagesize=c
mpage=rs1.pagecount
for i=1 to mpage
tab=tab+"<script>function ondownloaddone(downdate){showimport.innerhtml=downdate}odownload.startdownload('fso_ty_"&d&".asp?tid="&fid&"&page="&i&"',ondownloaddone)</script>"
k=mpage
Next
rs1.close
set rs1=Nothing
m=m+k
l=l+1
rs.movenext '总循环结束
Loop
tab=tab+"<script>function ondownloaddone(downdate){showimport.innerhtml=downdate}odownload.startdownload('fso_"&d&".asp?i="&d&"',ondownloaddone)</script>"
tab=tab+"<script>function ondownloaddone(downdate){showimport.innerhtml=downdate}odownload.startdownload('fso_index.asp',ondownloaddone)</script>"
tab=tab+"<meta http-equiv=refresh content='0; url=fso_ty_"&d&".asp?type=ok&kid="&l&"&tid=1&d="&ds&"&page="&m&"'>"
'tab=tab+"<br><p><b>生成成功!</b>完成时间"&m&"("&now()&")</p><a href=""javascript:history.back()"">返回上一页</a>"
rs.close
set rs=nothing
fat=tab
end function