扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:tigerwen01 来源:论坛 2007年10月17日
关键字:
<% 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(ImageData, Dstart, Dend) ‘创建对象实例 Set imgConn=Server.CreateObject(“ADODB.Connection”) StrConn=”Driver={SQL Server};Server=ServerName;”& _ “Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName” imgConn.open strConn Set Rs= Server.CreateObject(“ADODB.RecordSet”) Sql=”Select * From img Where id is null” Rs.open sql,imgConn,1,3 ‘追加数据到数据库 Rs.AddNew Rs(“img”).AppendChunk myData Rs.Update ‘关闭和释放对象 Rs.close ImgConn.close Set Rs=Nothing Set ImgConn=Nothing %> |
<% Response.Expires = 0 Response.buffer=True Response.clear ‘创建对象实例 Set imgConn=Server.CreateObject(“ADODB.Connection”) StrConn=”Driver={SQL Server};Server=ServerName;”& _ “Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName” imgConn.open strConn Set Rs= Server.CreateObject(“ADODB.RecordSet”) Sql=”Select img From img Where id=1” 这里的id可以使用Request(“id”)获得 Rs.open sql,imgConn,1,1 Response.ContentType=”image/*” Response.BinaryWrite Rs.(“img”).GetChunk(7500000) ‘关闭和释放对象 Rs.close ImgConn.close Set Rs=Nothing Set ImgConn=Nothing %> |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者