<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>检测结果</title>
</head>
<body bgcolor=#fbfbfb>
<!----="下面是获取表单内部信息">
!---->
<p>
<%
luser = request.form("luser")
lpassword1 = request.form("lpassword1")
lpassword2 = request.form("lpassword2")
lbirthday = request.form("lbirthday")
lemail = request.form("lemail")
lcard = request.form("lcard")
if luser = "" or lpassword1 ="" or lpassword2 ="" or lcard = "" then
response.write("请输入所有的资料")
response.end
end if
if len(luser) < 4 or len(luser)> 10 then
response.write ("你的用户名已超过我们的限定")
response.end
end if
if lpassword1 <> lpassword2 then
response.write ("输入的两次密码不致")
response.End()
end if
if len(lcard)<>15 then
response.write ("你输入的身份证号有误，输入的号码位数应该15")
response.end
end if
if not isnumeric(lcard) then
response.Write("身份证必须为数字格式")
response.end
end if
%>
</p>
<%
dim lconn
set lconn = server.createobject("adodb.connection")
lconn.open ("dsn=lconn")
%>
<%
dim lrs,lsql
set lrs = Server.CreateObject("adodb.recordset")
lsql="insert into reg1(luser,lpassword1,lpassword2,lbirthday,lemail,lcard) values ('"+luser+"','"+lpassword1+"','"+lpassword2+"','"+lbirthday+"','"+lemail+"','"+lcard+"')"
lconn.execute(lsql)
%>
<%
lrs.close
set lrs = nothing
lConn.Close
Set lConn = Nothing
%>
<p> </p>
<p align="center"><font color="#990000"><strong>你已成功注册 </strong></font></p>
</body>
</html>
~~~~~~~~~~~~~~~~~~~~~~~~~~~
上面的就是我的代码，我发现数据也被填入了，怎么会出现这样的提示呢，郁闷啊，
