本人需要往数据库中插入多张图片,请问用asp该如何实现??
---------------------------------------------------------------
这是我写的 asp + sql server 下正常运行(*用户名及密码)一下全给你做个参考吧:
读数据库中图片数据
1<img =rs("us_number")="" ```="" height="135" src="mem/showimg_1.asp?id=```" width="105"/>
showimg_1.asp写法:
1
2Set Conn = Server.CreateObject("ADODB.Connection")
3Conn.Open "driver={SQL Server};server=***;uid=sa;pwd=****;database=tr_bank;"
4SQL = "SELECT * FROM tr_grmessage where us_number='" & session("user_infoid") & "' "
5Set rs = Server.CreateObject("ADODB.Recordset")
6rs.Open SQL,Conn,1,3
7response.contenttype="image/gif"
8Response.BinaryWrite rs("us_photo")
上传图片:
1<form action="upimage.asp" enctype="multipart/form-data" method="POST" name="form1" target="_blank">
2<p>请选择您要上传的照片:<br/>
3<input name="picture" type="FILE"/>
4<br/>
5<input name="Submit" type="submit" value="提 交"/>
6</p>
7</form>
upimage.asp写法:
1
2dddd=2
3FormSize = Request.TotalBytes
4FormData = Request.BinaryRead( FormSize )
5
6function ImageUp(formsize,formdata)
7bncrlf=chrb(13) & chrb(10)
8divider=leftb(formdata,instrb(formdata,bncrlf)-1)
9datastart=instrb(formdata,bncrlf&bncrlf)+4
10dataend=instrb(datastart+1,formdata,divider)-datastart
11imageup=midb(formdata,datastart,dataend)
12end function
13
14Image=ImageUp (FormSize,Formdata)
15
16Set strconn = Server.CreateObject("ADODB.Connection")
17strconn.Open "Filedsn=SqlServer.dsn;userid=sa;password=****"
18set rs=server.CreateObject("adodb.recordset")
19sql="SELECT * FROM tr_grmessage where us_number='" & session("user_id") & "' "
20rs.Open sql,strconn,1,3
21rs("us_photon")=2
22rs("us_photo").appendchunk Image
23dddd=1
24rs.Update
25rs.Close
26
27response.contenttype="image/gif"
28response.binarywrite imageup(formsize,formdata)
29
1<html>
2<head>
3<title>Untitled Document</title>
4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
5</head>
6<body bgcolor="#FFFFFF" text="#000000">
if dddd=1 then
1您已经成功的上传了照片。
end if
1</body>
2</html>