progress1.asp

金路网络硬盘====特首快传系统 (Tso upload system 1.0) 使用ASP脚本编写,大量使用类封装,全面集成优化aspuplaod3.0批量上传

<!--#include file="../Conn.asp" -->
<!--#include file="../include/Inc.asp" -->
<!--#include file="fileconfig.asp"-->
<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<script>window.alert(""你提交的路径有误，禁止从站点外部提交数据！"");window.top.location='../index.asp';</script>"
response.end
end if
If Session("UserId")="" Then
response.write "<script>window.alert(""登陆超时，请重新登陆！"");window.top.location='../Login.asp';</script>"
Response.End
End If
%>
<% 
dim rs,sql,yonghu,uid
conn.close
call OpenDB()
'Set rs = Server.CreateObject("ADODB.Recordset")
uid=cint(Session("UserId"))
'Response.Write(uid)
sql="select UserName from [Tso_User] where UserID="&uid
rs=conn.execute(sql)
yonghu=rs("UserName")
 %>
<%
On Error Resume Next
Server.ScriptTimeOut=999999
if request("act")="upload" then
	dim folder,savepath
	savepath=Server.MapPath(UploadFilePath)
	CreateFolder(savepath)
	Set Upload=Server.CreateObject("Persits.Upload")
	Upload.SetMaxSize UploadLimitSize*1024, True
	Upload.OverwriteFiles = false
	if Request.QueryString("PID") = "" then
		Upload.ProgressID="010D60EB00C5AA4B"
	else
		Upload.ProgressID=Request.QueryString("PID")
	end if
	Count=Upload.Save()
	
For Each File in Upload.Files 
   Randomize
   NewName =CLng((9998-1000+1)*rnd)+1000
   OldNmae =trim(replace(File.FileName,File.ext,""))
   OldNmae=LCase(OldNmae)
   Fileoldname=LCase(File.FileName)
'   response.write trim(replace(File.FileName,File.ext,""))
   File.SaveAs savepath & "/" & OldNmae  & "-" & yonghu& NewName & LCase(File.ext) 
   Response.Write "----------祝贺你，文件上传成功----------<BR>" 
   Response.Write "原文件名: " & Fileoldname & "<BR>" 
   Response.Write "新文件名: " & File.FileName & "<BR>" 
'  Response.Write savepath & "<BR>"
'生成提取码的后4位数字    
	dim tsochar,tsocode
	tsocode=""
	tsochar="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
	tsoid=split(tsochar,",")
	tsocodenum=4
	for i=1 to tsocodenum
	Randomize
	tsocode=tsocode&my(Int((21*Rnd)))
	next
	
Dim Irs,Isql,F_Ext,F_Type

F_Ext=trim(replace(File.ext,".",""))

If F_Ext="jpg" or F_Ext="jpeg" or F_Ext="gif" or F_Ext="bmp" or F_Ext="png" or F_Ext="tif" or F_Ext="iff" Then
		F_Type=1
		ElseIF F_Ext="swf" or F_Ext="swi" Then
		F_Type=2
		ElseIF F_Ext="mp3" or F_Ext="m3u" or F_Ext="wav" or F_Ext="wma" or F_Ext="wax" or F_Ext="asx" or F_Ext="asf" or F_Ext="mp2" or F_Ext="au" or F_Ext="aif" or F_Ext="aiff" or F_Ext="mid" or F_Ext="midi" or F_Ext="rmi" Then
		F_Type=3
		ElseIF F_Ext="rm" or F_Ext="rmvb" or F_Ext="ram" or F_Ext="ra" or F_Ext="mov" Then
		F_Type=4
		ELSEIF F_Ext="mpg" or F_Ext="mpeg" or F_Ext="mpv" or F_Ext="mps" or F_Ext="m2v" or F_Ext="m1v" or F_Ext="mpe" or F_Ext="mpa" or F_Ext="avi" or F_Ext="wmv" or F_Ext="wm" or F_Ext="wmx" or F_Ext="wvx" Then
		F_Type=5
		ElSEIF F_Ext="asa" or F_Ext="asp" or F_Ext="bat" or F_Ext="cmd" or F_Ext="code" or F_Ext="com" or F_Ext="db" or F_Ext="dll" or F_Ext="doc" or F_Ext="exe" or F_Ext="fla" or F_Ext="ftp" or F_Ext="h" or F_Ext="hlp" or F_Ext="htm" or F_Ext="html" or F_Ext="inc" or F_Ext="info" or F_Ext="ini" or F_Ext="js" or F_Ext="log" or F_Ext="mdb" or F_Ext="pdf" or F_Ext="php" or F_Ext="pic" or F_Ext="ppt" or F_Ext="rar" or F_Ext="real" or F_Ext="torrent" or F_Ext="txt" or F_Ext="xls" or F_Ext="xml" or F_Ext="zip" Then
		F_Type=6
		End If
		Set IRs = Server.CreateObject("ADODB.Recordset")
		ISql="select * from [Tso_FilesList]"
		IRs.open ISql,conn,3,3
		IRs.addnew
		IRs("F_Type")=F_Type
		IRs("F_Ext")=F_Ext
		IRs("F_Path")=(trim(Replace(UploadFilePath,"../",""))&File.FileName)
		IRs("F_ContentType")=File.ContentType
		IRs("F_Size")=Upload.TotalBytes
		IRs("F_GetFileId")=(replace(replace(replace(replace(replace(now,"-",""),":",""),"上午",""),"下午","")," ","")&tsocode)
		IRs("F_AddTime")=now
		IRs("F_UserIp")=request.serverVariables("REMOTE_ADDR")
		IRs("F_UserID")=Session("UserId")
		IRs("F_Title")=Fileoldname
		IRs("F_Titles")="无备注信息"
		IRs.update
		IRs.Close
		Set IRs=Nothing
