请高手指教以下问题,谢谢!
请问一下:以下是一个登录页面代码,当输入为空时应提醒用户名或密码不为空,当输入的用户名和密码不在相应的数据库中的表时,应提醒用户名不存在。但是不知为什么没实现,请高手指教!<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<meta name="author" content="zj"/>
<link href="/wzks/a.css" rel="stylesheet" type="text/css">
<title>登录</title>
</head>
<body background="/images/green.jpg">
<%
'option explicit
dim xuehao,pass,message
if request.form("submit")="登录" then
xuehao=trim(request.form("uname"))
pass=trim(request.form("pwd"))
if xuehao=""or pass="" then
message="用户名或密码不能为空!"
response.write "<script language='vbscript'>msgbox " &message&"</script>"
end if
%>
<!-- #INCLUDE FILE="conn.asp" -->
<%
dim myrs
set myrs=server.CreateObject("ADODB.recordset")
myrs.open "select * from 注册信息 where 学号='"& xuehao &" ' and 密码=' "&pass&" '",myconn,3
if myrs.EOF then
message="用户名和密码错误,请重新输入!"
response.write "<script language='vbscript'>msgbox " &message&"</script>"
else
session("xuehao")=xuehao
response.redirect("exam_instructions.asp")
end if
end if
%>
<center>
<br>
<br>
<form name="myform" action="" method="post">
<p>学 号:<input name="uname" type="text" size="15" /> <font color="red">*此为必填项</font>
<p>密 码:<input type="password" name="pwd" size="15" /> <font color="red">*此为必填项</font>
<p><select name="lx">
<option value="0" >考试类型</option>
<option value="1">计算机操作系统</option>
<option value="2">英语四级</option>
<option value="3">数据库</option>
</select>
<font color="red">*此为必填项</font>
<p>照片上传:<input type="file" name="zhaopian" />
<p><input type="submit" value="登录" name="submit">
<input type="reset" value="取消" >
</form>
<br><br>
<br><br>
<br><br><br><br><br><br>
<a href="/wzks/zhuce.html" target="_blank">新用户注册</a></center>
<br>
<br>
<hr color="#00CC00">
<marquee><font color="#00FF00">欢迎光临,请先登录!新用户请注册!</font></marquee>
</body>
</html>
--------------------编程问答-------------------- 很汗 ASP的
用JS好了
function chkform()
{
if(document.getElementById('用户名输入框ID').value=='')
{
return false;
}
if(document.getElementById('密码输入框ID').value=='')
{
return false;
}
return true;
}
<input type="submit" value="登录" onclick="javascript:return chkform()" name="submit">
欢迎加QQ群15058618 交流
--------------------编程问答-------------------- 没仔细研究过ASP。
if request.form("submit")="登录" then
xuehao=trim(request.form("uname"))
pass=trim(request.form("pwd"))
if xuehao=""or pass="" then
message="用户名或密码不能为空!"
response.write " <script language='vbscript'>msgbox " &message&" </script>"
end if
其中的end if 跟哪个if匹配?改成这样行不?
if request.form("submit")="登录" then
xuehao=trim(request.form("uname"))
pass=trim(request.form("pwd"))
if xuehao=""or pass="" then
message="用户名或密码不能为空!"
response.write " <script language='vbscript'>msgbox " &message&" </script>"
else
%>
<!-- #INCLUDE FILE="conn.asp" -->
<%
dim myrs
set myrs=server.CreateObject("ADODB.recordset")
myrs.open "select * from 注册信息 where 学号='"& xuehao &" ' and 密码=' "&pass&" '",myconn,3
if myrs.EOF then
message="用户名和密码错误,请重新输入!"
response.write " <script language='vbscript'>msgbox " &message&" </script>"
else
session("xuehao")=xuehao
response.redirect("exam_instructions.asp")
end if
end if
%>
<%end if
end if%>
--------------------编程问答-------------------- 你好dxliang2005 ,谢谢你的提醒,我确实没有注意if和else的配对,我在看看。
补充:.NET技术 , ASP.NET