ASP技巧：asp教程之带进度条的上传效果

今天在网上看到这个asp上传带进度条的程序，试了一下，效果不错，现在放到这里来与大家共享。

< %
'此例子文档编码都是UTF-8,如果是其他编码的系统，请将编码转换为相应的编码，不然表单获取数据可能会乱码
Dim objUpload,opt
Dim xmlPath
Dim fileFormName,objFile,counter
opt = request.QueryString("opt")
If opt = "Upload" Then
xmlPath =Server.MapPath(request.QueryString("xmlPath"))'将虚拟路径转换为实际路径
Set objUpload=new SundyUpload '建立上传对象
objUpload.UploadInit xmlPath,"utf-8"
counter = 1
Response.Write("普通表单：" & objUpload.Form("normalForm") & "

")'获取表单数据
For Each fileFormName In objUpload.objFile
Set objFile=objUpload.objFile(fileFormName)
fileSize = objFile.FileSize
strTemp= objFile.FilePath
Response.Write strTemp
fileName = mid(strTemp,InStrRev(strTemp, "\")+1)
'g0=
f0=replace(replace(replace(now(),":","")," ",""),"-","")&"."&g0

If fileSize > 0 Then
Response.Write("File Size:" & fileSize & "
")
Response.Write("File Name:" & objFile.FilePath & "
")

t=Split(filename,".")
t1=t(1)
filename=Replace(Replace(Replace(now,":","")," ",""),"-","")&"."&t1

' Response.Write("File Description:" & objUpload.Form("fileDesc" & counter) & "

")
objFile.SaveAs Server.MapPath(".") & "\upload\" & fileName
Response.Write "Save at: "&Server.MapPath(".") & "\upload\" & fileName & "

"
End If
counter = counter + 1
Next

End If
'为上载进度条数据文件（XML文件指定虚拟路径）
'最好是随机的，因为可能多个人同时上载，需要不同的进度数据
'这个路径需要在提交的时候传入上载组件中，以便在上载过程中更改进度数据
'客户端使用Javascript来读取此XML文件，显示进度
xmlPath = "upload/" & Timer & ".xml"
% >


http-equiv="Content-Type" content="text/html; charset=utf-8" />