tenflee :
文件如果是图片，数据库sql server的类型是image就行了，在ACCESS中的类型是ole对象。
显示在页面上时，http报头应该改为
content为image/jpeg
lxxlily(笨鸟先飞) :
文件up.asp （起始文件）
<html>
<body>
<center>
</center>
<CENTER> </CENTER>
<CENTER> </CENTER>
<CENTER> </CENTER>
<CENTER> </CENTER>
<CENTER> </CENTER>
<CENTER> </CENTER>
<CENTER>
<form name="mainForm" enctype="multipart/form-data"
action="uptest.asp" method=post>
上传文件：<input type=file name=mefile>
<input type=submit name=ok value="OK">
</form></CENTER>
</body>
</html>
----------------------------------------------
文件uptest.asp:
<%
response.buffer=true
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)
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"
& "Data Source=" & server.MapPath("img.mdb")
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [img] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
%>
<a href="show.asp?id=<%=rec("id")%>">showpic</a>
<%
rec.close
set rec=nothing
set connGraph=nothing
%>
---------------------------------------------
文件upshow.asp:
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"
& "Data Source=" & server.MapPath("img.mdb")
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from img where id="&request("id")
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
-------------------------------------
文件show.asp
<html>
<body>
<img src="upshow.asp?id=<%=request("id")%>"
border=0>
</body>
</html>
---------------------
把 Response.ContentType = "image/*"
这行的输出类型改成其它文件相应的类型就可以了.
当然不能在用<img>标签了,换成其它能显示这些文件的标签.
文本
response.contenttype="text/html"
word
response.ContentType="application/x-msword"
excel
response.ContentType="application/x-msexcel"
作者：佚名 来源： 网上转帖 |
