<%if request.Cookies("Gemisum")("username")="" then%>
会员登录 | 会员注册
<%else%>
<%
set rsa=server.createobject("adodb.recordset")
rsa.open "select jifen,yucun,reglx,vipdate from [userb] where username='"&request.Cookies("Gemisum")("username")&"'",conn,1,3
if rsa("vipdate")<>"" then
'看是不是过期VIP
if rsa("vipdate")2 then
rsa("reglx")=1
rsa.update
end if
end if
response.Cookies("Gemisum")("yucun")=rsa("yucun")
response.Cookies("Gemisum")("jifen")=rsa("jifen")
response.Cookies("Gemisum")("reglx")=rsa("reglx")
rsa.close
set rsa=nothing
if request.Cookies("Gemisum")("reglx")=3 then
response.write ""&request.Cookies("Gemisum")("username")&" 企业用户您好您目前有"&request.Cookies("Gemisum")("jifen")&"积分,预存款"&request.Cookies("Gemisum")("yucun")&"元 "
Else
if request.Cookies("Gemisum")("reglx")=2 then
response.write ""&request.Cookies("Gemisum")("username")&" 贵宾您好您目前有"&request.Cookies("Gemisum")("jifen")&"积分,预存款"&request.Cookies("Gemisum")("yucun")&"元 "
else
response.write ""&request.Cookies("Gemisum")("username")&" 您好您目前有"&request.Cookies("Gemisum")("jifen")&"积分,预存款"&request.Cookies("Gemisum")("yucun")&"元 "
end if
end if
response.write "进入会员中心"
response.write "注销退出"
end if
%>