admin_htmldownsort.asp

官方最新的南方数据v12生成静态商业版。全站生成静态。

<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="../inc/Const.asp" -->
<!--#include file="../inc/config.asp" -->
<!--#include file="Admin_htmlconfig.asp"-->
<link rel="stylesheet" href="Image/Admin_style.css">
<%
if ISHTML = 0 then
  response.Write "<script language='javascript'>alert('请先在【系统参数配置】中将静态HTML设置为开启！');history.go(-1);</script>"
  response.End
end If
%>
<br />
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="300"><table width="100%" border="0" cellspacing="0" cellpadding="1">
        <tr>
          <td style="border-bottom: #ccc 1px solid; border-top: #ccc 1px solid; border-left: #ccc 1px solid; border-right: #ccc 1px solid"><img src="Image/Survey_1.gif" width="0" height="16" id="bar_img" name="bar_img" align="absmiddle"></td>
        </tr>
      </table></td>
    <td><span id="bar_txt2" name="bar_txt2" style="font-size:12px; color:red;"></span><span id="bar_txt1" name="bar_txt1" style="font-size:12px">0</span><span style="font-size:12px">%</span></td>
  </tr>
</table>
<%
totalrec=Conn.Execute("Select count(*) from 0791idc_Download")(0)
totalpage=int(totalrec/DownInfo)
If (totalpage * DownInfo)<totalrec Then
totalpage=totalpage+1
End If
if totalpage<=1 then
call htmll("","",""&DownSortName&""&Separated&"1."&HTMLName&"","Download.asp","Page=",1,"","")
else
for i=1 to totalpage
call htmll("","",""&DownSortName&""&Separated&""&i&"."&HTMLName&"","Download.asp","Page=",i,"","")
next
end If
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from 0791idc_BigClass_down order by BigClassID desc"
rs.open sql,conn,1,1
If rs.eof Then 
	Class_Num=0
Else 
	Class_Num=1
do while not rs.eof
ID=rs("BigClassID")
BigClassName=rs("BigClassName")
totalrec=Conn.Execute("Select count(*) from 0791idc_Download where BigClassID="&ID&"")(0)
totalpage=int(totalrec/DownInfo)
If (totalpage * DownInfo)<totalrec Then
totalpage=totalpage+1
End If
if totalpage<=1 then
call htmll("","",""&DownSortName&""&Separated&""&ID&""&Separated&"1."&HTMLName&"","Download.asp","BigClassID=",ID,"Page=",1)
else
for i=1 to totalpage
call htmll("","",""&DownSortName&""&Separated&""&ID&""&Separated&""&i&"."&HTMLName&"","Download.asp","BigClassID=",ID,"Page=",i)
next
end If
Response.Write "<script>bar_img.width="&Fix((Class_Num/rs.recordcount)*300)&";"
Response.Write "bar_txt1.innerHTML=""成功生成"&Class_Num&"个分类的HTML静态页面。完成比例：" & formatnumber(Class_Num/rs.recordcount*100) & """;</script>"


  Set rssmall=Server.CreateObject("ADODB.Recordset")
sqlsmall="select * from 0791idc_SmallClass_down where  BigClassName='"&BigClassName&"' order by SmallClassID desc"
rssmall.open sqlsmall,conn,1,1
If rssmall.eof Then
	Class_Numsmall=0
Else
	Class_Numsmall=1
do while not rssmall.eof
IDsmall=rssmall("SmallClassID")


SmallClassName=rssmall("SmallClassName")
totalrecsmall=Conn.Execute("Select count(*) from 0791idc_Download where BigClassName='"&BigClassName&"' and SmallClassName='"&SmallClassName&"'")(0)

totalpagesmall=int(totalrecsmall/ProInfo)
If (totalpagesmall * ProInfo)<totalrecsmall Then
totalpagesmall=totalpagesmall+1
End If
if totalpagesmall<=1 then
call html2("","",""&DownSortName&""&Separated&""&ID&""&Separated&""&IDsmall&""&Separated&"1."&HTMLName&"","Download.asp","BigClassID=",ID,"SmallClassID=",IDsmall,"Page=",1)
else
for j=1 to totalpagesmall
call html2("","",""&DownSortName&""&Separated&""&ID&""&Separated&""&IDsmall&""&Separated&""&j&"."&HTMLName&"","Download.asp","BigClassID=",ID,"SmallClassID=",IDsmall,"Page=",j)
next
end If
Response.Write "<script>bar_img.width="&Fix((Class_Numsmall/rssmall.recordcount)*300)&";"
Response.Write "bar_txt1.innerHTML=""成功生成"&Class_Numsmall&"个分类的HTML静态页面。完成比例：" & formatnumber(Class_Numsmall/rssmall.recordcount*100) & """;</script>"

rssmall.movenext
Class_Numsmall=Class_Numsmall+1
Loop
end If 


Response.Flush
rs.movenext
Class_Num=Class_Num+1
Loop
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>