www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_makesoftall.asp
<%Admin="DownMake"%>
<!--#include file="check.asp"-->
<!--#include file="RegNum.asp"-->
<!--#include file="mdb_path_down.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"4","a")
zj=replace(zj,"5","b")
zj=replace(zj,"6","c")
zj=replace(zj,"7","d")
zj=replace(zj,"8","e")
zj=replace(zj,"9","f")
zj=replace(zj,"0","g")
zj=replace(zj,"1","h")
zj=replace(zj,"2","i")
zj=replace(zj,"3","j")
zj=replace(zj,"s","40")
zj=replace(zj,"v","41")
zj=replace(zj,"k","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"o","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"m","89")
zj=replace(zj,"u","20")
zj=replace(zj,"l","21")
zj=replace(zj,"w","22")
zj=replace(zj,"q","23")
zj=replace(zj,"c","24")
zj=replace(zj,"a","25")
zj=replace(zj,"x","26")
zj=replace(zj,"j","27")
zj=replace(zj,"b","28")
zj=replace(zj,"r","29")
zj=replace(zj,"y","30")
zj=replace(zj,"t","31")
zj=replace(zj,"z","32")
zj=replace(zj,"n","33")
zj=replace(zj,"p","34")
zj=replace(zj,"g","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yregnum=zj*(len(zj)+len(name&"xoYuNews"))
Do While yregnum>10000000000
yregnum=yregnum-10000000000
loop
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")="xoYuStudioID" then
xoYuStudioID=replace(request("xoYuStudioID"),",",", ")
sql="select id from down where id in("&xoYuStudioID&")"
elseif request("type")="all" then
sql="select id from down order by date desc"
end if
if sql<>"" then
response.write"<b><font color=""#FF0000"">正在生成软件下载页的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")&"&xoYuStudioID="&request("xoYuStudioID")&"&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")="xoYuStudioID" 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=""#FF0000"">"&request("shu")&"</font>个,总费时<font color=""#FF0000"">"&FormatNumber((timer()-request("D")),2)&"</font>秒,完成时间"&Now()&""
end if
end if
response.write"</b><ul><li><form name=""xoYuStudio"" method=""post"" action=""down_makesoftall.asp?type=date"">按日期生成下载Html页:<select size=""1"" name=""Dyear"">"
for i=2005 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=""#FF0000"">"&shu&"</font>个)</form></li></ul>"
end if%>
</body></html>