<%if request.cookies("godbook")("shjianame")<>"" then%> <font color=#000000>尊敬的商家您好,欢迎管理您的网上商城！</font> <font color="#000000"> <%elseif request.cookies("godbook")("username")="" and request.cookies("godbook")("shjianame")="" then%> 
亲爱的顾客您好,购买商品请先 [<a href="login.asp" TARGET="_blank">登录</a>] [<a href="reg.asp">注册</a>] 
</font> <font color="#000000"> <%else
set rs=server.createobject("adodb.recordset")
rs.open "select jifen,yucun,reglx,vipdate from [user] where username='"&request.cookies("godbook")("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("godbook")("yucun")=rs("yucun")
Response.Cookies("godbook")("jifen")=rs("jifen")
Response.Cookies("godbook")("reglx=")=rs("reglx")
rs.close
set rs=nothing
if Request.Cookies("godbook")("reglx")=2 then
response.write "<font color=#000000>"&Request.Cookies("godbook")("username")&" 贵宾您好,您目前有"&Request.Cookies("godbook")("jifen")&"积分,预存款"&Request.Cookies("godbook")("yucun")&"元 </font>"
else
response.write "<font color=#000000>"&Request.Cookies("godbook")("username")&" 您好,您目前有"&Request.Cookies("godbook")("jifen")&"积分,预存款"&Request.Cookies("godbook")("yucun")&"元 </font>"
end if
end if
%> </font>