<%
sub lele()
'利用ASPUpload组件上传文件
'---------------------------------------------
dim upload,LoadPath
LoadPath="/lele/"
'设置上传路径
set upload=server.createobject("persits.upload.1")
upload.SetMaxSize 2*1024*1024,False
'大于2M时自动截断,自定义上传大小。。
upload.OverwriteFiles=False
'不允许有重名
upload.save server.mappath(LoadPath)
'开始上传文件
end sub
if request.QueryString("action")="lele" then
call lele()
response.write "上传成功"
response.write "<br><a href='/lele.asp'>继续上传</a>"
response.end
end if
%>
<form action="lele.asp?action=lele" method="post" enctype="multipart/form-data" name="form">
<input name="zbig" type="file" /> <input class="input" name="submit" type="submit" value="上传" />
</form>
[
本帖最后由 lele2007 于 2010-1-17 10:47 编辑 ]