Next
response.write "<script>window.alert(""祝贺!您已经:\n\n成功的上传了 " & (count) & " 个文件!"");window.top.location='../Myfiles.asp';</script>"
	If Err.Number <> 0 Then
		Response.Write "<div style=""color:red;font-size:12px;"">出现错误: " & Err.Number & "、" & Err.Description &"<a href=""javascript:history.go(-1)"">重新上传</a></div>"
	End If
	If Err.Number = 8 Then
		Response.Write "<div style=""color:red;font-size:12px;"">你上传的文件超过限制（"& UploadLimitSize/1024 &"M）<a href=""javascript:history.go(-1)"">重新上传</a></div>" 
		response.end
	end if
	dim inputname
	dim size,rs_upfile
	For Each File in Upload.Files
		if not  CanUpload(File.ext) then
			File.Delete
			response.write "<div style=""color:red;font-size:12px;"">"&file.filename &"("& file.size &") 格式不正确！<a href=""javascript:history.go(-1)"">重新上传</a></div>"
		else
			response.write "<div style=""color:green;font-size:12px;""><!-- "&file.filename &"("& file.size &") --> 上传成功"%><a href="javascript:history.go(-1)">继续上传</a></div><%
		end if
	next

else
%>
<%
dim SPid,PID,barref
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
SPid = UploadProgress.CreateProgressID()
PID = "PID=" & SPid
barref = "framebar.asp?to=10&" & PID
%>
<SCRIPT LANGUAGE="JavaScript">
function ShowProgress()
{
  strAppVersion = navigator.appVersion;
  if (document.MyForm.FILE1.value != "" || document.MyForm.FILE2.value != "" || document.MyForm.FILE3.value != "")
  {
    if (strAppVersion.indexOf('MSIE') != -1 && strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)
    {
		if( strAppVersion.indexOf("Macintosh") != -1 && strAppVersion.charAt(0) >= 3 )
		{
			window.open('<% = barref %>&b=NN','','width=400,height=210', true);
		}
		else
		{
			winstyle = "dialogWidth=400px; dialogHeight:210px; center:yes";
			window.showModelessDialog('<% = barref %>&b=IE',null,winstyle);
		}
    }
    else
    {
      window.open('<% = barref %>&b=NN','','width=400,height=210', true);
    }
  }
  return true;
}
function chk()
{
	if (MyForm.FILE1.value=="")
	{
		alert("第一个上传文件不能为空,请从选择要上传的文件...");
		return false;
	}
}
</SCRIPT> 
<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data" 
		ACTION="?<% = PID %>&act=upload"
		OnSubmit="return ShowProgress();"> 
<table width="520" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" align="center" valign="middle"></td>
  </tr>
  <tr>
    <td height="32" align="center" valign="middle"><INPUT TYPE="FILE" SIZE="65" NAME="FILE1" style="border: 1px solid #BABABA; padding-top: 1; padding-bottom: 1; background-color: #F5F5F5">     </td>
  </tr>
  <tr>
    <td height="32" align="center" valign="middle"><INPUT TYPE="FILE" SIZE="65" NAME="FILE2" style="border: 1px solid #BABABA; padding-top: 1; padding-bottom: 1; background-color: #F5F5F5">    </td>
  </tr>
  <tr>
    <td height="32" align="center" valign="middle"><INPUT TYPE="FILE" SIZE="65" NAME="FILE3" style="border: 1px solid #BABABA; padding-top: 1; padding-bottom: 1; background-color: #F5F5F5">    </td>
  </tr>
  <tr>
    <td height="5" align="center" valign="middle"></td>
  </tr>
  <tr>
    <td height="32" align="center" valign="middle"><INPUT name="buttom" TYPE=SUBMIT style="border: 1px solid #BABABA; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #F5F5F5" id="buttom" onClick="return chk()" VALUE=" 开 始 上 传 "></td>
  </tr>
  <tr>
    <td height="10" align="center" valign="middle"></td>
  </tr>
</table>
</FORM>
<%end if%>
 
<%
set rs=nothing
CloseAll()
%>