目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本最关键的是没有10行代码以下的 :)我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:strFileName = Request.QueryStringSet objStream = Server.CreateObjectobjStream.Type = 1 ’’ adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server."123_onweb.gif",2 把上面的代码写成upload.asp在浏览器里面输入:http://XXX/upload.asp?file1=c:“上传文件“123.gifXXX为你的主机地址执行完后你会看到你的目录下面多了一个123_onweb.gif他就是你要文件拉!!!!根据原理我们可以扩展以下代码: <.%Function GetFileNameIf strFile <.>. "" ThenGetFileName = mid 1)ElseGetFileName = ""End IfEnd function strFileName = Request.FormSet objStream = Server.CreateObjectobjStream.Type = 1 ’’ adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server.MapPath),2objStream.Close%>.<.form name="FORM" action="upload.asp" method="post">.<.input type="submit" name="submit" value="OK">.<.input type="file" name="file1"value="">.<./form>.