|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。今朝有良多无组件上传类,我也许看了一下,年夜多写的相称庞大,有的竟然还只能传文本
最关头的是没有10行代码以下的:)
我花了一个早晨工夫研讨了一下ADODB.Stream,而且用了6行代码完成了无组件上传:strFileName=Request.QueryString("file1")
SetobjStream=Server.CreateObject("ADODB.Stream")
objStream.Type=1adTypeBinary
objStream.Open
objStream.LoadFromFilestrFileName
objStream.SaveToFileServer."123_onweb.gif",2
利用办法:
把下面的代码写成upload.asp
在扫瞄器内里输出:
http://XXX/upload.asp?file1=c:上传文件123.gif
XXX为你的主机地点
实行完后你会看到你的目次上面多了一个123_onweb.gif
他就是你要文件拉!!!!
依据道理我们能够扩大以下代码:
upload.asp文件
<%
FunctionGetFileName(ByValstrFile)
IfstrFile""Then
GetFileName=mid(strFile,InStrRev(strFile,"")+1)
Else
GetFileName=""
EndIf
Endfunction
strFileName=Request.Form("file1")
SetobjStream=Server.CreateObject("ADODB.Stream")
objStream.Type=1adTypeBinary
objStream.Open
objStream.LoadFromFilestrFileName
objStream.SaveToFileServer.MapPath(GetFileName(strFileName)),2
objStream.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>
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|