<%@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
%>