我发现没有ASPUpload组件，这两种功能的解决方案，现在我写在这里的改进！谢谢您.
在上传组件上传组件，文件重命名，进度条的问题的解决方案！
4文件共享，1.asp，2.asp，bar.asp，framebar.asp
运行第一个文件：1.asp，执行上传操作！
复制代码代码如下所示：
<
进度条
昏暗的SPID，PID，barref
Set UploadProgress = Server.CreateObject (Persits.UploadProgress)
SPID = uploadprogress.createprogressid（）
PID =PID =SPID
barref =framebar。aspto = 10 PID
%>
<！——
（）函数中显示进度
加载进度条
{
strappversion = navigator.appversion；
如果（document.upfile.filename.value！
{
如果（strappversion.indexof（'msie）！= 1 strappversion.substr（strappversion.indexof（'msie '）+五）> 4）
{
winstyle =dialogwidth = 375px；dialogheight：175px；中心：是的；状态：没有；
window.showmodelessdialog（b = IE，窗口，winstyle）；
}
其他的
{
Window.open（b =网络'，' '，'width = 370，高度= 165，真的）；
}
}
返回true；
}
功能ispic（）{
VaR的温度；
无功extlist = 。JPG，GIF，BMP，PNG。SWF ； / /客户端，检测文件的扩展名，所以上传完成后，只有文件类型错误报告！
var文件名= upfile.filename.value；
无功the_ext = filename.substr（filename.lastindexof（，）+ 1）。ToLowerCase（）；
如果（ExtList.indexOf（the_ext）= = 1）{
警报（）没有图片，请选择图片文件！；
返回false；
}
返回true；
}
U3000 U3000
U3000 U3000
U3000 U3000
名称=不管是依靠onsubmit =回归中显示进度（）；>
U3000 U3000
选择要上载的文件：
U3000 U3000
U3000 U3000
U3000 U3000
U3000 U3000
U3000 U3000
2.asp
复制代码代码如下所示：
<
设置上传= server.createobject（很。上传）
防止重写
upload.overwritefiles = false
我们使用内存上传，文件大小限制，单位：B
upload.setmaxsize 1 * 1024 * 1024 * 1024，真的
如果Request.QueryString（PID）= 然后
上传。progressid =010d60eb00c5aa4b
其他的
上传。progressid = request.querystring（PID）
最后如果
下次继续出错
保存到内存被保存到内存中。
保存上传。
如果错误＝8，那么
答：写文件大于1G
最后如果
对于文件名，以系统时间+随机数作为文件名
昏暗的rannum
随机化
rannum = int（999 * Rnd）
CreateName =年（现在）月（现在）天（现在）小时（现在）分钟（现在）二（现在）
新名称= createname
保存文件路径
articlepath = server.mappath（upload1 ）
对于上传中的每个文件。
fileext = Lcase（取代（file.ext，，
服务器端判断文件类型和动态网络论坛
如果CheckFileExt（fileext）= false
response.write 文件格式不正确，或不能为空{ }重新上传。
其他的
file.saveas articlepath / 的名称file.ext
响应。写新的名字：file.filename
最后如果
下一个
%>
<
服务器端判断文件类型和动态网络论坛
私有函数checkfileext（fileext）
如果fileext = 或IsEmpty（fileext）然后
checkfileext = false
退出功能
最后如果
如果Lcase（fileext）=ASP或Lcase（fileext）=ASA或Lcase（fileext）=ASPX
checkfileext = false
退出功能
最后如果
如果Lcase（fileext）=GIF或Lcase（fileext）=JPG或Lcase（fileext）=PNG=
checkfileext =真
退出功能
其他的
checkfileext = false
最后如果
端功能
%>