6行代码实现无组件上传

stimson（原作）

目前有很多无组件上传类，我大概看了一下，大多写的相当复杂，有的居然还只能传文本最关键的是没有10行代码以下的 ：）我花了一个晚上时间研究了一下AD***.Stream，并且用了6行代码实现了无组件上传：

strFileName = Re***st.QueryString("file1")
Set objStream = Se***r.CreateObject("AD***.Stream")
ob***ream.Type = 1 ' adTypeBinary
ob***ream.Open
ob***ream.LoadFromFile strFileName
ob***ream.SaveToFile Server."123_onweb.gif",2

使用方法：
把上面的代码写成up***d.asp
在浏览器里面输入：
up***d.asp文件
<%
Function GetFileName(ByVal strFile)
  If strFile <> "" Then
   GetFileName = mid(strFile,InStrRev(strFile, "")+1)
  Else
   GetFileName = ""
  End If
End  function