⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 down_upform.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Down_UpForm
KSCls.Execute()
Set KSCls = Nothing

Class Down_UpForm
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
		Public Sub Execute()
		Dim Path, InstallDir, DateDir
		
		 Path = KSCMS.ReturnChannelUpFilesDir(3)
		DateDir = Year(Now()) & Right("0" & Month(Now()), 2) & "/"
		Path = Path & "/DownUrl/" & DateDir
		'Call KSCMS.CreateListFolder(Path)
		
		
		Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		Response.Write "<title>上传文件</title>"
		Response.Write "<link rel=""stylesheet"" href=""../inc/admin_style.css"">"
		Response.Write "</head>"
		Response.Write "<body onselectstart=""return false;"" topmargin=""0"" leftmargin=""0"">"
		Response.Write "<div align=""center"">"
		Response.Write "  <table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""../Dialog/UpFileSave.asp"">"
		Response.Write "      <tr>"
		Response.Write "        <td width=""82%"" valign=""top"">"
		Response.Write "          系统提供的上传功能只适合上传比较小的软件（如ASP源代码压缩包）。如果软件比较大（2M以上），请先使用FTP上传，而不要使用系统提供的上传功能，以免上传出错或过度占用服务器的CPU资源。<BR>"
		Response.Write "            <br>"
		Response.Write "            <table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		Response.Write "              <tr style=""display:none"">"
		Response.Write "                <td height=""50""> &nbsp;&nbsp;设定下载地址数量"
		Response.Write "                  <input name=""UpFileNum"" type=""text"" value=""1"" size=""10"">"
		Response.Write "                <input type=""button"" name=""Submit42"" value=""确定设定"" onClick=""ChooseOption();""></td>"
		Response.Write "              </tr>"
		Response.Write "              <tr>"
		Response.Write "                <td height=""30"" id=""FilesList""> </td>"
		Response.Write "              </tr>"
		Response.Write "              <tr>"
		Response.Write "                <td height=""30"" align=""center""> "
		Response.Write "                  <input type=""submit"" id=""BtnSubmit""  name=""Submit"" value=""开始上传 "">"
		Response.Write "                  <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
		Response.Write "                  <input name=""UpLoadFrom"" value=""32"" type=""hidden"" id=""UpLoadFrom"">"
		Response.Write "                  <input type=""reset"" id=""ResetForm"" name=""Submit3"" value="" 重 填 "">"
		Response.Write "</td>"
		Response.Write "              </tr>"
		Response.Write "            </table>"
		Response.Write "        </td>"
		Response.Write "        <td width=""18%"" valign=""top""><br>"
		Response.Write " <fieldset style=""width:100%;"">"
		Response.Write "          <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		Response.Write "            <tr>"
		Response.Write "              <td height=""20"">"
		Response.Write "                <div align=""center"">命名规则</div></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""20"">"
		Response.Write "                <div align=""left"">"
		Response.Write "                  <input type=""radio"" name=""AutoReName"" value=""0"">"
		Response.Write "                  原名称不变</div></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""20"">"
		Response.Write "                <div align=""left"">"
		Response.Write "                  <input type=""radio"" name=""AutoReName"" value=""1"">"
		Response.Write "                  &quot; 副件&quot;+文件名</div></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""20"">"
		Response.Write "                <div align=""left"">"
		Response.Write "                  <input type=""radio"" name=""AutoReName"" value=""2"">"
		Response.Write "                  随机数+扩展名</div></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""20""><input type=""radio"" name=""AutoReName"" value=""3"">"
		Response.Write "              随机数+文件名</td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""20"">"
		Response.Write "                <div align=""left"">"
		Response.Write "                  <input type=""radio"" name=""AutoReName"" value=""4""  checked>"
		Response.Write "                  20060101121022</div></td>"
		Response.Write "            </tr>"
		 Response.Write "         </table>"
		Response.Write "        </fieldset></td>"
		Response.Write "      </tr>"
		Response.Write "      <tr>"
		Response.Write "        <td colspan=""2""> <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		Response.Write "            <tr>"
		Response.Write "              <td align=""center"">"
		 Response.Write "             </td>"
		Response.Write "            </tr>"
		Response.Write "          </table></td>"
		Response.Write "      </tr>"
		Response.Write "    </form>"
		Response.Write "  </table>"
		Response.Write "</div>"
		Response.Write "<div id=""LayerPrompt"" style=""position:absolute; z-index:1; left: 112px; top: 28px; background-color: #00CCFF; layer-background-color: #00CCFF; border: 1px none #000000; width: 254px; height: 63px; visibility: hidden;"">"
		Response.Write "  <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "    <tr>"
		Response.Write "      <td><div align=""right"">请稍等，正在上传文件</div></td>"
		Response.Write "      <td width=""35%""><div align=""left""><font id=""ShowArticleArea"" size=""+1""></font></div></td>"
		Response.Write "    </tr>"
		Response.Write "  </table>"
		Response.Write "</div>"
		Response.Write "</body>"
		Response.Write "</html>"
		Response.Write "<script language=""JavaScript"">" & vbCrLf
		Response.Write "function ChooseOption()" & vbCrLf
		Response.Write " {" & vbCrLf
		Response.Write "  var UpFileNum = document.all.UpFileNum.value;" & vbCrLf
		Response.Write "  if (UpFileNum=='')" & vbCrLf
		Response.Write "    UpFileNum=1;" & vbCrLf
		 Response.Write " var k,i,Optionstr,n=0;" & vbCrLf
		 Response.Write "     Optionstr = '<table width=""100%"" border=""0"" cellspacing=""5"" cellpadding=""0"">';"
		 Response.Write " for(k=0;k<(UpFileNum);k++)" & vbCrLf & vbCrLf
		 Response.Write "  { Optionstr = Optionstr+'<tr>';" & vbCrLf
		Response.Write "       n=n+1;" & vbCrLf
		 Response.Write "      if(UpFileNum==1)"
		 Response.Write "       Optionstr = Optionstr+'<td>上传下载文件&nbsp;</td><td>&nbsp;<input type=""file"" accept=""html"" size=""60"" name=""File'+n+'"">&nbsp;</td>';" & vbCrLf
		 Response.Write "      else"
		 Response.Write "       Optionstr = Optionstr+'<td>&nbsp;下&nbsp;载&nbsp;'+n+'</td><td>&nbsp;<input type=""file"" accept=""html"" size=""60"" name=""File'+n+'"">&nbsp;</td>';" & vbCrLf
		Response.Write "        if (n==UpFileNum) break;" & vbCrLf
		Response.Write "      Optionstr = Optionstr+'</tr>'" & vbCrLf
		Response.Write "  }" & vbCrLf
		Response.Write "    Optionstr = Optionstr+'</table>';" & vbCrLf
		Response.Write "    document.all.FilesList.innerHTML = Optionstr;" & vbCrLf
		Response.Write " }" & vbCrLf
		Response.Write "ChooseOption();" & vbCrLf
		Response.Write "</script>"
		End Sub
End Class
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -