asp上传文件到服务器的代码怎么写?

asp上传文件到服务器的代码怎么写?,第1张

\x0d\x0a\x0d\x0a\x0d\x0a无标题文档\x0d\x0a\x0d\x0a\x0d\x0a重新上传"\x0d\x0aresponse.end \x0d\x0aend if \x0d\x0af.Type=1 \x0d\x0af.Open \x0d\x0aa.Position=i-1 \x0d\x0aa.CopyTo f,j \x0d\x0a\x0d\x0ah = Mid(h, InStrRev(h, "filename=""") + 10) '这颂雀帆是我帮你添加的,文件名的获取没有正确 \x0d\x0af.SaveToFile server.mappath("/野雹EXCEL/"&h),2 \x0d\x0af.Close \x0d\x0aset f=Nothing \x0d\x0aa.Close \x0d\x0aset a=Nothing \x0d\x0a'response.write ""&h&""\x0d\x0aend if\x0d\x0aIf Err.number 0 Then\x0d\x0a response.Write err.number\x0d\x0a response.Write err.Description\x0d\x0a Response.End\x0d\x0a End If\x0d\x0a%>\x0d\x0a\x0d\x0afunction checkupload() {\x0d\x0aif (document.upload_form.fe.value == "") {\x0d\x0aalert("未选择要上传岁烂的文件")\x0d\x0areturn false\x0d\x0a} \x0d\x0a}\x0d\x0a\x0d\x0a \x0d\x0a \x0d\x0a\x0d\x0a \x0d\x0a\x0d\x0a

基本原理是:采用ADO Stream对象的BinaryRead方法将FORM中的所有数据读出,从中截取出所需的文件数据,以二进制文件方式存盘。

下面是上传文件页面的一个例子:

<html>

<body>

<form name="Upload" Method="Post" Enctype="multipart/form-data" Action="Upload.asp">

<input type="file" name="FileName">

<INPUT TYPE="Submit" VALUE="Upload"></TD>

</form>

</body>

</html>

扩展资料

几种文件上传技术的比较

1、基于HTTP协议

该方法需要编程者利用第三方软件,如DELPHI、VB等,在应用程序中先进行HTTP协议编程,然后将待上传文件内容按HTTP协议的格式打包,最后向WEB服务器发送上传的请求报文,从而实现文件的上传。

因尺枣为DELPHI和VB不能编写完整的WEB网络程序,只能编写WEB小应用程序,因此,该方法只用于功能受限的网络应用。

2、基于VB(或DELPHI等)开发的文件上传组件

该方法利用VB(或DELPHI等编程语言)开发ASP服务器组件,实现特定的文件上传服务。它首先利用ASP表单功能将文件(二进制格式)从用户端上传到服务器端,然后使用VB开发的组件,对二进制文件进行处理,成为可以正常读写的文件。

该方法要求编程者不仅掌握ASP语言,而且还能利用VB等第三方语言进行组件编程,增加了开发的难度。

3、基于数据库技术

该方法和上个方法有类似之处。不同的地方在于对上传的二进制文件的处理上。它使用数据库来保存二进陵唯拆制文件。无论是小型数据库还是大型数据库都提供了存储二进制数据的数据类型,只要以山如Append Chunk方式将数据存入相应的字段就可以了。

该方法虽然简单可行,但是因为每次上传的文件大小都是不一样的,因此,会对数据库的空间造成很大的浪费,降低了数据的访问速度;并且使得文件只能在数据库环境下进行访问,造成了很大的不便。

1、2可以解决,3有孝迅点复杂,我对无组件上传也不是很熟悉,很久没有碰过了,

建议你使用别人做好的上传类,像无惧上传类、稻香老农的化境asp无组件上传类等都可以,有很多,都挺好用的。

关于1、2的问题可参照下面的解燃纯决办法,因为你的巧段此代码全写在一行,读起来太麻烦,所以我给拆开了。代码如下:

<html>

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">

<title>无标题文档</title>

</head>

<body>

<%

Response.Expires=0

if Request.TotalBytes then

set a=createobject("adodb.stream")

a.Type=1

a.Open

a.write Request.BinaryRead(Request.TotalBytes)

a.Position=0

b=a.Read

c=chrB(13)&chrB(10)

d=clng(instrb(b,c))

e=instrb(d+1,b,c)

set f=createobject("adodb.stream")

f.type=1

f.open

a.Position=d+1

a.copyto f,e-d-3

f.Position=0

f.type=2

f.CharSet="GB2312"

g=f.readtext

f.Close

h=mid(g,instrRev(g,"\")+1,e)

i=instrb(b,c&c)+4

j=instrb(i+1,b,leftB(b,d-1))-i-2

if j <1 then

set f =nothing

set a =nothing

response.write "未选择要上传的文件<a href='?'>重新上传</a>"

response.end

end if

f.Type=1

f.Open

a.Position=i-1

a.CopyTo f,j

f.SaveToFile server.mappath("/images/"&h),2 '上传至“/images/”文件夹中

f.Close

set f=Nothing

a.Close

set a=Nothing

response.write "<a href="&Server.URlEncode(h)&">"&h&"</a>"

end if

%>

<script language="javascript">

function checkupload(){

if(document.upload_form.fe.value ==""){

alert("未选择要上传的文件")

return false

}

}

</script>

<form name="upload_form" enctype="multipart/form-data" method="post" onsubmit="return(checkupload())">

<input type="file" name="fe">

<input type="submit" value="上传" name="B1"></form>

</body>

</html>


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/12284412.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-24
下一篇 2023-05-24

发表评论

登录后才能评论

评论列表(0条)

保存