?? showpic.asp
字號:
<!--#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
'-------------------------
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -