admin_skycn.asp
来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 93 行
ASP
93 行
<!--#include file="setup.asp"-->
<%
Server.ScriptTimeout = 9999
NC_Admin.AdminChk = "19"
NC_Admin.Check
DownsysClass.admin_header
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批量自动生成本地数据库-天蓝</title>
<link rel="stylesheet" href="Style.css" type="text/css"></head>
<body onload="window.document.forms[0].SkyIDStr.focus()">
<%
dim Ds,SkyIdStr,SkyIdEnd,SkyIdNow,makeskysoft
Ds=timer()
SkyIdStr=clng(request("SkyIdStr"))
SkyIdEnd=clng(request("SkyIdStr"))
SkyIdNow=request("SkyIdNow")
if request("type")="all" then
if skyidstr<1 or skyidend<1 or SkyIdStr>SkyIdEnd then
'response.write "开始和结束ID不能为空,且结束ID必须大于开始ID"
response.write "<script language=vbscript>"& vbcrlf
response.write "aaa=msgbox(""开始和结束ID不能为空,且结束ID必须大于开始ID"",vbOKOnly)"& vbcrlf
response.write "</script>"
else
makeskysoft="yes"
end if
end if
dim p,D,allshu,MaxPerPage,SkyIDNowPage,Sshu,Tshu,i,id
if makeskysoft="yes" then
response.write"<b><font color=""#FF0000"">正在生成天空软件下载的本地数据库,请等待......</font></b><BR><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=10
'mpage=3 '得到总页数
allshu=SkyIdEnd-SkyIdStr '得到总数
SkyIDNowPage=p*MaxPerPage+SkyIdStr
if SkyIDNowPage=>allshu+SkyIdStr then SkyIDNowPage=allshu+SkyIdStr
for id=(p-1)*MaxPerPage+SkyIdStr to SkyIDNowPage
i=i+1
call MakeHtml()
if i>=MaxPerPage then exit for
next
Sshu=MaxPerPage*p-MaxPerPage+SkyIdStr
Tshu=Sshu+i-1
if allshu+SkyIdStr<Sshu then
response.redirect "admin_skycn.asp?type=ok&SkyIdStr="&request("SkyIdStr")&"&SkyIdEnd="&request("SkyIdEnd")&"&shu="&request("shu")&"&D="&d&"&p="&p+1&""
response.end
else
response.write"<meta http-equiv=""refresh"" content=""0;url='admin_skycn.asp?type="&request("type")&"&SkyIdStr="&request("SkyIdStr")&"&SkyIdEnd="&request("SkyIdEnd")&"&shu="&Tshu&"&D="&D&"&p="&p+1&"'"">"
response.write"<B><BR>您选择的是从<font color=ff0000>"&request("SkyIdStr")&"</font>-<font color=ff0000>"&request("SkyIdEnd")&"</font> 共<font color=ff0000>"&allshu&"</font>个软件"
response.write"<br>正在生成:第("&Sshu&"-"&Tshu&")个"
response.write"<br>已用时("&FormatNumber((timer()-request("D")),2)&")秒</B>"
end if
Sub MakeHtml()
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('SoftWrite.asp?id="&id&"',onDownloadDone)</script>"
end Sub
else
'shu=50
response.write"<b>批量生成天空下载的本地数据库信息"
if request("type")="ok" then
response.write"<br><br>操作成功:共生成<font color=""#FF0000"">"&request("SkyIdEnd")-request("SkyIdStr")&"</font>个软件的本地数据库信息<BR>总费时<font color=""#FF0000"">"&FormatNumber((timer()-request("D")),2)&"</font>秒,完成时间"&Now()&""
end if
response.write"<form name=pid method=""post"" action=""admin_skycn.asp?type=all"">天空站软件编号的超始ID<input size=8 name=""SkyIDStr"">到终止ID<input size=8 name=""SkyIDEnd"" value=""0""><input name=""change"" class=""buttonface"" value=""确认"" type=""submit""></form>"
response.write "<a href=""SkycnSoftMakeNew.asp?newid=0"">全部软件更新</a> ｜ "
response.write "<a href=""SkycnSoftMakeNew.asp?newid=1"">国产软件更新</a> ｜ "
response.write "<a href=""SkycnSoftMakeNew.asp?newid=2"">国外软件更新</a> ｜ "
response.write "<a href=""SkycnSoftMakeNew.asp?newid=3"">汉化软件更新</a><br><br>"
response.write"版权所有 <a href=http://www.tldown.com>天蓝下载</a> 程序：天蓝"
end if%>
</body></html>
<%DownsysClass.admin_footer
NothingObject%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?