´úÂë·ÖÎö

ÌýÓê·ÉÑï

Çë½Ì¸÷λ¸ßÊÖ,ÎÒÏëÓÃÒÔÏ´úÂëÔÚASPÒ³ÃæÉÏ´«¸÷ÀàÎļþ,µ«ÉÏ´«¶¼²»³É¹¦.¾¿¾¹ÒÔÏ´úÂëÓкδíÎóÄØ?Çë°ïæ,ÏȸÐлÄãÃÇ!
<%
  ExtName = "jpg,gif,png,txt,rar,zip,doc,exe"    'ÔÊÐíÀ©Õ¹Ãû
  SavePath = "upload"          '±£´æ·¾¶
  If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" 'ÔÚĿ¼ºó¼Ó(/)
  CheckAndCreateFolder(SavePath)
  UpLoadAll_a = Request.TotalBytes 'È¡µÃ¿Í»§¶ËÈ«²¿ÄÚÈÝ
  If(UpLoadAll_a>0) Then
    Set UploadStream_c = Server.CreateObject("ADODB.Stream")
    UploadStream_c.Type = 1
    UploadStream_c.Open
    UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
    UploadStream_c.Position = 0

    FormDataAll_d = UploadStream_c.Read
    CrLf_e = chrB(13)&chrB(10)
    FormStart_f = InStrB(FormDataAll_d,CrLf_e)
    FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

    Set FormStream_h = Server.Createobject("ADODB.Stream")
    FormStream_h.Type = 1
    FormStream_h.Open
    UploadStream_c.Position = FormStart_f + 1
    UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3
    FormStream_h.Position = 0
    FormStream_h.Type = 2
    FormStream_h.CharSet = "GB2312"
    FormStreamText_i = FormStream_h.Readtext
    FormStream_h.Close

    FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"\")+1,FormEnd_g)

    If(CheckFileExt(FileName_j,ExtName)) Then
      SaveFile = Server.MapPath(SavePath & FileName_j)

      If Err Then
        Response.Write "ÎļþÉÏ´«£º <span style=""color:red;"">ÎļþÉÏ´«³ö´í!</span>¡¡<a href=""" & Request.ServerVariables("URL") &""">ÖØÐÂÉÏ´«Îļþ</a><br />"
        Err.Clear
      Else
        SaveFile = CheckFileExists(SaveFile)

        k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
        l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
        FormStream_h.Type=1
        FormStream_h.Open
        UploadStream_c.Position=k-1
        UploadStream_c.CopyTo FormStream_h,l
        FormStream_h.SaveToFile SaveFile,2
        
        SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"\")+1)
        Response.write "ÎļþÉÏ´«£º <span style=""color:red;"">" & SaveFileName & " </span>ÎļþÉÏ´«³É¹¦!¡¡<a href=""" & Request.ServerVariables("URL") &""">¼ÌÐøÉÏ´«Îļþ</a><br />"
      End If
    Else
      Response.write "ÎļþÉÏ´«£º <span style=""color:red;"">Îļþ¸ñʽ²»ÕýÈ·!</span>¡¡<a href=""" & Request.ServerVariables("URL") &""">ÖØÐÂÉÏ´«Îļþ</a><br />"
    End If

  Else
%>
<script language="Javascript">
<!--
function ValidInput()
{
   
if(document.upform.upfile.value=="")
  {
    alert("ÇëÑ¡ÔñÉÏ´«Îļþ£¡")
    document.upform.upfile.focus()
    return false
  }
  return true
}
// -->
</script>
<form action='<%= Request.ServerVariables("URL") %>' method='post' name="upform" onsubmit="return ValidInput()"  enctype="multipart/form-data">
ÎļþÉÏ´«£º
<input type='file' name='upfile' size="40"> <input type='submit' value="ÉÏ´«">
</form>
<%
  End if
  Set FormStream_h = Nothing
  UploadStream.Close
  Set UploadStream = Nothing
%>
</body>
</html>
<%
  'ÅжÏÎļþÀàÐÍÊÇ·ñºÏ¸ñ
  Function CheckFileExt(FileName,ExtName) 'ÎļþÃû,ÔÊÐíÉÏ´«ÎļþÀàÐÍ
    FileType = ExtName
    FileType = Split(FileType,",")
    For i = 0 To Ubound(FileType)
      If LCase(Right(FileName,3)) = LCase(FileType(i)) then
      CheckFileExt = True
      Exit Function
      Else
      CheckFileExt = False
      End if
    Next
  End Function

  '¼ì²éÉÏ´«Îļþ¼ÐÊÇ·ñ´æÔÚ£¬²»´æÔÚÔò´´½¨Îļþ¼Ð
  Function CheckAndCreateFolder(FolderName)
    fldr = Server.Mappath(FolderName)
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(fldr) Then
      fso.CreateFolder(fldr)
    End If
    Set fso = Nothing
  End Function

'¼ì²éÎļþÊÇ·ñ´æÔÚ£¬ÖØÃüÃû´æÔÚÎļþ
Function CheckFileExists(FileName)
  Set fso=Server.CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(SaveFile) Then
    i=1
    msg=True
    Do While msg
      CheckFileExists = Replace(SaveFile,Right(SaveFile,4),"_" & i & Right(SaveFile,4))
      If not fso.FileExists(CheckFileExists) Then
        msg=False
      End If
      i=i+1
    Loop
  Else
    CheckFileExists = FileName
  End If
  Set fso=Nothing
End Function
%>

±¿±¿Ñó´Ð

Èç¹ûÉÏ´«ÎļþÊÇtxtµÄ,×îÖÕÒ³Ãæ³öÏÖ´íÎóÌáʾ:
HTTP/1.1 200 OK CacheControl: private Connection: close Date: Sat, 26 Sep 2009 13:40:15 GMT Content-Length: 567 Content-Type: text/html Server: Microsoft-IIS/6.0 X-Powered-By: ASP.NET <me
Èç¹ûÊÇÆäËûÎļþ:³öÏÖµÄÊÇ:"ÎļþÉÏ´«³ö´í"
ÏÖÔÚÎÒ¶¼Ã»ÓÐÕÒµ½½â¾öµÄ·½·¨.Èç¹û°´ÕÕÂ¥2˵¿ªÍ¨fsoȨÏÞ,ÔõÑù¿ªÍ¨ÄØ?