登录验证.asp

来自「学生管理系统」· ASP 代码 · 共 33 行

<!--#include file="conn.asp"-->
<%
pos=request.form("position")
user=request.form("no")
pwd=request.form("pass")
if user="" then
response.Write("<script>alert('用户名不能为空');history.back();</script>")
response.End()
end if
if pwd="" then
response.Write("<script>alert('密码不能为空');history.back();</script>")
response.End()
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from 注册 where 学号='"&user&"'and 密码='"&pwd&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.Write("<script>alert('用户未注册');history.back();</script>")
response.End()
else
if pos="teacher" then
response.redirect "next.html"
else if pos="学生" then
response.redirect "学生登录页面.asp"
end if
end if
end if

%>