<% 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 %>