xinxi.asp

来自「商业网站开发有源代码可以运行」· ASP 代码 · 共 26 行

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