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")
conn.open "driver={sql server};database=teacher;server=(local);uid=sa;pwd=810525" 
if username="" or pswd="" then
response.write"帐号或密码不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a>
<%		
response.end
end if
dim sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from glyuan where id='"+username+"'and password='"+pswd+"'"
rs.open sql,conn,1,3

if rs.recordcount=0 then
response.write"对不起，您输入的帐号或密码错误,请重新输入！"
%>
<a href=javascript:history.back()>上一页</a>
<%
response.end
else
session("password")=rs("password")
response.redirect("gl.asp")
end if

rs.close
set rs=nothing
%>