我觉得 jQuery-File-Upload插件界面很棒,功能齐全!我非常喜欢它!但我的服务器是 Classic ASP iis... 现在我想使用 jQuery-File-Upload 来上传文件(图像文件)。请帮助我谢谢!
在我的服务器上,我有 3 个文件,上传器工作正常!现在我想添加像 index.asp 这样的 html5 文件。并使用jQuery-File-Upload basic-plus us 。我需要进度条、验证、预览图像和客户端图像大小调整。也许太复杂了。
也许我们只是编辑“jQuery-File-Upload/index.html”
<form id="fileupload" action="http://myserver.com/html5/upload.asp" method="POST" enctype="multipart/form-data">
我希望有人指导我。
请帮助我谢谢!对不起我的英语...
3 个文件 /html5/index.asp
<!DOCTYPE html>
<html>
<head>
<meta charset="gbk" />
<title>fileReader对象的事件先后顺序</title>
</head>
<body>
单文件上传<br />
<form action="upload.asp" method="post" enctype="multipart/form-data">
<p>
表单:<input type="text" name="form1" value="form1_text" /><br />
文件:<input type="file" id="file" name="file1" multiple />
<input type="submit" value="上传" />
</p>
<div name="result" id="result">
</div>
</form>
</body></html>
2 /html5/index.asp
<!--#include file="UpLoad_Class.asp"-->
<%
dim upload
set upload = new AnUpLoad
upload.Exe = "*"
upload.MaxSize = 2 * 1024 * 1024 '2M
upload.GetData()
if upload.ErrorID>0 then
response.Write upload.Description
else
dim file,savpath
savepath = "upload"
for each frm in upload.forms("-1")
response.Write frm & "=" & upload.forms(frm) & "<br />"
next
set file = upload.Files("file1")
if file.isfile then
result = file.saveToFile(savepath,0,true)
if result then
response.Write "文件'" & file.LocalName & "'上传成功,保存位置'" & server.MapPath(savepath & "/" & file.filename) & "',文件大小" & file.size & "字节<br />"
else
response.Write file.Exception & "<br />"
end if
end if
set file = upload.Files_Muti("file1",1)
if file.isfile then
result = file.saveToFile(savepath,1,true)
if result then
response.Write "文件'" & file.LocalName & "'上传成功,保存位置'" & server.MapPath(savepath & "/" & file.filename) & "',文件大小" & file.size & "字节<br />"
else
response.Write file.Exception & "<br />"
end if
end if
Response.Write "成功保存的文件个数:" & Upload.QuickSave("file1",savepath) & "个"
end if
set upload = nothing
%>
和 3 /html5/UpLoad_Class.asp 代码太多
<%
Dim StreamT
Class AnUpLoad
Private Form, Fils
Private vCharSet, vMaxSize, vSingleSize, vErr, vVersion, vTotalSize, vExe, vErrExe,vboundary, vLostTime, vMode, vFileCount,StreamOpened
private vMuti,vServerVersion
Public Property Let Mode(ByVal value)
vMode = value
End Property
Public Property Let MaxSize(ByVal value)
vMaxSize = value
End Property
Public Property Let SingleSize(ByVal value)
vSingleSize = value
End Property
Public Property Let Exe(ByVal value)
vExe = LCase(value)
vExe = replace(vExe,"*.","")
vExe = replace(vExe,";","|")
End Property
Public Property Let CharSet(ByVal value)
vCharSet = value
End Property
Public Property Get ErrorID()
ErrorID = vErr
End Property
Public Property Get FileCount()
FileCount = Fils.count
End Property
Public Property Get Description()
Description = GetErr(vErr)
End Property
Public Property Get Version()
Version = vVersion
End Property
Public Property Get TotalSize()
TotalSize = vTotalSize
End Property
Public Property Get LostTime()
LostTime = vLostTime
End Property
...................................ect ...i think you guys knows