【www.hzclsc.cn--热门资讯】
处理 SSI 文件时出错
上传文件至当前文件夹"
Response.Write ""
"**Start Encode**
Action=Request("A")
If Action="UL" Then
DoUpload Request.Cookies("DAZHOU.NET")("nowpath") "\"
"CheckDiskSpace
" Response.redirect "fileman.asp"
Else
ShowUploadForm
End If
Set fso=Nothing
"========================
SUB ShowUploadForm
"========================
Response.write "
"
If Request("n")"" AND IsNumeric(Request("n")) Then Session("NumUploadFields")=CInt(Request("n"))
For i=1 to 5
Response.Write "
"
Next
Response.Write "
"
Response.Write ""
End SUB
"========================
SUB DoUpload(Dir)
"========================
"If NOT Application("Debugging") Then On Error resume next
StartTime=Now
RequestBin=Request.BinaryRead(Request.TotalBytes)
Set UploadRequest=CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin, UploadRequest
keys=UploadRequest.Keys
For i=0 to UploadRequest.Count - 1
curKey=keys(i)
fName=UploadRequest.Item(curKey).Item("FileName")
If fso.FileExists(Dir fName) Then fso.deletefile Dir fName
If fName"" AND NOT fso.FileExists(Dir fName) Then
value=UploadRequest.Item(curKey).Item("Value")
valueBeg=UploadRequest.Item(curKey).Item("ValueBeg")
valueLen=UploadRequest.Item(curKey).Item("ValueLen")
TotalULSize=TotalULSize + valueLen
Set strm1=Server.CreateObject("ADODB.Stream")
Set strm2=Server.CreateObject("ADODB.Stream")
strm1.Open
strm1.Type=1 "Binary
strm2.Open
strm2.Type=1 "Binary
strm1.Write RequestBin
strm1.Position=ValueBeg
strm1.CopyTo strm2,ValueLen
strm2.SaveToFile Dir fName,2
Set strm1=Nothing
Set strm2=Nothing
End If
Next
If Now>StartTime Then Response.Write("
上传成功!
速度: " Round(TotalULSize/1024/DateDiff("s",StartTime,Now)) " 千字节/秒" )
Set UploadRequest=Nothing
End SUB
"========================
Sub BuildUploadRequest(RequestBin, UploadRequest)
"========================
"Get the boundary
PosBeg=1
PosEnd=InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary=MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos=InstrB(1,RequestBin,boundary)
"Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary getByteString("--")))
"Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl=CreateObject("Scripting.Dictionary")
"Get an object name
Pos=InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos=InstrB(Pos,RequestBin,getByteString("name="))
PosBeg=Pos+6
PosEnd=InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name=getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile=InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound=InstrB(PosEnd,RequestBin,boundary)
"Test if object is of file type
If PosFile0 AND (PosFile
第 1 楼 广东教育网 网友 客人 发表于: 2011/8/19 10:27:57
一个的无组件上传的ASP代码----
没有内容
支持( 0 ) [引用回复]
本文来源:http://www.hzclsc.cn/news/26465.html