文件夹名称:
upload:[upload0.asp,upp.asp,uploadx.asp,imag:存放上传的图片/文件的文件夹]
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
upload0.asp
<form method="POST" action="upp.asp" enctype="multipart/form-data" >
<p> photo:
<input type="file" name="fruit" size="20">
<!--要同时上传多个文件就把上面的代码：<input type="file" name="fruit" size="20">多复制几次呵呵-->
<input type="submit" value="upload" name="subbutt">
<input type="reset" value="reset" name="rebutt">
</form> <%=request("file")%>
</html>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ upp.asp
<%@ LANGUAGE = VBScript %>
<%Server.ScriptTimeOut=100000 %>//设置上传文件的最大运行时间
<!-- #include file="uploadx.asp" -->
<%
dim filename
path = Server.MapPath("./imag/")
filename = SaveFile("fruit",path,6000,0)//设置上传文件的最大上限
If filename<>"" Then
If filename <> "*TooBig*" Then
Response.redirect "upload0.asp?message="& filename &" "
Else
Response.redirect "upload0.asp?message=文件超出限制太大(<=6000K)"
End IF
End IF
%>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ uploadx.asp
<%
Dim FormData, FormSize, Divider, bCrLf
FormSize = Request.TotalBytes
FormData = Request.BinaryRead(FormSize)
bCrLf = ChrB(13) & ChrB(10)
Divider = LeftB(FormData, InStrB(FormData, bCrLf) - 1)
Function SaveFile(FormFileField, Path, MaxSize, SavType)
Dim StreamObj,StreamObj1
Set StreamObj = Server.CreateObject("ADODB.Stream")
Set StreamObj1 = Server.CreateObject("ADODB.Stream")
StreamObj.Mode = 3
StreamObj1.Mode = 3
StreamObj.Type = 1
StreamObj1.Type = 1
SaveFile = ""
StartPos = LenB(Divider) + 2
FormFileField = Chr(34) & FormFileField & Chr(34)
If Right(Path,1) <> "\" Then
Path = Path & "\"
End If
Do While StartPos > 0
strlen = InStrB(StartPos, FormData, bCrLf) - StartPos
SearchStr = MidB(FormData, StartPos, strlen)
If InStr(bin2str(SearchStr), FormFileField) > 0 Then
FileName = bin2str(GetFileName(SearchStr,path,SavType))
If FileName <> "" Then
FileStart = InStrB(StartPos, FormData, bCrLf & bCrLf) + 4
FileLen = InStrB(StartPos, FormData, Divider) - 2 - FileStart
