kkk.asp

来自「免费实用家教网整站程序(奥运特别版) v1.5」· ASP 代码 · 共 20 行

<!--#include file="conn.asp"--> 
<% '显示相片页
dim rs
dim adr
dim sql

dim id 
id = request("id")


set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imgdata WHERE num ="&id
rs.Open sql,conn,3,1

response.contenttype="image/*"
Response.BinaryWrite rs("imagedata")
rs.Close
conn.close

%>