六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

一個老個寫的無組件上傳

發表時間：2023-08-13 來源：明輝站整理相關軟件相關文章人氣：

[摘要]<!--#include file="../lib/filelib.asp"--><%Response.write "<title>上傳文...
<!--#include file="../lib/filelib.asp"-->
<%
Response.write "<title>上傳文件至當前文件夾</title>"
Response.Write "<body bgcolor=""#D6D3CE"" leftmargin=""0"" topmargin=""0"" title = "" 請您遵守國家相關法律法規上傳文件。上傳前請殺毒，否則系統將會自動刪除此文件！"">"

'**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 "<Dir><form enctype=multipart/form-data name=fmupload method=Post action=Upload.asp?A=UL><br>"
If Request("n")<>"" AND IsNumeric(Request("n")) Then Session("NumUploadFields")=CInt(Request("n"))
For i=1 to 5
Response.Write "<INPUT type=file name=file"& i & " size=35><br>"
Next
Response.Write "<br><center><INPUT type=submit value=""開始上傳""> <INPUT type='button' value= '取消上傳' onclick='window.close()'> "
Response.Write "</form>"
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("<br><br><br><br><center>上傳成功！<br>速度: " & 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 PosFile<>0 AND (PosFile<PosBound) Then
'Get Filename, content-type and content of file
PosBeg=PosFile + 10
PosEnd=InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName=getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
FileName=Mid(FileName,InStrRev(FileName,"\")+1)
'Add filename to dictionary object
UploadControl.Add "FileName", FileName
Pos=InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg=Pos+14
PosEnd=InstrB(PosBeg,RequestBin,getByteString(chr(13)))
'Add content-type to dictionary object
ContentType=getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
'Get content of object
PosBeg=PosEnd+4
PosEnd=InstrB(PosBeg,RequestBin,boundary)-2
Value=FileName
ValueBeg=PosBeg-1
ValueLen=PosEnd-Posbeg
Else
'Get content of object
Pos=InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg=Pos+4
PosEnd=InstrB(PosBeg,RequestBin,boundary)-2
Value=getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
ValueBeg=0
ValueEnd=0
End If
UploadControl.Add "Value" , Value
UploadControl.Add "ValueBeg" , ValueBeg
UploadControl.Add "ValueLen" , ValueLen
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub

'====================================
Function getByteString(StringStr)
'====================================
For i=1 to Len(StringStr)
char=Mid(StringStr,i,1)
getByteString=getByteString & chrB(AscB(char))
Next
End Function

'====================================
Function getString(StringBin)
'====================================
getString =""
For intCount=1 to LenB(StringBin)
getString=getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
%>
主站蜘蛛池模板： 亚洲影视大全 | 日韩视频在线免费观看 | 青草视频入口 在线观看 | 小小bbwxxxx | 欧美亚洲激情 | 中文字幕视频不卡 | 又粗又大又硬又爽的免费视频 | 亚洲国产香蕉视频欧美 | 伊人精品视频在线观看 | 深爱五月网 | 四虎地址8848| 日日干干 | 亚洲日本国产 | 午夜国产精品福利在线观看 | 午夜精品久视频在线观看 | 中文字幕在线三浦惠理子 | 天天噜噜色 | 中文字幕一区二区在线观看 | 一二三四在线观看免费高清观看 | 神马热 | 婷婷九月色 | 日韩视频第1页 | 亚洲视频在线免费观看 | 亚洲成a人v| 日日夜夜狠狠 | 亚洲成人影院在线 | 天天操天天操天天操 | 亚洲国产精品成人午夜在线观看 | 最近2019中文字幕大全第二页 | 亚洲成a v人片在线观看 | 伊人国产在线视频 | 午夜看片在线 | 色综合久久丁香婷婷 | 亚洲精品在看在线观看 | 五月婷六月丁香 | 欧美亚洲国产精品久久久 | 亚洲国产日韩综合久久精品 | 青青青免费网站在线观看 | 中文亚洲| 永久国产 | 日本激情在线看免费观看视频 |