showpic.asp

银行OA系统

<!--#INCLUDE FILE="data.asp" -->
<%

	dim id
	id = request("id")

set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM userinfo WHERE id =1"
rs.Open sql,conn,1,1
response.contenttype="x-mixed-replace"
Response.BinaryWrite rs("photo")
rs.Close


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

'-------------------------
%>