<!#include FILE="uploadinc">
<%
dim uploadfileformNameformPathiCountfilenamefileExt
set upload=new upload_xSoft 建立上传对象
formPath="uploadimages/"
在目录后加(/)
if right(formPath)<>"/" then formPath=formPath&"/"
iCount=
for each formName in uploadfile 列出所有上传了的文件
set file=uploadfile(formName) 生成一个文件对象
if filefilesize< then
responsewrite "<font size=><br>请先选择你要上传的图片[ <a href=# onclick=historygo()>重新上传</a> ]</font>"
responseend
end if
if filefilesize> then
responsewrite "<font size=><br>图片大小超过了限制[ <a href=# onclick=historygo()>重新上传</a> ]</font>"
responseend
end if
fileExt=lcase(right(filefilename))
if fileEXT<>"jpg" and fileEXT<>"gif" then
responsewrite "<font size=><br>文件格式只能为jpg和gif格式[ <a href=# onclick=historygo()>重新上传</a> ]</font>"
responseend
end if
randomize
ranNum=int(*rnd)+
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&fileExt
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&fileExt
if fileFileSize> then 如果 FileSize > 说明有文件数据
fileSaveAs Servermappath(filename) 保存文件
responsewrite "<script>parentformimgvalue="&FileName&"</script>"
iCount=iCount+
end if
set file=nothing
next
set upload=nothing 删除此对象
ResponseWrite "<img src="&"/UpLoad/UpLoadImages/"&FileName&" onload =DrawImage(this)>"
responseend
%>
下面是uploadinc的代码
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim upfile_xSoft_Stream
Class upload_xSoft
dim FormFileVersion
Private Sub Class_Initialize
dim iStartiFileNameStartiFileNameEndiEndvbEnteriFormStartiFormEndtheFile
dim strDivmFormNamemFormValuemFileNamemFileSizemFilePathiDivLenmStr
if RequestTotalBytes< then Exit Sub
set Form=CreateObject("ScriptingDictionary")
set File=CreateObject("ScriptingDictionary")
set upfile_xSoft_Stream=CreateObject("AdodbStream")
upfile_xSoft_Streammode=
upfile_xSoft_Streamtype=
upfile_xSoft_Streamopen
upfile_xSoft_Streamwrite RequestBinaryRead(RequestTotalBytes)
vbEnter=Chr()&Chr()
iDivLen=inString(vbEnter)+
strDiv=subString(iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStartstrDiv)
while iFormStart < iFormEnd
iStart=inString(iFormStart"name=""")
iEnd=inString(iStart+"""")
mFormName=subString(iStart+iEndiStart)
iFileNameStart=inString(iEnd+"filename=""")
if iFileNameStart> and iFileNameStart<iFormEnd then
iFileNameEnd=inString(iFileNameStart+"""")
mFileName=subString(iFileNameStart+iFileNameEndiFileNameStart)
iStart=inString(iFileNameEnd+vbEnter&vbEnter)
iEnd=inString(iStart+vbEnter&strDiv)
if iEnd>iStart then
mFileSize=iEndiStart
else
mFileSize=
end if
set theFile=new FileInfo
theFileFileName=getFileName(mFileName)
theFileFilePath=getFilePath(mFileName)
theFileFileSize=mFileSize
theFileFileStart=iStart+
theFileFormName=FormName
fileadd mFormNametheFile
else
iStart=inString(iEnd+vbEnter&vbEnter)
iEnd=inString(iStart+vbEnter&strDiv)
if iEnd>iStart then
mFormValue=subString(iStart+iEndiStart)
else
mFormValue=""
end if
formAdd mFormNamemFormValue
end if
iFormStart=iformEnd+iDivLen
iFormEnd=inString(iformStartstrDiv)
wend
End Sub
Private Function subString(theStarttheLen)
dim icstemp
upfile_xSoft_StreamPosition=theStart
stemp=""
for i= to theLen
if upfile_xSoft_StreamEOS then Exit for
c=ascB(upfile_xSoft_StreamRead())
If c > Then
if upfile_xSoft_StreamEOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(upfile_xSoft_StreamRead()))&ChrB(c)))
i=i+
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function
Private Function inString(theStartvarStr)
dim ijbttheLenstr
InString=
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to upfile_xSoft_StreamSizetheLen
if i>upfile_xSoft_Streamsize then exit Function
upfile_xSoft_StreamPosition=i
if AscB(upfile_xSoft_StreamRead())=AscB(midB(Str)) then
InString=i
for j= to theLen
if upfile_xSoft_StreamEOS then
inString=
Exit for
end if
if AscB(upfile_xSoft_StreamRead())<>AscB(MidB(Strj)) then
InString=
Exit For
end if
next
if InString<> then Exit Function
end if
next
End Function
Private Sub Class_Terminate
formRemoveAll
fileRemoveAll
set form=nothing
set file=nothing
upfile_xSoft_Streamclose
set upfile_xSoft_Stream=nothing
End Sub
Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPathInStrRev(FullPath ""))
Else
GetFilePath = ""
End If
End function
Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPathInStrRev(FullPath "")+)
Else
GetFileName = ""
End If
End function
Private function toByte(Str)
dim iiCodeciLowiHigh
toByte=""
For i= To Len(Str)
c=mid(Stri)
iCode =Asc(c)
If iCode< Then iCode = iCode +
If iCode> Then
iLow = Left(Hex(Asc(c)))
iHigh =Right(Hex(Asc(c)))
toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function
End Class
Class FileInfo
dim FormNameFileNameFilePathFileSizeFileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize =
FileStart=
FormName = ""
End Sub
Public function SaveAs(FullPath)
dim drErrorChari
SaveAs=
if trim(fullpath)="" or FileSize= or FileStart= or FileName="" then exit function
if FileStart= or right(fullpath)="/" then exit function
set dr=CreateObject("AdodbStream")
drMode=
drType=
drOpen
upfile_xSoft_Streamposition=FileStart
upfile_xSoft_Streamcopyto drFileSize
drSaveToFile FullPath
drClose
set dr=nothing
SaveAs=
end function
End Class
</SCRIPT>
