check.asp

教师在线查分系统

<%@language=vbscript%>
<!--#include file="adovbs.inc"-->
<%
dim username,pword
username=trim(request.form("username"))
pswd=trim(request.form("password"))
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("teacher.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
if username="" or pswd="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('对不起，帐号或密码不能为空！');" & "history.back()" & "</script>" 
%>

<%		
response.end
end if
dim sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where name='"+username+"'and password='"+pswd+"'"
rs.open sql,conn,1,3

if rs.recordcount=0 then
response.write "<script language=JavaScript>" & chr(13) & "alert('对不起，您输入的帐号或密码错误,请重新输入！');" & "history.back()" & "</script>" 

%>

<%
response.end
else
session("password")=rs("password")
response.redirect("gl.asp")
end if

rs.close
set rs=nothing
%>