用了6行代码实现了无组件上传：　　

　　 strFileName = Request.QueryString("file1")

　　 Set objStream = Server.CreateObject("ADODB.Stream")

　　 objStream.Type = 1 ' adTypeBinary

　　 objStream.Open

　　 objStream.LoadFromFile strFileName

　　 objStream.SaveToFile Server."Q966_onweb.gif",2　　

　　 使用方法：　　

　　 把上面的代码写成upload.asp

　　 在浏览器里面输入：

　　 http://XXX/upload.asp?file1=c:上传文件Q966.gif

　　 XXX为你的主机地址

　　 执行完后你会看到你的目录下面多了一个Q966_onweb.gif

　　 他就是你要文件拉！！！！　　

　　 根据原理我们可以扩展以下代码：

　　 upload.asp