<%@ Language=VBScript %>
<%
Response.Buffer=false
ice=Request.Form("icname")
ps=Request.Form("password")
mysql="select * from mm where icname='" &ic& "' and password='" &ps&"'"
set conn=server.CreateObject("adodb.connection")
DBPath=Server.MapPath("data/student.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rstmp=server.createobject("adodb.recordset")
rstmp.Open mysql,conn,1,1
iCount=rstmp.RecordCount
rstmp.Close
conn.Close
set rstmp=nothing
set conn=nothing
if iCount<>1 then
response.write("错误:<p>用户不存在或密码错误<p><a href=javascript:history.back()>按此返回>></a>")
else
session("pass")="true"
Response.Redirect "yy.htm"
end if
%>