shopinfo.asp

来自「. 缓存处理技术」· ASP 代码 · 共 114 行

<%
if not rsshop.eof then
%>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
   <tr height=26>
   <td width=6 class=MainMenu_left></td>
   <td align=left class=MainMenu_Right>
	&nbsp;<b><%=rsshop("shopname")%></b>&nbsp;<%=Disp_ShopStar(RsShop("ShopFlag"),1)%>
   </td>
   </tr>
</table>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
   <tr>
   <td width=120>
	<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
	<tr>
	   <td width="100%" align="center">
		<table width="100%" border="0" cellpadding="1" cellspacing="0" align="center">
		 <tr>
		   <td align=center>
		   <%
		      if isnull(rsshop("shopimage")) then 
			 ReSponse.Write"<img src=""shoplogoimg/nologo.gif"" width=""96"" height=""96"" border=0 alt="& RsShop("ShopName") &">"
		      else
			 ReSponse.Write"<img src=""../upfile/ReadDbFile.asp?SID="& RsShop("ShopID") &""" width="& RsShop("ShopImageWidth") &" height="& RsShop("ShopImageHeight") &" border=0 alt="& RsShop("ShopName") &">"
		      end if			
		   %>
		   </td>
		 </tr>
		</table>
	   </td>
    	</tr>
	</table>
   </td>

   <td width="320"><br>
	<table width="308" border="0" cellpadding="2">
	<tr>
	   <td align="right" valign="middle"><strong>店铺掌柜:</strong></td>
	   <td valign="top">
	     <table width=100% cellpadding=0 cellspacing=0 align=center border=0>
	      <tr>
		<td width=40% align=center><a href="../DisplayUser.asp?Uid=<%=RsShopMaster("RegID")%>"><%=rsshopmaster("regusername")%></a></td>
		<td width=60% align=left valign=middle><%=Disp_UserCredit(rsShopMaster("regid"),rsShopMaster("credit"),1)%> &nbsp; <%=Disp_UserIDCard(rsShopMaster("degrade"),1)%></td>
	      </tr>
	     </table>
	   </td>
	</tr>
	<tr>
	   <td align="right" valign="top"><strong>店铺星级:</strong></td>
	   <td align="absmiddle"><%=Disp_ShopStar(RsShop("ShopFlag"),1)%></td>
	</tr>
<%
	dim rsainfo,TempAucC
	set rsainfo=server.createobject("adodb.recordset")
	sql="select count('aucid') as c from auctions where aucitemowner="& rsshopmaster("regid") &" and aucended<>'Y' "
	rsainfo.open sql,conn,1,1
	if RsAInfo.Eof then
 	   TempAucC=0
	else
	   TempAucC=rsainfo("c")
	end if
	RsAInfo.Close
	Set RsAInfo=nothing
%>
	<tr>
	   <td align="right" valign="top"> <strong>出售商品:</strong></td>
	   <td valign="top"><%=TempAucC%> 件</td>
	</tr>
	<tr>
           <td align="right" valign="top"> <strong>创店时间:</strong><br> </td>
           <td valign="top"><%=rsshop("shopregtime")%></td>
	</tr>
	<tr>
	   <td height="18" align="right" valign="top"><strong>掌柜地址:</strong></td>
           <td valign="top"><%=rsshopmaster("regstate")%><%=rsshopmaster("regcity")%></td>
	</tr>
	<tr>
	   <td align="right" valign="top"><strong>联系掌柜：</strong></td>
	   <td valign="top">
<%
Response.write"<iframe width=80 height=30 frameborder=0 scrolling=no src=""../BBRReadQQStatus.asp?UserQQ="& RsShopMaster("Userqq") &"&BBR_UserQQSkins="& RsShopMaster("BBR_UserQQSkins") &"&BBR_UserQQMsg="& Server.URLEncode(RsShopMaster("BBR_UserQQMsg")) &"&SYS_WebName="& Server.URLEncode(SYS_WebName) &"""></iframe>&nbsp;&nbsp;<a href=""../Cnbbrmsg_Write.asp?smsto="& rsShopMaster("RegUserName") &"""><img src=""../skins/"& SKins_FOlder &"/BBRSendMsg.gif"" border=""0"" alt=""发站内短信给用户""></a>" & vbcrlf
%>
	   </td>
	</tr>
	</table>
   </td>

   <td align=right>
	<table width="98%" border="0" cellpadding="0" cellspacing="0">
	<tr>
	   <td colspan="3" height="18" align="left">&nbsp;&nbsp;<strong>店铺公告</strong></td>
	</tr>
	<tr>
	   <td colspan="3" width=100% height=1 class=menutdbg_1></td>
	</tr>
	<tr>
	   <td width=5% /></td>
	   <td width=90% height="100">
		<marquee onmouseover="this.stop()" onmouseout="this.start()" scrollamount="1" scrolldelay="85" direction="up" behavior="scroll" loop="-1"  height="100"><%=rsshop("shopgonggao")%></marquee>
	   </td>
	   <td width=5% /></td>
	</tr>
	</table>
  </td>
  </tr>
</table>

<%
end if
%>