<%
if request("action")="save" then
user=trim(request("txt_UserName"))
pass=trim(request("txt_password"))
if user="" then
response.write""
response.end
elseif pass="" then
response.write""
response.end
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from [user] where user='"&user&"' and pass='"&pass&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write""
response.end
elseif rs("zt")=0 then
session("user")=user
response.write ""
response.end
elseif rs("zt")=1 and rs("enddate")alert('您的有效期已过,请充值后使用');location='pay.asp';"
response.end
else
session("user")=user
response.write ""
response.end
end if
rs.close
set rs=nothing
else
%>
<%end if%>