bbr_readdbfile.asp

. 缓存处理技术

<!--#include file="Conn_And_Config.asp"-->
<%
Dim TempShopID
TempShopID=CheckStr(Trim(Request.QueryString("SID")))
if IsNum(TempShopID) then

   set rs=Server.CreateObject("adodb.recordset")
   rs.Open "select ShopImage from Shops where ShopId="& TempShopID,conn,1,1
   if rs.eof and rs.bof then
      Response.Write "无图片"
   else
      Response.BinaryWrite rs("ShopImage")
   end if
   rs.Close
   set rs=nothing

End if
%>