asp 能读取图片数据的程序

存放的图片数据是完整的图颤悔片代码还是路径？如果是完整的代码。直接：

response.write Rst("Picture")

如果是路径派洞孙则：

<img src="尘链<%=rs("Picture")%>">

uppic.asp上传程序名

<%

dim rs

dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata

formsize=request.totalbytes '取得客户端发过来的大小

formdata=request.binaryread(formsize)'把客户发过来的数据转成二进制作

bncrlf=chrB(13) &chrB(10)

divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)

datastart=instrb(formdata,bncrlf &bncrlf)+4

dataend=instrb(datastart+1,formdata,divider)-datastart

mydata=midb(formdata,datastart,dataend)'上面总共是取得图片的二进制数据

%>

<!--#include file="conn.asp"-->

<%

sql="select * from pic order by id desc"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql,conn,3,2

rs.addnew

rs("big").appendchunk mydata'增加到数据库中

rs.update

set rs=nothing

set conn=nothing

%>

接下来是显示图片：display.asp

<!--#include file="conn.asp"-->'这个大家都知道吧，他就是与数据库连的一个程序了燃返

<%

id=request("id")

set rs=server.createobject("ADODB.recordset")

sql="select * from pic where id=" &id

rs.open sql,conn,1,1

Response.ContentType = "text/html" '显橡和示图梁段盯片的格式也可以用

'Response.ContentType = "image/gif" 以gif显示

'Response.ContentType = "image/jpg" 以jpg显示

Response.BinaryWrite rs("big") '显示图片

rs.close

set rs=nothing

set connGraph=nothing

%>

用ASP编写网站应用程序时间长了，难免会遇到各式各样的问题，其中关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上传图片.上传图片文件到服务器可以使用各种塌顷举免费的 文件上传组件，使用起来功能虽然很强大，但是由于很多情况下，我们只能使用免费的支持ASP的空间或者租用别人的虚拟空间，对于第一种情况，我们根本就团碧没有可能来使用文件上传组件；至于第二种情况，我们也要付出不少的“银子”才可以。除非你拥有自己的虚拟主机，你就可以随便的在服务器上面安装自己所需要的组件，这种情况对于大多数人来说是可望而不可及的。不过我已经克服了这个困难，使用纯ASP代码来实现图片的上传功能。其主要代码如下：

dim upload,file,formName,formPath,iCount,sname

set upload=new upload_5xSoft ''建立上传对象

response.write upload.Version&"" ''显示上乎判传类的版本

if upload.form("filepath")="" then ''得到上传目录

HtmEnd "请输入要上传至的目录!"

set upload=nothing

response.end

else

formPath=upload.form("filepath")&year(now)&month(now)&"/"

''在目录后加(/)

if right(formPath,1)<>"/" then formPath=formPath&"/"&year(now)&month(now)&"/"

end if

iCount=0

for each formName in upload.file ''列出所有上传了的文件

set file=upload.file(formName) ''生成一个文件对象

if file.FileSize>0 then ''如果 FileSize >0 说明有文件数据

file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件

response.write "<br><center><font size=2 color=red>上传成功，请复制下边剪切板中内容而后粘贴到图书图片剪切板内!</font></center><br>"

dim thename,fsobj,spp,paths

'文件更名

thename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&right(file.filename,4)

'response.write thename

spp=file.filename

file.filename=thename

file.SaveAs Server.mappath(formPath&file.FileName)

paths=server.mappath("../")&"\bookpic\"&year(now)&month(now)&"\"&spp

set fsobj=server.CreateObject("scripting.filesystemobject")

if fsobj.fileExists(""&paths&"") then

fsobj.deletefile(""&paths&"")

end if

set fsobj=nothing

response.write "<center><input type=text size=26 value=bookpic/"&year(now)&month(now)&"/"&file.filename&"><button onclick=window.clipboardData.setData('text',this.previousSibling.value)>复制</button><br><br><a href='javascript:window.close()'><font color=red size=2>关闭窗口</font></a></center>"

iCount=iCount+1

end if

set file=nothing

next

set upload=nothing ''删除此对象

response.write "<font color=red size=2>"

'Htmend iCount&" 个文件上传成功!</font>"

sub HtmEnd(Msg)

set upload=nothing

response.write "<br>"&Msg&" [<a href='javascript:window.close()'><font color=red size=2>关闭窗口</font></a>]</body></html>"

response.end

end sub

Function GetPP

dim s

s=Request.ServerVariables("path_translated")

GetPP=left(s,instrrev(s,"\",len(s)))

End function

---