username=request.form("username") password=request.form("password") set rs=server.createobject("adodb.recordset") conn = "DBQ=" + server.mappath("huiyuan.mdb") + ";DefaultDir=; DRIVER={Microsoft Access Driver (*.mdb)};" sql="select * from pUser213 where y_username='"&username&"'" rs.open sql,conn,1,1 if rs.eof then response.write "<script>alert('登錄失敗');history.back();</script>" response.end else if rs("y_password")<>password then response.write "<script>alert('登錄失敗');history.back();</script>" response.end end if session("admin")=username response.write"<script>alert('登錄成功');location.href='index.asp'</script>" end if %>
