<!--#include file="inc/userconn.inc"-->
<%
sql = "SELECT top 1 username,password,sumjifen FROM user where Username='梏鴻影'"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,1
if rs("sumjifen")=0 then 
Session("userleavel")=1
else
        sql1 = "select * from discount"
        Set rs1=Server.CreateObject("ADODB.RecordSet") 
        rs1.open sql1,conn,1,1
        for i=1 to rs1.recordcount
            if rs("sumjifen")>=rs1("jifen") then session("userleavel")=rs1("leavel")
            rs1.movenext
            next
end if
response.write session("userleavel")
%>