<!--
┌─9911.com.cn────────────┐
│  動感購物 WWW.9911.com.cn 版權所有  │
│  動感購物2005Vb  聯系：web@snsn.net │
└───────────9911.com.cn──┘
-->
                         <%if session("username")="" then%>
&nbsp;<a href="login.asp">登錄</a>∣<a href="getpwd.asp">忘記密碼</a>
<%else
						set rs=server.createobject("adodb.recordset")
                        rs.open "select jifen,yucun,reglx,vipdate from [shop_user] where username='"&session("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
                        yucun=rs("yucun")
						if yucun<>"" then
                        session("yucun")=yucun
						end if
                        session("jifen")=rs("jifen")
                        session("reglx")=rs("reglx")
                        rs.close
                        set rs=nothing
				if session("reglx")=2 then
				response.write " &nbsp;&nbsp;<font color=red>"&session("username")&" (VIP會員)貴賓</font>您好，您目前有"&session("jifen")&"積分,預存款"&yucun&"元"
				else
				response.write " &nbsp;&nbsp;<font color=red>"&session("username")&"(普通會員)</font>您好，您目前有"&session("jifen")&"積分,預存款"&yucun&"元"
				end if
                        end if%>