info_user.asp

来自「网上购物,不错的购物系统,花了好长时间来改的」· ASP 代码 · 共 36 行

<table width="178" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/main/hydl.gif" width="178" height="34"></td>
  </tr>
</table>

<%if request.cookies("shopzhiwang")("username")="" and request.cookies("shopzhiwang")("shjianame")="" then%>

<!--#include file="info_user_main.asp" -->
<div align="center">
  <%
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 "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>"&Request.Cookies("shopzhiwang")("username")&" 贵宾</font>您好<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您目前积分为"&Request.Cookies("shopzhiwang")("point")&"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;预存款"&Request.Cookies("shopzhiwang")("yucun")&"元"
	   else
	   response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>"&Request.Cookies("shopzhiwang")("username")&"</font>您好<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您目前积分为"&Request.Cookies("shopzhiwang")("point")&"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;预存款"&Request.Cookies("shopzhiwang")("yucun")&"元"
	   end if
	   end if
	 %>
</div>