|
<%
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(savepath)
If Err.Number <> 0 Then
Response.Write " 出现错误: " & Err.Number & "、" & Err.Description &"重新上传 "
response.End()
End If
If Err.Number = 8 Then
Response.Write "你上传的文件超过限制（"& UploadLimitSize/1024 &"M）重新上传 "
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 ""&file.filename &"("& file.size &") 格式不正确！重新上传 "
else
weizhi = UploadFilePath&file.filename
response.write "文件 "&file.filename &" 上传成功! 重新上传 "
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
%>
注意:
1.只允许上传.mp4,.flv,.wmv等常见网页视频格式的文件，否则会出错！2.要上传的视频文件必须是英文和数字命名，不能以中文命名，否则会出现乱码！ <%end if%> |