28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "UID=*****;PWD=*****;driver={Microsoft ODBC for Oracle};SERVER=*****;"
conn.Open
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "SELECT [pic] FROM [image] WHERE [id]=1", conn, 1, 1
Response.ContentType = "image/*"
Response.BinaryWrite rs("img").getChunk(7500000)
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>