shopadmin_commend.asp

. 缓存处理技术

<!-- #include file="top_Cnbbr.asp" -->
<!-- #include file="chksession.asp" -->

<!--#include file="Cnbbr_UserCenter_Left.asp" -->
<%
Dim TempShopName,TempShopID
Sql="Select ShopID,ShopName from Shops where ShopOwnerID="& Request.Cookies(Super_user)("UId")
Set Rs=Conn.execute(Sql)
if Rs.Eof then
   Call AlertInfo("你还没有申请开通店铺，快快免费申请开通吧！","regShop.asp",1)
else
   TempShopID=Rs("ShopID")
   TempShopName=Rs("ShopName")
end if

Response.Write Cnbbr_head
%>
<table border=0 cellpadding=0 cellspacing=0 width=<%=Sys_BodyCenterWidth%> align="center" class="td">
 <tbody>
  <tr>
   <td align=left valign=top width=150>
	<%=Disp_CnbbrCenterLeft%>
   </td>
   <td align=center valign="top">
<%
	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||###|[menu]|店铺管理||[menu]||ShopAdmin_Commend.asp|[menu]|个人店铺首页自助推荐平台"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)
%>
	   <!-- 右边部份的内容开始 -->
	   <table align=top border=0 cellpadding=1 cellspacing=1 width="100%" class=tablebg>
	   <tbody>
	     <tr class=td>
	 	<td width=100% align=center>
		  <br><br>
	   	  <table border=0 cellpadding=0 cellspacing=1 width="60%" class=tablebg>
	   	  <tbody>
		    <form name=StarShopForm method=post action="BBR_ShopIndexCommend.asp?BBR_SellerCommend=1">
	  	    <tr class=titletd>
			<td width=100% align=center><B>首页店铺推荐平台</B></td>
	   	    </tr>
	  	    <tr class=td>
			<td width=100% height=30 align=center>店铺名称：<span Class=FontColor_2><%=TempShopName%></span></td>
	   	    </tr>
	  	    <tr class=titletd>
			<td width=100% align=center>
			<input name=act type=hidden value="shop">
			<input name=id type=hidden value="<%=TempShopID%>">
			<INPUT type=submit name=b1 value="推荐我的店铺"> 
			</td>
	   	    </tr>
		    </form>
	   	  </tbody>
	   	  </table>
		</td>
	     </tr>
	   </tbody>
	   </table>
	</td>
   </tr>
</tbody>
</table>
<% Response.Write Cnbbr_Bottom %>