📄 creatkey.asp
字号:
<%Admin="DownAdd"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批量自动生成软件索引</title>
<style type="text/css">
<!--
BODY
{
FONT-SIZE: 12PX;
COLOR: #000000;
FONT-FAMILY: 宋体;
BACKGROUND-COLOR: #DADAE9;
SCROLLBAR-FACE-COLOR: #EAEAF2;
SCROLLBAR-HIGHLIGHT-COLOR: #FFFFFF;
SCROLLBAR-SHADOW-COLOR: #9395C0;
SCROLLBAR-3DLIGHT-COLOR: #F3F3F8;
SCROLLBAR-ARROW-COLOR: #9395C0;
SCROLLBAR-TRACK-COLOR: #F3F3F8;
SCROLLBAR-DARKSHADOW-COLOR: #F3F3F8;
/*BACKGROUND-IMAGE: URL(images/admin_bg.gif);*/
}
TD{
FONT-FAMILY:宋体; FONT-SIZE: 12PX; LINE-HEIGHT: 15PX; LINE-HEIGHT: 150%;TABLE-LAYOUT:FIXED;WORD-BREAK:BREAK-ALL
}
TD.FORUMHEADERBACKGROUNDALTERNATE
{
BACKGROUND-COLOR: #9395C0;
COLOR:#FFFFFF
}
A.TABLETITLELINK {
COLOR: #FFFFFF;
TEXT-DECORATION: NONE;
}
A.TABLETITLELINK:HOVER {
COLOR: #FFFFFF;
TEXT-DECORATION: UNDERLINE;}
TD.BORDER1
{
BACKGROUND-COLOR:#F3F3FA;
}
TD.FORUMROW
{
BACKGROUND-COLOR:#F8F8F8;
}
TD.FORUMROWHIGHLIGHT
{
BACKGROUND-COLOR: #F6F6FB;
}
.TABLEBORDER
{
BORDER: 1PX #5C609E SOLID ;
BACKGROUND-COLOR: #FFFFFF;
FONT: 12PX;
WIDTH:96%;
}
.TABLEBORDER1
{
BORDER: 1PX #5C609E SOLID ;
BACKGROUND-COLOR: #FFFFFF;
FONT: 12PX;
WIDTH:70%;
}
TD.BODYTITLE
{
BACKGROUND-IMAGE: url(images/admin_bg_2.gif)
}
TH
{
BACKGROUND-IMAGE: URL(images/admin_bg_1.gif);
BACKGROUND-COLOR: #4E5187;
COLOR: WHITE;
FONT-SIZE: 12PX;
FONT-WEIGHT:BOLD;
HEIGHT: 25;
}
INPUT {
FONT-FAMILY:Verdana, Arial, Helvetica, sans-serif,宋体; TEXT-DECORATION: NONE; BORDER-TOP-WIDTH: 1PX; BORDER-LEFT-WIDTH: 1PX; FONT-SIZE: 12PX; BORDER-BOTTOM-WIDTH: 1PX; BORDER-RIGHT-WIDTH: 1PX
}
TEXTAREA {
FONT-FAMILY:Verdana, Arial, Helvetica, sans-serif,宋体; TEXT-DECORATION: NONE; BORDER-TOP-WIDTH: 1PX; BORDER-LEFT-WIDTH: 1PX; FONT-SIZE: 12PX; BORDER-BOTTOM-WIDTH: 1PX; BORDER-RIGHT-WIDTH: 1PX
}
SELECT {
FONT-FAMILY:Verdana, Arial, Helvetica, sans-serif,宋体; BORDER-TOP-WIDTH: 1PX; BORDER-LEFT-WIDTH: 1PX; FONT-SIZE: 12PX; BORDER-BOTTOM-WIDTH: 1PX; BORDER-RIGHT-WIDTH: 1PX
}
SPAN {
FONT-FAMILY:Verdana, Arial, Helvetica, sans-serif,宋体; FONT-SIZE: 12PX; POSITION: STATIC
}
img {
filter:Alpha(opacity:100); chroma(color=#FFFFFF)
}
.BUTTON {
BACKGROUND-IMAGE:URL(images/bbk.gif);
BACKGROUND-COLOR:#FFFFFF;
HEIGHT=20;
FONT-SIZE:12PX;
BORDER:#666666 1PX SOLID
}
.BUTTONMAIN {
BACKGROUND-IMAGE:URL(images/bbk_main.gif);
BACKGROUND-COLOR:#FFFFFF;
HEIGHT=22;
FONT-SIZE:12PX;
BORDER:#585A67 1PX SOLID
}
.COPYRIGHT {
PADDING-RIGHT: 1PX; BORDER-TOP: #6C70AA 1PX DASHED; PADDING-LEFT: 1PX; PADDING-BOTTOM: 1PX; FONT: 11PX VERDANA,ARIAL,HELVETICA,SANS-SERIF; COLOR: #6C70AA; PADDING-TOP: 1PX; TEXT-DECORATION: NONE
}
-->
</style>
</head>
<body>
<%
dim Ds,SkyIdStr,SkyIdEnd,SkyIdNow
Ds=timer()
SkyIdStr=clng(request("SkyIdStr"))
SkyIdEnd=clng(request("SkyIdEnd"))
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
if makeskysoft="yes" then
Response.Write "<table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
Response.Write "<tr>"
Response.Write "<th width=""100%"" class=""tableHeaderText"" colspan=2 height=25>正在生成软件索引,请等待......"
Response.Write "</th>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td class=""forumrow"" colspan=2 align=""center"" valign=""middle"">"
response.write"<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 "creatkey.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='creatkey.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>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
end if
Sub MakeHtml()
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('creatindexkey.asp?id="&id&"',onDownloadDone)</script>"
end Sub
else
'shu=50
Response.Write "<table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
Response.Write "<tr>"
Response.Write "<th width=""100%"" class=""tableHeaderText"" colspan=2 height=25>批量生成软件索引"
Response.Write "</th>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td class=""forumrow"" colspan=2 align=""center"" valign=""middle"">"
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=""creatkey.asp?type=all"">软件编号的超始ID<input size=8 name=""SkyIDStr"" value=""0"">到终止ID<input size=8 name=""SkyIDEnd"" value=""0""><input name=""change"" class=""buttonface"" value=""确认"" type=""submit""></form>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
end if%>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -