在网上看到一篇文章,经过修改并结合xml,实现图片文本同步上传!

共3文件:upload.htm,uploadtext.asp,uploadimg.asp

建立一access数据库,叫text.mdb,表叫做imgtable

字段有text1,img两个,还有一个递增的id字段.

代码如下:

upload.htm

quiv = "Content-Type">

showpicture.asp:

<%@ Language=VBScript %>

<%

set conn = server.CreateObject ("adodb.connection")

dbpath = server.MapPath("test.mdb")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpath

set xmldom = server.CreateObject("Microsoft.XmlDom")

xmldom.load(request)

name = xmldom.selectsinglenode("//name").text

sql = "insert into imgtable ( text1 ) values ( '" & name & "' )"

conn.Execute sql

%>

uploadimg.asp:

<%@ Language = VBScript %>

<%

FormSize = Request.TotalBytes '得到数据

FormData = Request.BinaryRead( FormSize )

function ImageUp(formsize,formdata) '这个函数的功能是截取其中的图像部

分。

bncrlf = chrb(13) & chrb(10) '做成函数后。以后你可以自己随意使用了。

divider = leftb(formdata,instrb(formdata,bncrlf)-1)

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

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

imageup = midb(formdata,datastart,dataend)

end function

Image = ImageUp (FormSize,Formdata) '这里就是图像部分了。

set rs = server.CreateObject("adodb.recordset")

strconn = "driver={microsoft access driver (*.mdb)};dbq=" & server.M

apPath("test.mdb")

sql = "SELECT * FROM imgtable order by id desc"

rs.Open sql,strconn,1,3

rs("img").appendchunk Image

rs.Update

rs.Close

response.contenttype = "image/gif"

response.binarywrite imageup(formsize,formdata) '这里是显示图像。表示

成功！

%>