shopadminvip.asp

. 缓存处理技术

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

<!--#include file="Cnbbr_UserCenter_Left.asp" -->
<%
Dim Act
Act=CheckStr(Trim(Request.Form("Act")))

if Act="shopvip" then
   Dim TempTime
   TempTime=CheckStr(Trim(Request.Form("Time")))
   if not isNum(TempTime) then Call AlertInfo("出错了，请返回重新尝试此操作！","",0)

   if SYS_ShopMonthMoney=0 then Call AlertInfo("出错了，用户店铺缴费功能已被关闭！","",0)

   if SYS_ShopVip=0 then Call AlertInfo("出错了，系统收费店铺功能处于关闭状态！","",0)
   Dim RsShopVip
   Sql="Select BBRMoney from Users Where RegAdmin='N' and RegID="& Request.Cookies(Super_User)("Uid")
   Set RsShopVip=Server.CreateObject("ADODB.RecordSet")
   RsShopVip.Open Sql,conn,1,3
   if RsShopVip.Eof then Call AlertInfo("没有找到此用户或者此用户已经被锁定，请你重新登陆！","Login.asp",1)
   if Cdbl(SYS_ShopMonthMoney)<Cdbl(RsShopVip("BBRMoney")) then
      RsShopVip("BBRMoney")=RsShopVip("BBRMoney")-SYS_ShopMonthMoney
      RsShopVip.Update
   else
      Call AlertInfo("对不起，你的余额不足，请先充值你的个人帐户！","CnbbrPay.asp",1)
   end if
   RsShopVip.Close
   Set RsShopVip=nothing

   TempTime=DateAdd("m",TempTime,now())
   Sql="Update Shops Set ShopStatus=1,ShopCloseTime='"& TempTime &"' Where ShopOwnerid="& Request.Cookies(Super_User)("Uid")
   Conn.execute(Sql)
   if Err then
      Call AlertInfo("出错了，请返回重新尝试此操作！","",0)
   else
      Call AlertInfo("恭喜你，个人店铺缴费成功！","ShopAdminVip.asp",1)
   end if
end if
  sql="select * from users where regid="& Request.Cookies(super_user)("uid")
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if Rs.Eof then Call AlertInfo("出错了，用户不存在或者还没有登陆！","index.asp",1)

  Response.Write Cnbbr_Head
     With Response
 	.Write "<table border=0 cellpadding=0 cellspacing=0 width="""& Sys_BodyCenterWidth &""" align=center class=td>" & Vbcrlf
 	.Write "  <tbody>"& Vbcrlf
 	.Write "   <tr>"& Vbcrlf
 	.Write "    <td align=left valign=top width=150>"& Vbcrlf
	 Disp_CnbbrCenterLeft
 	.Write "    </td>"& Vbcrlf
 	.Write "    <td align=left valign=top>"& Vbcrlf

	Dim rsm,NewMsg
	set rsm=server.createobject("adodb.recordset")
	sql="select msg.msgid,msg.content,msg.reply,msg.writerid,auctions.aucid as aucid2,auctions.aucitemtitle from msg left join auctions on auctions.aucid = msg.aucid where ownerid="&rs("regid")&" and msgstatus=0"
	rsm.open sql,conn,1,1
	CnbbrConnTimes
	if RsM.Eof then
	   NewMsg=0
	else
	   NewMsg=Rsm.RecordCount
	End if
	rsm.close
	set rsm=nothing

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||###|[menu]|店铺管理||[menu]||###|[menu]|店铺自助缴费平台"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

        .Write "<BR>"& Vbcrlf
	.Write "<table border=0 cellpadding=0 cellspacing=0 width=""98%"" class=tablebg align=center>" & Vbcrlf
	.Write " <form name=shopvip method=post action="""" onsubmit=""document.shopvip.submit.disabled=true;"">"& Vbcrlf
	.Write "  <tbody>" & Vbcrlf
	.Write "   <tr>"& Vbcrlf
	.Write "     <td align=center class=titletd><B>个人店铺自助缴费平台</B></td>"& Vbcrlf
	.Write "   </tr>"& Vbcrlf

	.Write "   <tr>" & Vbcrlf
	.Write "     <td height=80 align=center>店铺交费期限：" & Vbcrlf
	.Write "	<select name=time>"& Vbcrlf
	.Write "	<option value=""1"">1个月</option>" & Vbcrlf
	.Write "	<option value=""2"">2个月</option>" & Vbcrlf
	.Write "	<option value=""3"">3个月</option>" & Vbcrlf
	.Write "	<option value=""4"">4个月</option>" & Vbcrlf
	.Write "	<option value=""5"">5个月</option>" & Vbcrlf
	.Write "	<option value=""6"">6个月</option>" & Vbcrlf
	.Write "	<option value=""7"">7个月</option>" & Vbcrlf
	.Write "	<option value=""8"">8个月</option>" & Vbcrlf
	.Write "	<option value=""9"">9个月</option>" & Vbcrlf
	.Write "	<option value=""10"">10个月</option>" & Vbcrlf
	.Write "	<option value=""11"">11个月</option>" & Vbcrlf
	.Write "	<option value=""12"">1年</option>" & Vbcrlf
	.Write "	<option value=""24"">2年</option>" & Vbcrlf
	.Write "	<option value=""36"">3年</option>" & Vbcrlf
	.Write "	<option value=""48"">4年</option>" & Vbcrlf
	.Write "	<option value=""60"">5年</option>" & Vbcrlf
	.Write "	<option value=""120"">永久</option>" & Vbcrlf
	.Write "	</select>" & Vbcrlf
	.Write "	<input name=submit type=submit value=""确定缴费"">"& Vbcrlf
	.Write "     </td>" & Vbcrlf
	.Write "   </tr>" & Vbcrlf
	.Write "  </tbody>" & Vbcrlf
	.Write "</table>" & Vbcrlf

	.Write "    </td>" & Vbcrlf
	.Write "   </tr>" & Vbcrlf
	.Write "  </tbody>" & Vbcrlf
	.Write " <input name=act type=hidden value=""shopvip"">"& Vbcrlf
	.Write " </form>"& Vbcrlf
	.Write "</table>" & Vbcrlf
    End With

Response.Write Cnbbr_Bottom 
%>