?? down_makesortall.asp
字號:
<%Admin="DownMake"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="1985.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成分類HTML頁</title>
<style>
body{font-size:12pt;line-height:140%}
</style>
</head>
<body>
<%
if request("type")<>"" then
if request("page")<>"" then
page=cint(request("page"))
D=request("D")
else
page=1
D=timer()
end if
mpage=1
mpage1=1
MaxPerPage=12
id=request("id")
ts=id&","
set rs=server.createobject("adodb.recordset")
if request("type")="all" then
rs.open ("select id,ts from downtype where ts like '"&request("ts")&"%' order by id desc"),conn,1,1
if not rs.eof then
rs.pagesize=1 '得到每頁數
mpage1=rs.pagecount '得到總頁數
rs.move (page-1)*1
do while not rs.eof
i=i+1
id=rs("id")
ts=rs("ts")
if i>=1 then exit do
rs.movenext
loop
rs.close
end if
end if
if id<>"" then
sql="select * from downtype where ts like '"&ts&"%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
sqqq=sqqq& ""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
rs.open ("select id from down where tid in("&sqqq&")"),conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage '得到每頁數
mpage=rs.pagecount '得到總頁數
else
mpage=1
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.write"<b><font color=""#4D9CC8"">"&page&"</font>/<font color=""#4D9CC8"">"&mpage1&"</font> 正在生成連接分類頁的Html頁,請等待......</b><span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
for ii=1 to mpage
m=m+1
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('down_makesort.asp?MaxPerPage="&MaxPerPage&"&tid="&id&"&page="&ii&"',onDownloadDone)</script>"
next
if page<mpage1 then
response.write"<meta http-equiv=""refresh"" content=""0;url='down_makesortall.asp?type="&request("type")&"&ts="&request("ts")&"&page="&page+1&"&m="&request("m")+m&"&D="&D&"'"">"
else
response.write"<meta http-equiv=""refresh"" content=""0;url='down_makesortall.asp?ok="&page&"&m="&request("m")+m&"&D="&D&"'"">"
end if
else
response.write"<b>操作成功:共生成分類<font color=""#4D9CC8"">"&request("ok")&"</font>個,頁面<font color=""#4D9CC8"">"&request("m")&"</font>個,總費時<font color=""#4D9CC8"">"&FormatNumber((timer()-request("D")),2)&"</font>秒,完成時間"&Now()&"</b>"
end if
%></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -