info1.asp

asp商城之王

<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="34" align="center" valign="top"> 
      <p>
        <%if request.cookies("shopzhiwang")("username")="" and request.cookies("shopzhiwang")("shjianame")="" then%>
        <span class="style1">顾客您好!购买商品请先 </span> </p>
      <p><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 [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
	 %>
	      </p></td>
  </tr>
</table>