showpic.asp

来自「*** ***** 系统进入 *** ***** 系统主文件为index.」· ASP 代码 · 共 21 行

<!--#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

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