xinxi.asp

商城程序 界面漂亮 功能强大 欢迎交流 共同进步

<%if request.cookies("godbook")("shjianame")<>"" then%>
<font color=#ffffff>尊敬的商家您好,欢迎管理您的网上商城！</font>
<%elseif request.cookies("godbook")("username")="" and request.cookies("godbook")("shjianame")="" then%>
<font color=#ffffff>亲爱的顾客您好,购买商品请先 [<a href="login.asp"><font color=#ffffff>登录</font></a>] [<a href="reg.asp"><font color=#ffffff>注册</font></a>] </font>
<%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=#ffffff>"&Request.Cookies("godbook")("username")&" 贵宾您好,您目前有"&Request.Cookies("godbook")("jifen")&"积分,预存款"&Request.Cookies("godbook")("yucun")&"元 </font>"
else
response.write "<font color=#ffffff>"&Request.Cookies("godbook")("username")&" 您好,您目前有"&Request.Cookies("godbook")("jifen")&"积分,预存款"&Request.Cookies("godbook")("yucun")&"元 </font>"
end if
end if
%>