Python语言技术文档

微信小程序技术文档

php语言技术文档

jsp语言技术文档

asp语言技术文档

C#/.NET语言技术文档

html5/css技术文档

javascript

点击排行

您现在的位置:首页 > 技术文档 > asp技巧

6行代码实现无组件上传(author_stimson)

来源:中文源码网    浏览:381 次    日期:2024-03-28 14:43:34
【下载文档:  6行代码实现无组件上传(author_stimson).txt 】


6行代码实现无组件上传(author:stimson)
原理代码:
strFileName = Request.QueryString("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1 ' adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server.mappath("123_onweb.gif"),2使用方法:把上面的代码写成upload.asp在浏览器里面输入:http://XXX/upload.asp?file1=c:\上传文件\123.gif XXX为你的主机地址执行完后你会看到你的目录下面多了一个123_onweb.gif他就是你要文件根据原理我们可以扩展以下代码:upload.htm文件
  
upload.asp文件
<%Function GetFileName(ByVal strFile)If strFile <> "" ThenGetFileName = mid(strFile,InStrRev(strFile, "\")+1)ElseGetFileName = ""End IfEnd functionstrFileName = Request.Form("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1 ' adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2objStream.Close%>本地调试成功,C/S模式不通过!

相关内容