用ASP实现多图片上传到指定目录并存储数据库

　2007-12-19 00:35:51　来源：WEB开发网　　　

核心提示： ’ response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>" iCount=iCount+

　　　　’ response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"

　　　　　iCount=iCount+1
　　end if
　　set file=nothing
next
if instr(arr(0),".")=0 and instr(arr(1),".")=0　and instr(arr(2),".")=0　then
　response.write "<font size=2>请先选择你要上传的图片　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if
if instr(arr(0),".")<>0 then
response.write "<script>opener.document.forms[0].myface.value=’" & arr(0) & "’</script>"
else
response.write "<script>opener.document.forms[0].myface.value=’</script>"
end if
if instr(arr(1),".")<>0 then
response.write "<script>opener.document.forms[0].myface1.value=’" & arr(1) & "’</script>"
else
response.write "<script>opener.document.forms[0].myface1.value=’</script>"
end if
if instr(arr(2),".")<>0 then
response.write "<script>opener.document.forms[0].myface2.value=’" & arr(2) & "’</script>"
else
response.write "<script>opener.document.forms[0].myface2.value=’ </script>"
end if
set upload=nothing　’删除此对象

session("upface")="done"

Htmend iCount&" 个文件上传结束!"

sub HtmEnd(Msg)
　　set upload=nothing
response.write "<html><head><meta　http-equiv=’Refresh’ content=’3 url=""javascript:window.close();""’></head><body><center><br><br>文件上传成功<br>谢谢你的支持！<br>本窗口三秒后自动关闭</center></body></html>"
　 response.end
end sub
%>
</body>
</html>
upload.inc
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim upfile_5xSoft_Stream

Class upload_5xSoft
　
dim Form,File,Version
　
Private Sub Class_Initialize
　　　　dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
　　　　dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
　　　　Version=""
　　　　if Request.TotalBytes<1 then Exit Sub
　　　　set Form=CreateObject("Scripting.Dictionary")
　　　　set File=CreateObject("Scripting.Dictionary")
　　　　set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")
　　　　upfile_5xSoft_Stream.mode=3
　　　　upfile_5xSoft_Stream.type=1
　　　　upfile_5xSoft_Stream.open
　　　　upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)