asp上传图片的代码,大虾帮帮我。怎么办？
"给你提供1个资料仔细看看把!!!!!!!!!!!!!!!怎麽利用ASP把图上传到数据库 作者：tigerwen01 来源：PConline 加入时间：2004-11-30 ASP（Active SERVER Pages）是Microsoft很早就推出的一种WEB应用程式处理方案，也是绝大多数从事网络站点研发人员很熟悉的1个比较容易的编程环境。 通过ASP俺们可新建功能强大的动态的WEB应用程式。ASP虽然功能很强大，但有些功能用纯ASP代码完成不了，为了能保证研发出功能更加强大的WEB应用程式，俺们可借助调出使用COM组件。 在日常工作中，例如研发1个“商品网络(...全部
"给你提供1个资料仔细看看把!!!!!!!!!!!!!!!怎麽利用ASP把图上传到数据库 作者：tigerwen01 来源：PConline 加入时间：2004-11-30 ASP（Active SERVER Pages）是Microsoft很早就推出的一种WEB应用程式处理方案，也是绝大多数从事网络站点研发人员很熟悉的1个比较容易的编程环境。
通过ASP俺们可新建功能强大的动态的WEB应用程式。ASP虽然功能很强大，但有些功能用纯ASP代码完成不了，为了能保证研发出功能更加强大的WEB应用程式，俺们可借助调出使用COM组件。 在日常工作中，例如研发1个“商品网络(互联网)上销售系统（System）”吧，为了使顾客对商品的外观有所了解，也就是顾客在看商品的文字介绍的同时在文字的旁边有该商品的图加以表明，这顾客就可对该商品有1个系统（System）的了解，对推销商品有很大的帮助。
因此俺们在研发系统（System）时当然就要加入图处理模块，即怎麽把图上传到服务器（图可放在WEB服务器上某1个文档夹里也可放在SQL SERVER服务器里）和怎麽让上传的图在浏览器端显示露出，这都是研发人员要考虑到的问题。
上传图到服务器有多种方案，可用文档上传组件也可用纯ASP代码来实现。在CSDN的WEB版ASP上常常有网友问这的问题“怎麽利用ASP把图上传到数据库里”，为了方便CSDN需求了解这方面的知识，这篇文章将清楚讲解用ASP上传图的做法并给出代码，以飨读者。
首先了解一次在程式中用到的各种对象及其语法： 1） Request。BinaryRead()方案 ● 用Request。BinaryRead()方案可获取提交的文档数据 ● 语法 VarReValue= Request。
BinaryRead(number) 变量VarReValue返回值保存从客户端读取到的二进制数据； 参数number指明要从客户端读取的二进制数据量的大小。 2） Response。BinaryWrite()方案 ● 用Response。
BinaryWrite()方案可从数据库中获取图数据并显示到客户端的浏览器中。 ● 语法 Response。BinaryWrite data 参数data是要写进客户端浏览器中的二进制数据包。
3） AppendChunk方案 ● AppendChunk方案的作用是将二进制数据追加到Field或Parameter对象。 ● 语法 object。AppendChunk data 参数data为要追加到Field或Parameter对象中的数据包。
4） GetChunk方案 ● GetChunk方案返回二进制数据的内容。 ● 语法 object。 GetChunk(size) 参数size指明要返回二进制数据的长度，然而长整型表达式。
5） Request。TotalBytes方案 ● Request。TotalBytes方案返回从客户端读取到的数据的字节数，这值跟上边所提到的number相对应，可大于或等于number值。
● 语法 number= Request。TotalBytes 大体了解了有些方案及其用方案后，接下来俺们就“开始”设计数据库和相关编写代码了。 第一步：数据库的设计（以Ms SQL SERVER7为例）： Create table img --新建用来存储图的表，命名为img ( id int identity(1,1) not NULL, img image ) 第二步：程式编写，其中省略了用户写入界面，这里只给出很重要的两儿个文档即图上传处理(processimg。
asp)和显示图(ShowImg。asp)文档。 1） processimg。asp文档代码： 〈% Response。Buffer=True ImageSize=Request。TotalBytes ‘获取提交数据量的总字节数 ImageData=Request。
BinaryRead(ImageSize) ‘保存从客户端读取到的数据 ‘优化读取到的二进制数据 BnCrLf=chrB(13)&chr(10) Divider=LeftB(ImageData,Clng(InstrB(ImageData, BnCrLf))-1) Dstart=InstrB(ImageData, BnCrLf& BnCrLf) 4 Dend=InstrB(Dstart 1, ImageData, Divider)- Dstart MyData=MidB(I"。
收起
