level 2
感性的Queen8
楼主
<%
'OK 现在写处理的步骤
login_name=Request.Form("login-name")'这里是获取表单提交过来的数据
login_pw=Request.Form("login_pw")
'第一步 检测账号是否存在
Set rs=server.CreateObject("adodb.recordset")
sql= "select * from [login_user] where login_name='"&login_name&"'and login_pw='"&login_pw&"'"
rs.Open sql,conn,1,3 '这个地方写错了
If Not rs.Eof Then '如果有此数据
response.redirect "Login.asp?login_name="&login_name&"&login_pw="&login_pw&""
Response.Write "用户名已存在"
response.End
Else '否则
rs.AddNew '添加新数据
rs("login_id")=login_id
rs("login_name")=login_name
rs("name")=name
rs("sex")=sex
rs("age")=age
rs("phone")=phone
rs("address")=address
rs("email")=email
rs("login_pw")=login_pw
rs.Update
Response.Write "恭喜<font color=red>"&login+name&"</font>注册成功!"
End If
rs.Close
Set rs=Nothing
%>
2015年11月10日 12点11分
1
'OK 现在写处理的步骤
login_name=Request.Form("login-name")'这里是获取表单提交过来的数据
login_pw=Request.Form("login_pw")
'第一步 检测账号是否存在
Set rs=server.CreateObject("adodb.recordset")
sql= "select * from [login_user] where login_name='"&login_name&"'and login_pw='"&login_pw&"'"
rs.Open sql,conn,1,3 '这个地方写错了
If Not rs.Eof Then '如果有此数据
response.redirect "Login.asp?login_name="&login_name&"&login_pw="&login_pw&""
Response.Write "用户名已存在"
response.End
Else '否则
rs.AddNew '添加新数据
rs("login_id")=login_id
rs("login_name")=login_name
rs("name")=name
rs("sex")=sex
rs("age")=age
rs("phone")=phone
rs("address")=address
rs("email")=email
rs("login_pw")=login_pw
rs.Update
Response.Write "恭喜<font color=red>"&login+name&"</font>注册成功!"
End If
rs.Close
Set rs=Nothing
%>