xinxi.asp

购物系统(本版为正式商业版

<!--
┌─9911.com.cn────────────┐
│  动感购物 WWW.9911.com.cn 版权所有  │
│  动感购物2005Vb  联系：[e-mail] │
└───────────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%>