麻烦各位大侠帮助解决图片由ASP存储到SQL SERVER的问题
我在网上发现了(梦之旅)发的一个贴子,是讲怎么样把图片由ASP存储到ACCESS 2000里,我用此方法把图片存到SQL SERVER中却出现错误:请帮助解决。
源代码:
这是页面:
<head>
<meta http-equiv="Content-Type" content="html/text">
<title>主页</title>
</head>
<body topmargin="0" leftmargin="0">
<script language="javascript">
function B1_click()
{
form1.submit();
form2.submit();
}
</script>
<form method="POST" action="text_save.asp" name="form1">
<input type="text" name="text1"></input>
<input type="button" name="B1" onclick="B1_click()"></input>
</form>
<form method="POST" action="image_save.asp" name="form2">
<input type="file" name="tp"></input>
</form>
存储图片:
<%
set conn=server.createobject("adodb.connection")
conn.open "Driver={SQL Server};Database=usephoto; Server=mjs;UID=sa;PWD="
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")
sql="SELECT * FROM t01"
rs.Open sql,conn,1,3
rs.AddNew '因为表单二在表单一提交的过程中下提交了。
rs("f02").appendchunk Image '所以这里是添加。
rs.Update
rs.Close
response.contenttype="image/jpeg"
response.binarywrite imageup(formsize,formdata) '这里是显示图像。表示成功!
%>
执行到存储图片的
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
行时出现错误
请那位大侠帮我解决这个存储图片的问题,最好能有源代码,
我很着急,请各位帮帮忙了!拜托了!