查看完整版本: 用户名和密码检测

用户名和密码检测

<%
x=request.Form("mail")
y=request.Form("password")
%>
<!--#include file="inc/conn1.asp"-->
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from yhxx where mail='"&x&"' and password='"&y&"'"
rs.open sql,conn,1,3
%>
<%
if not(rs.eof and rs.bof) then
session("a")=x
response.write("<script language=javascript>location='home.asp';</script>")
else
response.write("<script language=javascript>alert('用户名或密码不对请重新输入！');location='login.asp';</script>")
end if
%>