check.asp

多媒体学习教育软件

<!--#include file="conn.asp"-->
<%
dim name,psw
name=request.form("name")
psw=request.form("psw")
dim exec,rs
exec="select *from user where(name='"&name&"' and psw='"&psw&"')"

conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/data.mdb")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
session("check")="yes"
session("name")=name
response.Redirect "start.asp"
else
session("check")="no"
response.write"<SCRIPT language=JavaScript>alert('错误的用户名、密码，请重新输入！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
%>