chkusershop.asp

. 缓存处理技术

<%
Dim MyShopStatus,MyShopOwner
MyShopStatus=0
MyShopOwner=0
dim rschkshop
set rschkshop=server.createobject("adodb.recordset")
rschkshop.open "select Shops.ShopOwnerID,shops.shopflag,shops.shopstatus,users.regid from shops,users where shops.shopownerid=users.regid and users.regid="&Request.Cookies(super_user)("Uid"),conn,1,1
CnbbrConnTimes
if rschkshop.eof then
   Call AlertInfo("你还没有申请开通你的店铺，请先申请开通！","Regshop.asp",1)
else
   MyShopStatus=RsChkShop("ShopStatus")
   MyShopOwner=RsChkShop("ShopOwnerID")
end if
rschkShop.close
Set rsChkShop=nothing
%>