CSDN博客

img kanjing

无组件上传图片到数据库源码

发表于2004/6/24 2:00:00  1860人阅读

分类: 编程

******************** One.asp页面表单的Enctype设置.

<form name="form1" method="post" action="one.asp" enctype="multipart/form-data"></form>

 

 

 

******************** Tow.asp页面获取二进制图象信息并上传到数据库.

<% postedData = Request.BinaryRead(Request.TotalBytes)
    crlf=ChrB(13) & ChrB(10)
    tmpData=LeftB(postedData,CLng(InStrB(postedData,crlf))-1)
    dataStart=InStrB(postedData,crlf & crlf)+4
    dataEnd=InStrB(dataStart+1,postedData,tmpData)-dataStart
    starData=MidB(postedData,dataStart,dataEnd)
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From Picture "
Rs.Open Sql,cn,3,3
Rs.AddNew
Rs("P_Picture").AppendChunk starData
Rs.UpDate
Rs.Close
Set Rs=Nothing%>

 

 

******************** Three.asp页面从数据库读取图片信息并显示.

<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="SELECT * FROM Picture where P_PictureId="&Request("id")
Rs.Open Sql,cn,1,1
%>
<%Response.contenttype="image/gif"%>
<%Response.BinaryWrite Rs("P_Picture")%>
<%Rs.Close
Set Rs=nothing
cn.Close
Set cn=nothing
%>

 

 

0 0

相关博文

我的热门文章

img
取 消
img