register.htm代码如下:<html>
<head>
<link rel="stylesheet" href="common.css" type="text/css">
<script language="vbscript">
<!--
Sub pass2_OnBlur
'判断两次密码是否相同
if formreg.pass1.value <> formreg.pass2.value then
document.formreg.elements(2).focus()
MsgBox"两次输入的密码不一致!"
end if
end Sub
Sub btnreg_OnClick
'判断用户名是否正确
if Trim(formreg.username.value)=Empty then
document.formreg.elements(0).focus()
MsgBox"用户名不能为空!"
exit Sub
else if len(formreg.username.value)>12 then
document.formreg.elements(0).focus()
MsgBox"用户名不能超过12个字符!"
exit Sub
end if
end if
'判断用户密码是否正确
if Trim(formreg.pass1.value)=Empty then
document.formreg.elements(1).focus()
MsgBox"密码不能为空!"
exit Sub
eles if len(formreg.pass1.value)>12 then
document.formreg.elements(1).focus()
MsgBox"密码不能超过12个字符!"
exit Sub
end if
end if
formreg.Submit
end Sub
-->
</script>
<title>同学通讯录</title>
</head>
<body>
<h2>请输入注册信息<h2>
<hr>
<form method="post" name="formreg" action="register.asp">
<p>用&nbsp;户&nbsp;名:<input type="text" name="username" size="12">
(* 必填,最长12个字符)</p>
<p>用户密码:<input type="password" name="pass1" size="12">
(* 必填,最长12个字符)</p>
<p>重输密码:<input type="password" name="pass2" size="12">
(* 必填,最长验证密码)</p>
<p><input type="button" name="btnreg" value="确定">
<input type="reset" value="取消">
</p>
</form>
</body>
</html>
register.asp代码如下:
<html>
<head>
<link rel="stylesheet" href="common.css" type="text/css">
<title>同学通讯录</title>
</head>
<body>
<%
On Error Resume Next
'取得用户名和密码,并删除用户名和密码中的首尾空格
username=Trim(request.form("username"))
userpass=Trim(request.form("pass1"))
%>
<!--#include file="conn.asp" -->
<% '检查用户是否已经存在
commandtext="Select * From t_user where d_user='"&username&"'"
set rs=conn.Execute(commandtext,,adcmdtext)
if rs.eof then
'向表t_user添加数据
commandtext="Insert Into t_user(d_user,d_pass,d_level) values('"&username&"','""&userpass&',1)"
conn.execute commandtext,adcmdtext
if errs.count=0 then
response.write"<p>注册成功!</p>"
response.write"<p>该用户具有查询通讯录的功能,欲取得更高的权限请与管理员联系!</p>"
response.write"<a href='default.asp'>登陆页面</a>"
end if
else
response.write"<p>用户已存在,请选择新的用户名重新注册!</p>"
response.write"<a href='default.asp'>注册页面</a>"
end if
set conn=nothing
%>
</body>
请高手看看,为什么在浏览register.htm时,输入了信息,却进不了register.asp呢?
谢谢!