2012年12月 Web 开发大版内专家分月排行榜第三
2012年12月 Web 开发大版内专家分月排行榜第三
匿名用户不能发表回复！|(灵行水面)
(灵行水面)
(灵行水面)
(灵行水面)
(灵行水面)
第三方登录：用ASP实现多图片上传到指定的目录并存到数据库
作者：YIFAN　来源：ARTDESIGN　时间： 标签：
关于图片上传的例子在网上有很多文章和原代码。但是每次上论坛浏览帖子的时候都是看到很多网友对图片上传感到头疼和麻烦。其实这个问题也是曾经让我感到头疼。也看过了不少的文章和代码。现在我写的这篇文章是把我比较喜欢的一篇代码和动网里的高手对这篇代码优化后再加上我增加一些代码结合出来的！呵呵，其实这篇文章是沾了写这篇代码的人(稻香居士)和动网里那些高手的光。:)好了，不说废话了。开始来搭建所需要的环境和数据结构！先新建一个名字叫photo的文件夹。(我在这里就是把图片上传到这个文件夹里的。)建立一个名字叫database的数据库。再接着建立一个名字叫sFile的表。表里设计四个字段分别是id(int),image(varchar),image1(varchar),image2(varchar)。我这里用的数据库是SQL。相关的文件register.asp&html&&head&&title&文件&/title&&meta http-equiv="Content-Type" content="text/ charset=gb2312"&&/head&&body&&form name="form1" method="post" action="save.asp"&&&&table width="50%" border="1" cellspacing="0" cellpadding="0" align="center"&&&&&&tr& &&&&&&&td width="20%"&&a href="#"&&OnClick="vascript:window.open('/reg_upload.asp',null,'&&&&left=40%,top=40%,height=250,width=470,status=yes,toolbar=no,menubar=no,resizable=yes,copyhistory=yes,scrollbars=yes,location=no,status=no,titlebar=no')"&图片上传&/a&&/td&&&&&&&&td width="80%"& & &&&&&&&&&input type="text" name="myface"&&&&&&&&&& &&&&&&&&&input type="text" name="myface1"&&&&&&&&&& &&&&&&&&&input type="text" name="myface2"&&&&&&&&&(此处用户不必填图片上传后自动生成) &/td&&&&&&/tr&&&&&&tr& &&&&&&&td colspan="2"&&align="center"& &&&&&&&&&input type="submit" name="Submit" value="提交"&&&&&&&&&&input type="reset" name="Submit2" value="重设"&&&&&&&&/td&&&&&&/tr&&&&/table&&/form&&/body&&/html&reg_upload.asp&html&&head&&title&&/title&&meta http-equiv="Content-Type"&&content="text/ charset=gb2312"&&link rel="stylesheet" href="css/style.css" type="text/css"&&/head&&body leftmargin="0" topmargin="0"&&&&　 &br&&br&&br&&table width="90%" border="0" align="center" bgcolor="#000000" height="152" cellspacing="1"&&&&tr& &&&&&td height="34" align="center" bgcolor="#FFFFFF"&&font color="#FFFF33"&&b&&font size="4" color="#000000"&选择图片&/font&&/b&&/font&&/td&&&&/tr&&&&tr& &&&&&td bgcolor="#FFFFFF"& &&&&&&&form name="form"&&method="post" action="upfile.asp" enctype="multipart/form-data" &&&&&&&&&&input type="hidden" name="filepath" value="photo"&&&&&&&&&&input type="hidden"&&name="act" value="upload"&&&&&&&&&&input type="file" name="file1"&&size="30"&&br&&&&&&&&&&&input type="file" name="file2" size="30"&&br&&&&&&&&&&&input type="file" name="file3" size="30"&&&&&&&&&&& &&&&&&&&&input&&type="submit" name="Submit" value="粘 贴" class="tl"&&&&&&&&/form&&&&&&/td&&&&/tr&&/table&&/body&&/html&upfile.asp&!--#include FILE="upload.inc"--&&html&&head&&title&文件上传&/title&&/head&&body&&%dim arr(3)dim upload,file,formName,formPath,iCount,filename,fileExt,iset upload=new upload_5xSoft ''建立上传对象formPath=upload.form("filepath")''在目录后加(/)if right(formPath,1)&&"/" then formPath=formPath&"/" iCount=0i=0for each formName in upload.file ''列出所有上传了的文件&&&&set file=upload.file(formName)&&''生成一个文件对象&&&&&&&if file.filesize&0 then&&&&&&&&response.write "&font size=2&请先选择你要上传的图片　[ &a href=# onclick=history.go(-1)&重新上传&/a& ]&/font&"&&&&&&&&response.end&&&&end if&&&&&&&if file.filesize&100000 then&&&&&&&&response.write "&font size=2&图片大小超过了限制　[ &a href=# onclick=history.go(-1)&重新上传&/a& ]&/font&"&&&&&&&&response.end&&&&end ifif fileEXT&&".gif" and fileEXT&&".jpg" then&&&&&response.write "&font size=2&文件格式不对　[ &a href=# onclick=history.go(-1)&重新上传&/a& ]&/font&"&&&&response.endend if &&&&fileExt=lcase(right(file.filename,4))&&&&filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName&&&&arr(i)=filename&&&&i=i+1&&&&if file.FileSize&0 then&&&&&&&&&''如果 FileSize & 0 说明有文件数据&&&&&&&&file.SaveAs Server.mappath(filename)&&&''保存文件&&&&&&&&' response.write file.FilePath&file.FileName&" ("&file.FileSize&") =& "&formPath&File.FileName&" 成功!&br&"&&&&&&&&&&iCount=iCount+1&&&&end if&&&&set file=nothingnextif instr(arr(0),".")=0 and instr(arr(1),".")=0&&and instr(arr(2),".")=0&&then&&response.write "&font size=2&请先选择你要上传的图片　[ &a href=# onclick=history.go(-1)&重新上传&/a& ]&/font&"response.endend ifif instr(arr(0),".")&&0 thenresponse.write "&script&opener.document.forms[0].myface.value='" & arr(0) & "'&/script&"elseresponse.write "&script&opener.document.forms[0].myface.value=''&/script&"end ifif instr(arr(1),".")&&0 thenresponse.write "&script&opener.document.forms[0].myface1.value='" & arr(1) & "'&/script&"elseresponse.write "&script&opener.document.forms[0].myface1.value=''&/script&"end ifif instr(arr(2),".")&&0 thenresponse.write "&script&opener.document.forms[0].myface2.value='" & arr(2) & "'&/script&"elseresponse.write "&script&opener.document.forms[0].myface2.value='' &/script&"end ifset upload=nothing&&''删除此对象session("upface")="done"Htmend iCount&" 个文件上传结束!"sub HtmEnd(Msg)&&&&set upload=nothingresponse.write "&html&&head&&meta&&http-equiv='Refresh' content='3 url=""vascript:window.close();""'&&/head&&body&&center&&br&&br&文件上传成功&br&谢谢你的支持！&br&本窗口三秒后自动关闭&/center&&/body&&/html&"&&&response.endend sub%&&/body&&/html&upload.inc&SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&dim upfile_5xSoft_StreamClass upload_5xSoft&&dim Form,File,Version&&Private Sub Class_Initialize &&&&&&&&dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile&&&&&&&&dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr&&&&&&&&Version=""&&&&&&&&if Request.TotalBytes&1 then Exit Sub&&&&&&&&set Form=CreateObject("Scripting.Dictionary")&&&&&&&&set File=CreateObject("Scripting.Dictionary")&&&&&&&&set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")&&&&&&&&upfile_5xSoft_Stream.mode=3&&&&&&&&upfile_5xSoft_Stream.type=1&&&&&&&&upfile_5xSoft_Stream.open&&&&&&&&upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)&&&&&&&&&&&&&&&&vbEnter=Chr(13)&Chr(10)&&&&&&&&iDivLen=inString(1,vbEnter)+1&&&&&&&&strDiv=subString(1,iDivLen)&&&&&&&&iFormStart=iDivLen&&&&&&&&iFormEnd=inString(iformStart,strDiv)-1&&&&&&&&while iFormStart & iFormEnd&&&&&&&&&&iStart=inString(iFormStart,"name=""")&&&&&&&&&&iEnd=inString(iStart+6,"""")&&&&&&&&&&mFormName=subString(iStart+6,iEnd-iStart-6)&&&&&&&&&&iFileNameStart=inString(iEnd+1,"filename=""")&&&&&&&&&&if iFileNameStart&0 and iFileNameStart&iFormEnd then&&&&&&&&&&&iFileNameEnd=inString(iFileNameStart+10,"""")&&&&&&&&&&&mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)&&&&&&&&&&&iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)&&&&&&&&&&&iEnd=inString(iStart+4,vbEnter&strDiv)&&&&&&&&&&&if iEnd&iStart then&&&&&&&&&&&&mFileSize=iEnd-iStart-4&&&&&&&&&&&else&&&&&&&&&&&&mFileSize=0&&&&&&&&&&&end if&&&&&&&&&&&set theFile=new FileInfo&&&&&&&&&&&theFile.FileName=getFileName(mFileName)&&&&&&&&&&&theFile.FilePath=getFilePath(mFileName)&&&&&&&&&&&theFile.FileSize=mFileSize&&&&&&&&&&&theFile.FileStart=iStart+4&&&&&&&&&&&theFile.FormName=FormName&&&&&&&&&&&file.add mFormName,theFile&&&&&&&&&&else&&&&&&&&&&&iStart=inString(iEnd+1,vbEnter&vbEnter)&&&&&&&&&&&iEnd=inString(iStart+4,vbEnter&strDiv)&&&&&&&&&&&&&&&&&&&if iEnd&iStart then&&&&&&&&&&&&mFormValue=subString(iStart+4,iEnd-iStart-4)&&&&&&&&&&&else&&&&&&&&&&&&mFormValue="" &&&&&&&&&&&end if&&&&&&&&&&&form.Add mFormName,mFormValue&&&&&&&&&&end if&&&&&&&&&&&&&&&&&&iFormStart=iformEnd+iDivLen&&&&&&&&&&iFormEnd=inString(iformStart,strDiv)-1&&&&&&&&wendEnd SubPrivate Function subString(theStart,theLen)dim i,c,stempupfile_5xSoft_Stream.Position=theStart-1stemp=""for i=1 to theLen&&&if upfile_5xSoft_Stream.EOS then Exit for&&&c=ascB(upfile_5xSoft_Stream.Read(1))&&&If c & 127 Then&&&&if upfile_5xSoft_Stream.EOS then Exit for&&&&stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))&&&&i=i+1&&&else&&&&stemp=stemp&Chr(c)&&&End IfNextsubString=stempEnd functionPrivate Function inString(theStart,varStr)dim i,j,bt,theLen,strInString=0Str=toByte(varStr)theLen=LenB(Str)for i=theStart to upfile_5xSoft_Stream.Size-theLen&&&if i&upfile_5xSoft_Stream.size then exit Function&&&upfile_5xSoft_Stream.Position=i-1&&&if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then&&&&InString=i&&&&for j=2 to theLen&&&&&&if upfile_5xSoft_Stream.EOS then &&&&&&&&inString=0&&&&&&&&Exit for&&&&&&end if&&&&&&if AscB(upfile_5xSoft_Stream.Read(1))&&AscB(MidB(Str,j,1)) then&&&&&&&&InString=0&&&&&&&&Exit For&&&&&&end if&&&&next&&&&if InString&&0 then Exit Function&&&end ifnextEnd FunctionPrivate Sub Class_Terminate&&&&form.RemoveAll&&file.RemoveAll&&set form=nothing&&set file=nothing&&upfile_5xSoft_Stream.close&&set upfile_5xSoft_Stream=nothingEnd Sub&&&Private function GetFilePath(FullPath)&&If FullPath && "" Then&&&GetFilePath = left(FullPath,InStrRev(FullPath, "\"))&&Else&&&GetFilePath = ""&&End IfEnd&&functionPrivate function GetFileName(FullPath)&&If FullPath && "" Then&&&GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)&&Else&&&GetFileName = ""&&End IfEnd&&functionPrivate function toByte(Str)&&&dim i,iCode,c,iLow,iHigh&&&toByte=""&&&For i=1 To Len(Str)&&&c=mid(Str,i,1)&&&iCode =Asc(c)&&&If iCode&0 Then iCode = iCode + 65535&&&If iCode&255 Then&&&&&iLow = Left(Hex(Asc(c)),2)&&&&&iHigh =Right(Hex(Asc(c)),2)&&&&&toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)&&&Else&&&&&toByte = toByte & chrB(AscB(c))&&&End If&&&NextEnd functionEnd ClassClass FileInfo&&dim FormName,FileName,FilePath,FileSize,FileStart&&Private Sub Class_Initialize &&&&FileName = ""&&&&FilePath = ""&&&&FileSize = 0&&&&FileStart= 0&&&&FormName = ""&&End Sub&&Public function SaveAs(FullPath)&&&&dim dr,ErrorChar,i&&&&SaveAs=1&&&&if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function&&&&if FileStart=0 or right(fullpath,1)="/" then exit function&&&&set dr=CreateObject("Adodb.Stream")&&&&dr.Mode=3&&&&dr.Type=1&&&&dr.Open&&&&upfile_5xSoft_Stream.position=FileStart-1&&&&upfile_5xSoft_Stream.copyto dr,FileSize&&&&dr.SaveToFile FullPath,2&&&&dr.Close&&&&set dr=nothing &&&&SaveAs=0&&end functionEnd Class&/SCRIPT&save.asp&% dim dsn,conndsn="driver={sql server};server=127.0.0.1;uid=pwd=;database=database"set conn=server.createobject("adodb.connection")conn.open dsn%&&% dim file,file1,file2file=trim(request.form("myface"))file1=trim(request.form("myface1"))file2=trim(request.form("myface2"))set rs=server.createobject("adodb.recordset")sql="Insert Into sFile(image,image1,image2) Values('"& file &"','"& file1&"','"& file2&"')" conn.execute(sql)response.redirect "ok.asp"%&呵呵，代码多了点。复制以上的代码到你的机器上运行是不是你想要的结果！至于显示图片相信大家都明白了吧！我就不必多说了。值得一提的是此代码不仅可以用于图片上传而是任何格式的文件都可以哦，至于文件大小也可以由你自己来定义哦！还有的就是我只定义了上传三个要是要上传更多的话稍为改下代码就可以了。仔细看代码就知道了是不是觉得很方便和实用。这个只不过是在我解决这个问题的时候用的一种方法而已。你要是有更好的方法来实现也可以来EMAIL告诉我！互相学习共同进步。第一次写文章可能表达方面有语法问题。要是有什么问题也可以来EMAIL告诉我！我的邮箱：,QQ:。时间不早了，我要睡觉了！呼噜呼噜zzzZZZ....(特别感谢hooke等高手一直以来的技术支持)小汪仔于晚
【设计之家 原创文章 投稿邮箱：】posts - 824,&
comments - 6,&
trackbacks - 0
ASP上传图片至数据库内功能的实现
一般的无组件上传类，其上传过程是将图片先保存到指定文件夹，与此同时将该路径保存至数据库字段的。显示图片则是根据数据库表中的路径字段对应显示的。当然有关图片的管理，比如删除：只删除了路径，实际的图片需要根据该路径通过FSO进行删除&&那有没有这样一种情况：将图片直接作为一个字段的值保存。对图片的操作就象是对数据字段的操作一样熟练。答案是肯定的，只是将该字段的类型设为OLE对象
知识点：OLE 对象字段用来存储诸如 Microsoft Word 或 Microsoft EXCEL 文档、图片、声音的数据以及在别的程序中创建的其他类型的二进制数据。OLE 对象可以链接或嵌入到 Microsoft Access 表的字段中。
一、设计数据库testimg.mdb
为方便调试，设计表imgurl，其中两个字段：id（自动编号、关键字）、img（OLE 对象）
二、连接数据库文件conn.asp
&%db_path="testimg.mdb"set
conn=server.CreateObject("ADODB.connection")connstr="driver={Microsoft
Access Driver (*.mdb)};dbq="&server.MapPath(db_path)conn.open
三、提供上传图片的表单页面upload.html
&form action="upload.asp" method="post"
enctype="multipart/form-data"&　　&input type="file"
name="imgurl"&　　&input type="submit" name=ok
value="ok"&&/form&
四、接受数据并添加记录页upload.asp
&!--#include
file="conn.asp"--&&%formsize=request.totalbytesformdata=request.binaryread(formsize)bncrlf=chrB(13)&chrB(10)divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)datastart=instrb(formdata,bncrlf&bncrlf)+4dataend=instrb(datastart+1,formdata,divider)-datastartmydata=midb(formdata,datastart,dataend)set
rs=server.createobject("ADODB.recordset")rs.open "SELECT * FROM
imgurl",conn,3,3rs.addnewrs("img").AppendChunk
myDatars.updaters.closeset rs=nothingset
conn=nothingresponse.redirect "index.asp"%&
五、提取数据库表中图片字段内容以做显示图片页showimg.asp
&!--#include file="conn.asp"--&&%set
rs=server.createobject("ADODB.recordset")sql="select * from imgurl where
id="&trim(request("id"))rs.open
sql,conn,1,1Response.ContentType="image/*"Response.BinaryWrite
rs("img").getChunk(8000000)rs.closeset rs=nothingset
conn=nothing%&
六、显示图片的index.asp
&!--#include
file="conn.asp"--&&%strsql="select * from
imgurl"set rs=server.createobject("ADODB.recordset")rs.open
strsql,conn,1,1do until rs.eofwhatid=rs("id")%&&img
src="showimg.asp?id=&%=whatid%&"&
&%rs.movenextloop
阅读(...) 评论()ASP文件上传神功 第一重（单个图片上传到数据库）－虚拟主机资讯|虚拟主机动态
产品服务快速通道
----------------
==域名注册==
英文域名注册
中文域名注册
==网站推广==
==虚拟主机==
----------------
双线路虚拟主机
基本型虚拟主机
商用型虚拟主机
论坛型虚拟主机
功能型虚拟主机
Vip合租虚拟主机
虚拟主机性能对比
虚拟主机免费试用
机房速度测试
----------------
==租用托管==
服务器租用
----------------
==企业邮局==
购买企业邮局
----------------
==付款方式==
----------------
==联系我们==
您当前位置：->-> ->
ASP文件上传神功 第一重（单个图片上传到数据库）
作者：网友供稿
　　西部数码-全国虚拟主机10强！20余项管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!可在线rar解压,自动数据恢复设置虚拟目录等.免费赠送访问统计,企业邮局.Cn域名注册10元/年,480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!
文章页数：&
第一重：单个图片上传到数据库
　　这个问题已经不是什么新鲜问题了，网上也有大把的教程，但大多数是授人以鱼，而不授人以渔，经过辛苦的资料收集，思考，调试，整理，我基本上已经把这个问题从原理上搞清楚了，现在根据我自己的理解，在范例程序的基础上，加以解释，希望能对部分网友（比我还菜的:-)）有所帮助。
　　请诸位大虾能对其中的不正或不良这处予以指正。
　　程序中stream对象的用法上参考了“化境http上传程序 version 2.0”在代码，在此对稻香老农和梁无惧表示衷心的感谢和由衷的敬意。
　　我想循序渐进，今天先讲一个简单的，单个图片文件保存到数据库。
这个范例共包括三个ａｓｐ文件和一个数据库（一个表），全部在同一目录下。
１、tblimage 表结构（access 2000）
　　sn　　　　　自动编号　序列号
　　content-type　文本　　　图片类型
　　image　　 　ole 对象　图片数据
２、simpleimagetodata.asp：上传表单及保存图片到数据库的代码部分，主要文件。
&%@ language=vbscript %&
&% option explicit %&
从一个完整路径中析出文件名称
function getfilenamefrompath(strpath)
getfilenamefrompath = mid(strpath,instrrev(strpath,&\&)+1)
end function
定义数据库连接字符串
cnstr = &driver={microsoft access driver (*.mdb)};dbq=& & server.mappath(&./upload.mdb&)
%&
&title&单个图像保存到数据库&/title&
&meta http-equiv=&content-type& content=&text/ charset=gb2312&&
&body&
&p&&a href=&simpleimagetodata.asp&&上传图片&/a&
&a href=&showimagelistfromdata.asp&&显示图片&/a&&hr&&/p&
if request.servervariables(&request_method&) = &post& then
dim scome, sgo, bindata, strdata
dim posb, pose, possb, posse
dim bincrlf
dim strpath, strfilename, strcontenttype
bincrlf = chrb(13)&chrb(10)
定义一个单字节的回车换行符
set scome = server.createobject(&adodb.stream&)
scome.type = 1
指定返回数据类型 adtypebinary=1,adtypetext=2
scome.mode = 3
指定打开模式 admoderead=1,admodewrite=2,admodereadwrite=3
scome.open
scome.write request.binaryread(request.totalbytes)
scome.position = 0
bindata = scome.read
response.binarywrite bindata
调试用：显示提交的所有数据
response.write &&hr&&
set sgo = server.createobject(&adodb.stream&)
sgo.type = 1
sgo.mode = 3
posb = instrb(posb,bindata,bincrlf)
pose = instrb(posb+1,bindata,bincrlf)
response.write posb & & | & & pose & &&br&&
scome.position = posb+1
scome.copyto sgo,pose-posb-2
sgo.position = 0
sgo.type = 2
sgo.charset = &gb2312&
strdata = sgo.readtext
response.write strdata & &&hr&&
possb = instr(possb,strdata,&filename=&&&) + len(&filename=&&&)
posse = instr(possb,strdata,&&&&)
if posse & possb then
strpath = mid(strdata,possb,posse-possb)
response.write &本地路径：& & strpath & &&br&&
response.write &文件名：& & getfilenamefrompath(strpath) & &&br&&
posb = pose
pose = instrb(posb+1,bindata,bincrlf)
response.write posb & & | & & pose & &&br&&
sgo.type = 1
sgo.mode = 3
scome.position = posb
scome.copyto sgo,pose-posb-1
sgo.position = 0
sgo.type = 2
sgo.charset = &gb2312&
strdata = sgo.readtext
strcontenttype = mid(strdata,16)
此处因为固定的，所以省略查找 :-)
response.write &图片类型：& & strcontenttype & &&hr&&
posb = pose+2
pose = instrb(posb+1,bindata,bincrlf)
response.write posb & & | & & pose & &&br&&
sgo.type = 1
sgo.mode = 3
scome.position = posb+1
scome.copyto sgo,pose-posb-2
sgo.position = 0
strdata = sgo.read
response.write lenb(strdata) & &&br&&
dim cn, rs, sql
set cn = server.createobject(&adodb.connection&)
cn.open cnstr
set rs = server.createobject(&adodb.recordset&)
sql = &select * from tblimage&
rs.open sql,cn,1,3
rs.fields(&content-type&).value = strcontenttype
rs.fields(&image&).appendchunk strdata
set rs = nothing
set cn = nothing
response.write &图片保存成功！& & &&br&&
response.write &没有上传图片！& & &&br&&
set sgo = nothing
scome.close
set scome = nothing
&form id=&frmupload& name=&frmupload& action=&simpleimagetodata.asp& method=&post& target=&_self& enctype=&multipart/form-data&&
&input id=&filimage& type=&file& name=&filimage& size=&40&&
&input id=&btnupload& type=&submit& value=&upload& name=&btnupload&&
&/form&
&%
&/body&
&/html&
３、showimagelistfromdata.asp
&%@ language=vbscript %&
&% option explicit %&
&html&
&head&
&title&显示数据库中已有图片的列表&/title&
&meta http-equiv=&content-type& content=&text/ charset=gb2312&&
&/head&
&body&
&p&&a href=&simpleimagetodata.asp&&上传图片&/a&
&a href=&showimagelistfromdata.asp&&显示图片&/a&&hr&&/p&
&table border=0 cellpadding=2 cellspacing=2&
&td valign=top&
cnstr = &driver={microsoft access driver (*.mdb)};dbq=& & server.mappath(&./upload.mdb&)
dim cn, sql, rs
set cn = server.createobject(&adodb.connection&)
cn.open cnstr
sql = &select sn,[content-type],image from tblimage&
set rs = cn.execute(sql)
response.write &&table border=1 cellspacing=2 cellpadding=5&&
response.write &&tr&&
response.write &&th&序列号&/th&&th&图片类型&/th&&th&图片&/th&&
response.write &&/tr&&
do until rs.eof
response.write &&tr&&
response.write &&td&& & rs(&sn&) & &&/td&&
response.write &&td&& & rs(&content-type&) & &&/td&&
response.write &&td&&a href=showimagelistfromdata.asp?sn=& & rs(&sn&) & &&看图&/a&&/td&&
response.write &&/tr&&
rs.movenext
response.write &&/table&&
set cn = nothing
&td valign=top&
sn = request.querystring(&sn&)
if sn = && then
response.write &没有指定图片！&
response.write &&img border=1 src=showimagefromdata.asp?sn=& & sn & &&&
&/tr&
&/table&
&/body&
&/html&
４、showimagefromdata.asp
&%@ language=vbscript %&
&% option explicit %&
sn = request.querystring(&sn&)
if sn = && then response.end
cnstr = &driver={microsoft access driver (*.mdb)};dbq=& & server.mappath(&./upload.mdb&)
dim cn, sql, rs
set cn = server.createobject(&adodb.connection&)
cn.open cnstr
sql = &select sn,[content-type],image from tblimage where sn=& & cint(sn)
set rs = cn.execute(sql)
response.contenttype = rs(&content-type&)
response.binarywrite rs(&image&)
set rs = nothing
set cn = nothing
%&
文章整理：西部数码--专业提供、服务
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
文章页数：&
??????????
??????????
版权申明：本站文章均来自网络，如有侵权，请联系我们，我们收到后立即删除，谢谢！
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。
版权所有 西部数码(www.west.cn)
CopyRight (c)
west263.com all right reserved.
公司地址：四川省成都市金牛区一环路北一段99号环球广场24楼　邮编：610031
电话总机：028-08 38
售前咨询：总机转201 202 203 204 206 208
售后服务：总机转211 212 213 214
财务咨询：总机转224 223 传真：028- 财务QQ：
售前咨询QQ：2182518
售后服务QQ：