shopadmin_info.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,3
CnbbrConnTimes
if rsshopadmin.eof then Call AlertInfo("对不起，你还没有申请店铺！","regshop.asp",1)

Dim BBR_CPath
BBR_CPath=Trim(RsShopAdmin("ShopClassPath"))

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


 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 TempImageWidth,TempImageHeight
   TempImageWidth=CheckStr(Trim(Request.Form("imagewidth")))
   TempImageHeight=CheckStr(Trim(Request.Form("imageheight")))






   rsshopadmin("shopname")=CheckStr(HTMLEncode(trim(Request.Form("shopname"))))
   if isNum(TempImageWidth) then rsshopadmin("shopimagewidth")=TempImageWidth
   if isNum(TempImageHeight) then rsshopadmin("shopimageHeight")=TempImageHeight
   rsshopadmin("shopintroduce")=CheckStr(HTMLEncode(trim(Request.Form("shopintroduce"))))
   rsshopadmin("shopgonggao")=CheckStr(HTMLEncode(trim(Request.Form("shopgonggao"))))

   rsshopadmin("ShopClassPath")=BBR_ClassPath
   rsshopadmin.update

   if Err then
      Call AlertInfo("出错了，店铺信息更新失败，请返回重新尝试！","",0)
   else
      Call AlertInfo("店铺基本配置信息更新成功！","ShopAdmin_Info.asp?BBRpath="& Server.URLEncode(BBR_ClassPath),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" 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]||###|[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>店铺信息设置</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="<%=rsshopadmin("shopname")%>"> <font color=red>*</font></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 ><iframe id=frame1 width=280 height=28 scrolling=no src=upfile/uplogo.asp border=0 frameborder=0></iframe></td>
	   	    </tr>
		   <% if not isnull(rsshopadmin("shopimage")) then %>
	  	    <tr class=td>
			<td align=right >标志预览：</td><td ></td><td align=left><img src="upfile/ReadDbFile.asp?SID=<%=RsShopAdmin("ShopID")%>" width=<%=RsShopAdmin("ShopImageWidth")%> height=<%=RsShopAdmin("ShopImageHeight")%> border=0 alt=""></td>
	   	    </tr>
	  	    <tr class=td>
			<td align=right >标志宽度：</td><td ></td><td align=left ><input type=text name=imagewidth value="<%=rsshopadmin("shopimagewidth")%>"> <font color=red>*</font></td>
	   	    </tr>
	  	    <tr class=td>
			<td align=right >标志高度：</td><td ></td><td align=left ><input type=text name=imageheight value="<%=rsshopadmin("shopimageHeight")%>"> <font color=red>*</font></td>
	   	    </tr>
		   <% end if %>
	  	    <tr class=td>
			<td align=right >店铺简介：</td><td ></td><td align=left ><textarea name=shopintroduce cols=38 rows=6><%=ReHtmlEncode(rsshopadmin("shopintroduce"))%></textarea> <font color=red>*</font></td>
	   	    </tr>
	  	    <tr class=td>
			<td align=right >店铺公告：</td><td ></td><td align=left ><textarea name=shopgonggao cols=38 rows=6><%=ReHtmlEncode(rsshopadmin("shopgonggao"))%></textarea></td>
	   	    </tr>
	  	    <tr class=titletd>
			<td width=100% colspan=3 align=center><input name=editact 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 %>