目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本最关键的是没有10行代码以下的:)我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:strFile...目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本最关键的是没有10行代码以下的:)我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:strFileName=Request.QueryString("file1")SetobjStream=Server.CreateObject("ADODB.Stream")objStream.Type=1’’adTypeBinaryobjStream.OpenobjStream.LoadFromFilestrFileNameobjStream.SaveToFileServer."123_onweb.gif",2使用方法:把上面的代码写成upload.asp在浏览器里面输入:http://XXX/upload.asp?file1=c:上传文件123.gifXXX为你的主机地址执行完后你会看到你的目录下面多了一个123_onweb.gif他就是你要文件拉!!!!www.examda.com根据原理我们可以扩展以下代码:upload.asp文件<%FunctionGetFileName(ByValstrFile)IfstrFile<>""ThenGetFileName=mid(strFile,InStrRev(strFile,"")+1)ElseGetFileName=""EndIfEndfunctionstrFileName=Request.Form("file1")SetobjStream=Server.CreateObject("ADODB.Stream")objStream.Type=1’’adTypeBinaryobjStream.OpenobjStream.LoadFromFilestrFileNameobjStream.SaveToFileServer.MapPath(GetFileName(strFileName)),2objStream.Close%>upload.htm文件<formname="FORM"action="upload.asp"method="post"><inputtype="submit"name="submit"value="OK"><inputtype="file"name="file1"style="width:400"value=""></form>www.examda.com
