<!--#include file=CONN.ASP-->
<!--#include file=cookies.asp-->
<%
dim flag
flag=request.cookies("foxwww")("fox")
if flag=10 then
response.Write "<script LANGUAGE='javascript'>alert('您只是后台测试员，请注意身份！');window.location='right.asp';</script>"
response.end
end if%>
<%
dim rs,sql,username
username=replace(trim(request("username")),"'","‘")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select id,username from [FOX_user] where username='"&username&"'" 
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>还没有用户数据或者被删除！"
response.end
end if
Response.cookies("fox")("username")=rs("username")
Response.cookies("fox")("domain")=Request.ServerVariables("SERVER_NAME")
Response.cookies("fox")("id")=rs("id")
rs.close
set rs=nothing
closedb
response.redirect "../userhome.asp"
%></body></html>