info.asp

asp商城之王

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="17" align="center"><img src="images/main/myshop.gif" width="174" height="34">	</td>
  </tr>
  <tr>
    <td height="17" align="center"> 
      <%if request.cookies("shopzhiwang")("username")="" and request.cookies("shopzhiwang")("shjianame")="" then%>
  <tr> 
      <td height="20" align="center"> <font color="#FF0000">游客您好! </font>          </td>
  </tr>
		<tr> 
          <td height="20" align="center"> 你目前有<font color=red><%=rec_count%></font>种商品在购物车内
          </td>
        </tr>
	<tr> 
          <td height="20" align="center"> 总计￥：<font color=red><%=rs("zongji")%></font>元 
          </td>
  </tr><tr> 
          <td height="8" align="center"></td>
        </tr>
        <tr> 
          <td height="20" align="center"><a href="javascript:;" onClick="javascript:window.open('gouwu.asp?action=show&lx=1','gouwu','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');">查看购物车/结帐&gt;&gt;</a></td>
        </tr>
        <tr> 
          <td height="20" align="center"><a href=user.asp?action=shoucang>我的收藏&gt;&gt;</a></td>
		</tr>
		<tr> 
          <td height="20" align="center"><a href=user.asp><font color="#FF6600"><b>立即在线支付</b></font></a></td>
		</tr>
          <td height="1" background="images/ppb.gif"></td>
        </tr>
	      <%else
		set rs=server.createobject("adodb.recordset")
    	rs.open "select point,yucun,reglx,vipdate from [sh_user] where username='"&request.cookies("shopzhiwang")("username")&"'",conn,1,3
    	if rs("vipdate")<>"" then 
     	'看是不是过期VIP
        if rs("vipdate")<date and rs("reglx")=2 then
        rs("reglx")=1
        rs.update
        end if
        end if
       response.Cookies("shopzhiwang")("yucun")=rs("yucun")
       response.Cookies("shopzhiwang")("point")=rs("point")
       response.Cookies("shopzhiwang")("reglx=")=rs("reglx")
       rs.close
       set rs=nothing
	   if Request.Cookies("shopzhiwang")("reglx")=2 then
	   response.write "<font color=red>"&Request.Cookies("shopzhiwang")("username")&" 贵宾</font>您好，您目前有"&Request.Cookies("shopzhiwang")("point")&"积分，预存款"&Request.Cookies("shopzhiwang")("yucun")&"元"
	   else
	   response.write "<font color=red>"&Request.Cookies("shopzhiwang")("username")&"</font>您好，您目前有"&Request.Cookies("shopzhiwang")("point")&"积分，预存款"&Request.Cookies("shopzhiwang")("yucun")&"元"
	   end if
	   end if
	 %>
</td>
  </tr>
  
</table>