edit_shop.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp"-->
<%
Call CheckAdminFlag(TempAdminFlag,2)

Dim Sid:sid=CheckStr(Trim(rst("sid")))
if not isNum(sid) then
   response.write "<script language=javascript>alert('无效的商店id！');history.back(-1);</script>"
   response.end
end if
Dim RsShop
set rsshop=server.createobject("adodb.recordset")
sql="select * from shops where shopid="&sid
rsshop.open sql,conn,1,3
if rsshop.eof then
   response.write "<script language=javascript>alert('没有这个商店耶！');history.back(-1);</script>"
   response.end
end if
Dim BBR_Cpath
BBR_CPath=RsShop("ShopClassPath")
%>
<table align=center cellpadding=0 cellspacing=1 width=98% border=0 class=tablebg>
<form action="editshop.asp" method=post>
<tr><td align=center width=100% colspan=3 class=titletd height=28>以下是商店名为 <font color=#FFFF00><%=rsshop("shopname")%></font> 的详细信息</td></tr>
<tr class=td><td align=right width="40%">商店名称：</td><td width="3%">&nbsp;</td><td align=left><input type=text name=shopname value="<%=rsshop("shopname")%>"></td></tr>

<%
Dim RssUser,ShopOwner
set rssuser=conn.execute("select regusername from users where regid="& rsshop("shopownerid"))
if rssuser.eof then
   shopowner="无此用户"
else
   shopowner=rssuser("regusername")
end if
%>

<tr><td align=right class=td>商店店主：</td><td class=td>&nbsp;</td><td align=left class=td><input type=text name=shopownerid value="<%=shopowner%>" readonly></td></tr>
<tr><td align=right class=td>店铺分类：</td><td class=td>&nbsp;</td><td align=left class=td><!--#include file="../js/Search_ShopClass.asp"--></td></tr>
<tr><td align=right class=td>店铺标志：</td><td class=td>&nbsp;</td><td align=left class=td>
<%
if not isnull(rsshop("shopimage")) then  ReSponse.Write"<img src=""../upfile/ReadDbFile.asp?SID="& RsShop("ShopID") &""" width="& RsShop("ShopImageWidth") &" height="& RsShop("ShopImageHeight") &" border=0 alt="& RsShop("ShopName") &">"
%>
</td></tr>
<tr><td align=right class=td>商店简介：</td><td class=td>&nbsp;</td><td align=left class=td><textarea name=shopintroduce cols=60 rows=6><%=ReHtmlEncode(rsshop("shopintroduce"))%></textarea></td></tr>
<tr><td align=right class=td>商店公告：</td><td class=td>&nbsp;</td><td align=left class=td><textarea name=shopgonggao cols=60 rows=6><%=ReHtmlEncode(rsshop("shopgonggao"))%></textarea></td></tr>

<tr><td align=right class=td>购物指南：</td><td class=td>&nbsp;</td><td align=left class=td><textarea name=shophelp cols=60 rows=6><%=ReHtmlEncode(rsshop("shophelp"))%></textarea></td></tr>
<tr><td align=right class=td>诚信安全：</td><td class=td>&nbsp;</td><td align=left class=td><textarea name=shopcredit cols=60 rows=6><%=ReHtmlEncode(rsshop("shopcredit"))%></textarea></td></tr>

<tr>
  <td align=right class=td>店铺星级：</td><td class=td>&nbsp;</td><td align=left class=td>
	<select name=shopflag>
<%
 Dim Temp1,Temp2,Temp3
 Temp1=RsShop("ShopFlag")
 Temp2="0,1,2,3,4,5,6"
 Temp3="无星级,一星级,二星级,三星级,四星级,五星级,钻石星级"
 Call SelectOper(Temp1,Temp2,Temp3)
%>
	</select>
  </td>
</tr>
<tr>
  <td align=right class=td>首页推荐：</td><td class=td>&nbsp;</td><td align=left class=td>
	<select name=BBR_ShopCommend>
	  <option value=0 <% if rsshop("BBR_ShopCommend")=0 then response.write"selected" %> >不推荐</option>
	  <option value=1 <% if rsshop("BBR_ShopCommend")>=1 then response.write"selected" %> >推荐</option>
	</select>
  </td>
</tr>
<tr>
  <td align=right class=td>首页推荐：</td><td class=td>&nbsp;</td><td align=left class=td>
	<select name=shopcheck>
	  <option value=0 <% if rsshop("shopcheck")=0 then response.write"selected" %> >未审核</option>
	  <option value=1 <% if rsshop("shopcheck")=1 then response.write"selected" %> >已审核</option>
	</select>
  </td>
</tr>
<tr>
  <td align=right class=td>收费状态：</td><td class=td>&nbsp;</td><td align=left class=td>
	<select name=shopstatus>
	  <option value=0 <% if rsshop("shopstatus")=0 then response.write"selected" %> >免费</option>
	  <option value=1 <% if rsshop("shopstatus")=1 then response.write"selected" %> >收费</option>
	</select>
  </td>
</tr>
<tr><td align=right class=td>注册时间：</td><td class=td>&nbsp;</td><td align=left class=td><input type=text name=shopregtime value="<%=rsshop("shopregtime")%>" readonly></td></tr>
<tr><td align=right class=td>收费截止时间：</td><td class=td>&nbsp;</td><td align=left class=td><input type=text name=shopclosetime value="<%=rsshop("shopclosetime")%>"></td></tr>

<tr><td align="center" colspan=3><input type=hidden name=shopid value="<%=rsshop("shopid")%>"><input name=submit type=submit value="修改商店信息">&nbsp;&nbsp;<input name=back type=button value="返回列表" Onclick="location.href='Search_Shop.asp';"></td></tr>
</form>
</table>