showpic.asp

*** ***** 系统进入 *** ***** 系统主文件为index.htm 系统超级用户 用户名:lhh 密码:lhh *** ***** 系统功能说明 *** ****

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

set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM userinfo WHERE id="&request("id")
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

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