xinxi.asp

电子商务购物系统

                        <%if request.cookies("snsn")("username")="" then%>
                        顾客您好，购买商品请先<a href="login.asp">登录</a>  [<a href="reg.asp">新用户注册</a>]
                        <%else
                        set rs=server.createobject("adodb.recordset")
                        rs.open "select jifen,yucun,reglx,vipdate from [user] where username='"&request.cookies("snsn")("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("snsn")("yucun")=rs("yucun")
                        Response.Cookies("snsn")("jifen")=rs("jifen")
                        Response.Cookies("snsn")("reglx=")=rs("reglx")
                        rs.close
                        set rs=nothing
				if Request.Cookies("snsn")("reglx")=2 then
				response.write "<font color=red>"&Request.Cookies("snsn")("username")&" 贵宾</font>您好，欢迎访问本站，您目前有"&Request.Cookies("snsn")("jifen")&"积分，预存款"&Request.Cookies("snsn")("yucun")&"元"
				else
				response.write "<font color=red>"&Request.Cookies("snsn")("username")&"</font>您好，欢迎访问本站，您目前有"&Request.Cookies("snsn")("jifen")&"积分，预存款"&Request.Cookies("snsn")("yucun")&"元"
				end if
                        end if%>