info.asp

一个ASP做的购物车

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="34" align="center"> 
      <%if request.cookies("cnhww")("username")="" and request.cookies("cnhww")("shjianame")="" then%>
	亲爱的顾客您好，购买商品请先<a href="login.asp">[<strong>登录</strong></a>] [<a href="reg.asp"><strong>新用户注册</strong></a>] 
	<%else
		set rs=server.createobject("adodb.recordset")
    	rs.open "select point,yucun,reglx,vipdate from [wq_user] where username='"&request.cookies("cnhww")("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("cnhww")("yucun")=rs("yucun")
       response.Cookies("cnhww")("point")=rs("point")
       response.Cookies("cnhww")("reglx=")=rs("reglx")
       rs.close
       set rs=nothing
	   if Request.Cookies("cnhww")("reglx")=2 then
	   response.write "<font color=red>"&Request.Cookies("cnhww")("username")&" 贵宾</font>您好，您目前有"&Request.Cookies("cnhww")("point")&"积分，预存款"&Request.Cookies("cnhww")("yucun")&"元"
	   else
	   response.write "<font color=red>"&Request.Cookies("cnhww")("username")&"</font>您好，您目前有"&Request.Cookies("cnhww")("point")&"积分，预存款"&Request.Cookies("cnhww")("yucun")&"元"
	   end if
	   end if
	 %>
	</td>
  </tr>
</table>