xu_upload.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="xu_class.asp"-->
<%
Dim myUpload
Set myUpload = new XUpload_class

myUpload.SetOverlayMode(false) ' 覆盖同名文件
myUpload.InitParameters()

If myUpload.IsUploadFile Then
	' 将文件保存在文件夹 ../uploadfile/[subpath] 下
	Dim filename,filename2
	Dim namearray,count,i
	Dim fileinfo,countinfo
	dim mychar,my,mycodenum,mycode,F_GetFileId,F_Ext,F_Type
	mychar="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"
	my=split(mychar,",")
	mycodenum=4
	for i=1 to mycodenum
	Randomize
	mycode=mycode&my(Int((21*Rnd)))
	next
	filename2=myUpload.Form("xu_filename")
	filename = myUpload.CreateFileName("../UpLoadFiles",myUpload.Form("xu_subpath"),myUpload.Form("xu_filename"))
	If filename <> "" Then filename = myUpload.SaveToFile(filename)
	If filename <> "" Then
		filename = myUpload.CreateFileURL("UpLoadFiles",myUpload.Form("xu_subpath"),filename)
		' 输出：文件名 # 文件类型 # 文件大小
		myUpload.Out(mycode&"#"&filename2&"#"&filename)
		myUpload.OutErr("#" & myUpload.Form("xu_filetype"))
		myUpload.OutErr("#" & myUpload.Form("xu_filesize"))
	End If
End If
%>