regshop.asp

. 缓存处理技术

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

<!--#include file="Cnbbr_UserCenter_left.asp" -->
<%
Dim RsShopAdmin
sql="select * from shops where shopownerid="& Request.Cookies(super_user)("uid")
set rsshopadmin=server.CreateObject("ADODB.recordset")
rsshopadmin.Open sql,conn,1,1

if not rsshopadmin.eof then Call AlertInfo("对不起，你已经申请过店铺了！","shopadmin_info.asp",1)

Dim BBR_CPath
BBR_CPath=""

if request.form("addact")="shop" and request.form("shopname")<>"" and request.form("shopintroduce")<>"" then

 Call Cnbbr_CheckPost(0)
 Dim BBR_S1,BBR_S2,BBR_S3,BBR_S4,BBR_ClassPath
 BBR_S1=CheckStr(Trim(Rst("S1")))
 BBR_S2=CheckStr(Trim(Rst("S2")))
 BBR_S3=CheckStr(Trim(Rst("S3")))
 BBR_S4=CheckStr(Trim(Rst("S4")))
 if Not isNum(BBR_S1) then BBR_S1=0
 if Not isNum(BBR_S2) then BBR_S2=0
 if Not isNum(BBR_S3) then BBR_S3=0
 if Not isNum(BBR_S4) then BBR_S4=0

 BBR_ClassPath=Cstr(BBR_S1&"|"&BBR_S2&"|"&BBR_S3&"|"&BBR_S4)
 BBR_ClassPath=Replace(BBR_ClassPath,"|0","")
 if Cstr(BBR_ClassPath)="0" then Call ALertInfo("请选择店铺分类！","",0)

   Dim ShopName,ShopIntroduce,ShopImgUrl
   shopname=HTMLENCODE(trim(request.form("shopname")))
   shopintroduce=HTMLENCODE(trim(request.form("shopintroduce")))

   if ShopAutoCheck=0 then
      ShopAutoCheck=1
   else
      ShopAutoCheck=0
   end if 
   
   On Error Resume Next
   sql="insert into shops (shopname,shopownerid,shopintroduce,ShopClassPath,shopflag,shopstatus,shopregtime,shopclosetime,shopcheck) values ('"& shopname &"',"& Request.Cookies(super_user)("uid") &",'"& shopintroduce &"','"& BBR_Classpath &"',0,"& ShopAutoCheck &",'"& now() &"','"& now() &"','"& ShopAutoCheck &"')"
   conn.execute(sql)
   if Err then
      Call ALertInfo("出错了，请返回重新申请开店！","",0)
   else
      if Err then Call AlertInfo("操作出现异常错误，请返回重新填写！","",0)
      if SysCount(3,1)=False then Call AlertInfo("操作出现异常错误，店铺申请失败，请返回重新填写！","",0)

      Call AlertInfo("恭喜你，你的店铺已经开通了！","ShopAdmin_Info.asp",1)
   end if
end if
%>
<script language="JavaScript">
<!--
function chkshopform(){
   var theform=document.shopform;
   if (theform.shopname.value==""){
	alert('请填写店铺的名称');
	theform.shopname.focus();
	return false;
   }
   if (theform.shopintroduce.value==""){
	alert('请填写店铺的简介');
	theform.shopintroduce.focus();
	return false;
   }
return true;
}
//-->
</script>
<%
Response.Write Cnbbr_Head
%>
<table border=0 cellpadding=0 cellspacing=0 width=<%=Sys_BodyCenterWidth%> align=center>
<tbody>
   <tr>
	<td align=left valign=top width=150>
	<%=Disp_CnbbrCenterLeft%>
	</td>
	<td width=5>&nbsp;</td>
	<td align=left valign=top>

	   <!-- 右边部份的内容开始 -->
<%
	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||RegShop.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="80%" class=tablebg>
	   	  <tbody>
		    <form name=shopform method=post action="" OnSubmit="return chkshopform();">
	  	    <tr class=titletd>
			<td width=100% colspan=3 align=center><B>申 请 店 铺</b></td>
	   	    </tr>
	  	    <tr class=td>
			<td width=20% align=right >店铺名称：</td><td width=2% ></td><td width=68% align=left ><input name=shopname type=text value=""> *</td>
	   	    </tr>
	  	    <tr class=td height=32>
			<td width=20% align=right >店铺分类：</td><td width=2% ></td><td width=68% align=left><!-- #include file="Js/Search_ShopClass.asp" --> <font color=red>*</font></td>
	   	    </tr>
	  	    <tr class=td>
			<td align=right >店铺简介：</td><td ></td><td align=left ><textarea name=shopintroduce cols=38 rows=6></textarea> *</td>
	   	    </tr>
	  	    <tr class=titletd>
			<td width=100% colspan=3 align=center><input name=addact type=hidden value="shop"><input name=submit type=submit value="申请开通"></td>
	   	    </tr>
		    </form>
	   	  </tbody>
	   	  </table>
		</td>
	     </tr>
	   </tbody>
	   </table>
	</td>
   </tr>
</tbody>
</table>
<% Response.Write Cnbbr_Bottom %>