%
set rs=server.CreateObject ("ADODB.recordset")
strName=Request("name")
strPass=Trim(Request.QueryString("pws"))
kl=Request("name")
'检查用户权限
strSQL="select * from user where user='" & strName &"' " '查看对应网站下的管理员
rs.open strSQL,conn,1,1
if rs.eof then
response.Write ""
elseif trim(rs("Pws"))<>strPass then
response.Write ""
elseif rs("loge")<>"1" then
response.Write ""
else
Session("LoginName")=strName
Response.Redirect("common6.asp")
end if
%>