您所在位置：主题：一个问题,麻烦高手指点!
senky
[专家分：60] 发布于 2007-05-10 22:28:00
怎么每次运行都是返回本身这页,搞不明白啦,麻烦高手指点一下,代码如下.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>欢迎界面</title>
</head>
<body bgcolor="#008080">
<P align="center"><img src="image/TOP.jpg" /></P>
<%
dim identity,username,pwd
identity=trim(request.form("selset"))
<!-- 这段连接的表单
<P ALIGN="center">身份登陆:<SELECT name="select">
<OPTION VALUE="student">学生</OPTION>
<OPTION VALUE="teacher">老师</OPTION>
<OPTION VALUE="manager">管理员</OPTION>
</SELECT>
-->
username=trim(request.Form("user"))
pwd=trim(request.Form("pass"))
if identity="manager" then
set rs=server.CreateObject("adodb.recordset")
sql="select* from manager where username='"&username&"'"
sql=sql&"and password='"&pwd&"'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
response.Write("<script>alert('用户不存在或密码错误');history.back();</script>")
response.End()
%>
<%
else
response.Redirect("manager.asp")
end if
end if
if identity="student" then
set rs=server.CreateObject("adodb.recordset")
sql="select* from student where username='"&username&"'"
sql=sql&"and passwor='"&pwd&"'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
response.Write("<script>alert('用户不存在或密码错误');history.back();</script>")
response.End()
%>
<%
else
response.Redirect("student.asp")
end if
end if
if identity="teacher" then
set rs=server.CreateObject("adodb.recordset")
sql="select* from teacher where username='"&username&"'"
sql=sql&"and passwor='"&pwd&"'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
response.Write("<script>alert('用户不存在或密码错误');history.back();</script>")
response.End()
%>
<%
else
response.Redirect("teacher.asp")
end if
end if
%>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>欢迎界面</title>
</head>
<body bgcolor="#008080">
<P align="center"><img src="image/TOP.jpg" /></P>
<%
dim identity,username,pwd
identity=trim(request.form("selset"))
<!-- 这段连接的表单
<P ALIGN="center">身份登陆:<SELECT name="select">
<OPTION VALUE="student">学生</OPTION>
<OPTION VALUE="teacher">老师</OPTION>
<OPTION VALUE="manager">管理员</OPTION>
</SELECT>
-->
username=trim(request.Form("user"))
pwd=trim(request.Form("pass"))
if identity="manager" then
set rs=server.CreateObject("adodb.recordset")
sql="select* from manager where username='"&username&"'"
sql=sql&"and password='"&pwd&"'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
response.Write("<script>alert('用户不存在或密码错误');history.back();</script>")
response.End()
%>
<%
else
response.Redirect("manager.asp")
end if
end if
if identity="student" then
set rs=server.CreateObject("adodb.recordset")
sql="select* from student where username='"&username&"'"
sql=sql&"and passwor='"&pwd&"'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
response.Write("<script>alert('用户不存在或密码错误');history.back();</script>")
response.End()
%>
<%
else
response.Redirect("student.asp")
end if
end if
if identity="teacher" then
set rs=server.CreateObject("adodb.recordset")
sql="select* from teacher where username='"&username&"'"
sql=sql&"and passwor='"&pwd&"'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
response.Write("<script>alert('用户不存在或密码错误');history.back();</script>")
response.End()
%>
<%
else
response.Redirect("teacher.asp")
end if
end if
%>
</body>
</html>
