<html>
<title>登入验证</title>
<%
name=trim(request("bianhao"))
id=trim(request("mima"))
typ=request.Form("leixing")
if name="" then
response.Redirect("chaxun.asp?message='编号不能为空。'")
else
if id="" then
response.Redirect("chaxun.asp?message='密码不能为空。'")
else
if typ="" then
response.Redirect("chaxun.asp?message='类型不能为空。'")
end if
end if
end if
condition=" where"
condition=condition &"(编号='" &name&"' and 密码='" &id &"')"
if typ="管理员" then
SQLSTR="select 姓名 from 管理员" &condition
else
SQLSTR="select 姓名 from 学生" &condition
end if
set conn=server.createobject("ADODB.connection")
constr="driver={sql server};server=0C2807CF47F6442;uid=sa;pwd=;database=internet"
conn.open constr
set recordset=conn.execute(SQLSTR)
if recordset.eof then
response.Redirect("chaxun.asp?message='不存在的用户,请确认一下信息'")
else
session("bianhao")=name
if typ="学生" then
response.Redirect("student.asp")
else
response.Redirect("teacher.asp")
end if
end if
%>
<body>
</body>
</html>
内容是这个麻烦斑竹了