| 用户名：
|
密 码：
|
验证码：
" maxLength=4 size=6 id="toplogin">
 |
注 册 忘 密 |
<%else%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select jifen,yucun,reglx,vipdate from [userb] where username='"&request.Cookies("Gemisum")("username")&"'",conn,1,3
if rs("vipdate")<>"" then
'看是不是过期VIP
if rs("vipdate")2 then
rs("reglx")=1
rs.update
end if
end if
response.Cookies("Gemisum")("yucun")=rs("yucun")
response.Cookies("Gemisum")("jifen")=rs("jifen")
response.Cookies("Gemisum")("reglx")=rs("reglx")
rs.close
set rs=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
%> |
