📄 down_makesoftall.asp
字号:
<%Admin="DownMake"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="zcm.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批量生成HTML - MyFlash管理中心</title>
<style>
body{font-size:12pt;line-height:140%}
</style>
</head>
<body>
<%
Ds=timer()
set rs=server.createobject("adodb.recordset")
if request("type")="date" then
if request("Dday")<>"" then
Ddate=request("Dyear")&"-"&request("Dmonth")&"-"&request("Dday")
sql="select id from down where date like '"&Ddate&"%'"
else
Ddate=""&request("Dyear")&"-"&request("Dmonth")&"-"
sql="select id from down where date like '"&Ddate&"%'"
end if
elseif request("type")="new" then
if request("newshu")>0 then
sql="select top "&cint(request("newshu"))&" id from down order by date desc"
end if
elseif request("type")="list" then
if request("ts")<>"" then
rs.open ("select * from downtype where ts like '"&request("ts")&"%'"),conn,1,1
if not rs.eof then
do while not rs.eof
sqqq=sqqq& ""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
sql="select id from down where tid in ("&sqqq&")"
end if
elseif request("type")="reg" then
sql="select id from down where reg<>''"
elseif request("type")="error" then
sql="select id from down where error>0"
elseif request("type")="JyDownID" then
JyDownID=replace(request("JyDownID"),",",", ")
sql="select id from down where id in("&JyDownID&")"
elseif request("type")="all" then
sql="select id from down order by date desc"
end if
if sql<>"" then
response.write"<b><font color=""#4D9CC8"">正在生成作 品连接页的Html页,请等待......</font></b><span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
if request("p")<>"" then
p=cint(request("p"))
D=request("D")
else
p=1
D=Ds
end if
MaxPerPage=100
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
allshu=rs.recordcount '得到总数
rs.move (p-1)*MaxPerPage
do while not rs.eof
i=i+1
call MakeHtml()
if i>=MaxPerPage then exit do
rs.movenext
loop
end if
rs.close
Sshu=MaxPerPage*p-MaxPerPage+1
Tshu=Sshu+i-1
if allshu<Sshu then
set rs=nothing
conn.close
set conn=nothing
response.redirect "down_makesoftall.asp?type=ok&type2="&request("type")&"&shu="&request("shu")&"&D="&d&"&p="&p+1&""
response.end
else
response.write"<meta http-equiv=""refresh"" content=""0;url='down_makesoftall.asp?type="&request("type")&"&JyDownID="&request("JyDownID")&"&ts="&request("ts")&"&newshu="&request("newshu")&"&Dyear="&request("Dyear")&"&Dmonth="&request("Dmonth")&"&Dday="&request("Dday")&"&shu="&Tshu&"&D="&D&"&p="&p+1&"'"">"
response.write"<br>正在生成:第("&Sshu&"-"&Tshu&")个 共"&allshu&"个"
end if
Sub MakeHtml()
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('down_makesoft.asp?id="&rs("id")&"',onDownloadDone)</script>"
end Sub
else
sql="select count(*) from down"
rs2=conn.execute(sql)
shu=rs2(0)
set rs=nothing
conn.close
set conn=nothing
response.write"<b>批量生成HTML下载页"
if request("type")="ok" then
if request("type2")="JyDownID" then
response.write("<script>alert('成功:共生成页面("&request("shu")&")个,总费时("&FormatNumber((timer()-request("D")),2)&")秒,完成时间("&Now()&")\n\n点击[确定]返回');history.go(-1)</script>")
response.end
else
response.write"<br><br>操作成功:共生成页面<font color=""#4D9CC8"">"&request("shu")&"</font>个,总费时<font color=""#4D9CC8"">"&FormatNumber((timer()-request("D")),2)&"</font>秒,完成时间"&Now()&""
end if
end if
response.write"</b><ul><li><form name=""JyDown"" method=""post"" action=""down_makesoftall.asp?type=date"">按日期生成下载Html页:<select size=""1"" name=""Dyear"">"
for i=2001 to year(date())
response.write"<option value="""&i&""""
if i=year(date()) then
response.write" selected"
end if
response.write">"&i&"</option>"
next
response.write"</select>-<select size=""1"" name=""Dmonth"">"
for i=1 to 12
response.write"<option value="""&i&""""
if i=month(date()) then
response.write" selected"
end if
response.write">"&i&"</option>"
next
response.write"</select>-<select size=""1"" name=""Dday""><option value=""""> </option>"
for i=1 to 31
response.write"<option value="""&i&""""
if i=day(date()) then
response.write" selected"
end if
response.write">"&i&"</option>"
next
response.write"</select> <input name=""change"" class=""buttonface"" value=""确认"" type=""submit""></form></li><li><form name=pdd method=""post"" action=""down_makesoftall.asp?type=new"">"
response.write"生成最新<input size=8 name=""newshu"" value=""0"">个作 品下载Html页<input name=""change"" class=""buttonface"" value=""确认"" type=""submit""></form></li><li>"
response.write"<form name=pid method=""post"" action=""down_makesoftall.asp?type=all"">生成所有作 品下载Html页<input name=""change"" class=""buttonface"" value=""确认"" type=""submit""> (共<font color=""#4D9CC8"">"&shu&"</font>个)</form></li></ul>"
end if%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -