shopadmin_credit.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)
end if


if request.form("editact")="shop" then
   Dim ShopCredit
   shopcredit=InterceptString(CheckStr(HTMLEncode(trim(Request.Form("content1")))),2000)
   rsshopadmin("shopcredit")=shopcredit
   rsshopadmin.update
   Call AlertInfo("店铺诚信与安全提醒修改成功！","",0)
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_Credit.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=myform method=post action="shopadmin_credit.asp">
	  	    <tr class=titletd>
			<td width=100% align=center>店铺诚信与安全提醒</td>
	   	    </tr>
	  	    <tr class=td>
			<td align=left />
			<textarea name="content1" style="width:400px" rows="9" wrap="VIRTUAL">

<%
if rsshopadmin("shopcredit")="" or isnull(rsshopadmin("shopcredit")) then
   Response.write rsshopadmin("shopcredit")
else
   response.write ReHtmlEncode(rsshopadmin("shopcredit"))
end if
%>
			</textarea>
			</td>
	   	    </tr>
	  	    <tr class=titletd>
			<td width=100% align=center><input name=editact type=hidden value="shop">	<INPUT type=submit name=b1 value="提交设置"> <INPUT type=reset name=b2 value="重填"> </td>
	   	    </tr>
		    </form>
	   	  </tbody>
	   	  </table>
		</td>
	     </tr>
	   </tbody>
	   </table>
	</td>
   </tr>
</tbody>
</table>
<% Response.Write Cnbbr_Bottom %>