数据库不能添加数据
2009-04-16 17:00
232 查看
今天弄一个网站,要向数据库里添加数据,不知道为什么就不能添加数据,代码如下:<% set rs=server.CreateObject("adodb.recordset") %>
<% if request("action")="add" then
if len(request("password"))<6 then
response.Write("密码不能小于6位!")
response.End
else
name1=request.Form("name")
pwd=md5(request.Form("password"))
pro=request.Form("quanxian")
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where admin='"&name1&"'"
rs.open sql,conn,1,3
end if
if not rs.eof then
'response.Write "该用户名已经存在"
'response.Write"<br>"
'response.End
response.write "<script language='javascript'>" & chr(13)
response.write "alert('该用户已经存在,请更换其他用户名!');" & Chr(13)
response.write "window.document.location.href='adminadd.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
else
rs.addnew
rs("admin")=name1
rs("password")=pwd
rs("pro")=pro
rs("roleid")=1
rs("time")=now()
rs.update
'response.Write "添加管理员成功!!"
'Response.Write "<a href='adminmanage.asp'>"
'Response.Write "返回"
'Response.Write "</a>"
'response.End
response.write "<script language='javascript'>" & chr(13)
response.write "alert('添加管理员成功!');" & Chr(13)
response.write "window.document.location.href='adminmanage.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end if
end if
%>
看了好久,不知道怎么回事,最后想这个代码是我自己图省事,从以前的代码里弄过来的,是不是代码出错了呢,因此又换了代码,自己有写了一个,呵呵,成功了,真不知道怎么回事??
新代码如下:username=request.form("name")
password=request.form("password")
pro=request.form("quanxian")
roleid=1
dim rs,rsa
set rsa=conn.execute("select * from admin where admin='"&username&"' order by id desc")
if not rsa.eof then
response.Write("<script> alert('用户名已存在,请更换其他用户名!');this.location.href='adminadd.asp';</script>")
else
set rs=conn.execute("insert into admin(admin,password,pro,roleid) values('"&username&"','"&password&"','"&pro&"','"&roleid&"')")
end if
end if
成功添加数据 ok了本文出自 “MyPan's blog” 博客,请务必保留此出处http://mypan.blog.51cto.com/713912/150362
<% if request("action")="add" then
if len(request("password"))<6 then
response.Write("密码不能小于6位!")
response.End
else
name1=request.Form("name")
pwd=md5(request.Form("password"))
pro=request.Form("quanxian")
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where admin='"&name1&"'"
rs.open sql,conn,1,3
end if
if not rs.eof then
'response.Write "该用户名已经存在"
'response.Write"<br>"
'response.End
response.write "<script language='javascript'>" & chr(13)
response.write "alert('该用户已经存在,请更换其他用户名!');" & Chr(13)
response.write "window.document.location.href='adminadd.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
else
rs.addnew
rs("admin")=name1
rs("password")=pwd
rs("pro")=pro
rs("roleid")=1
rs("time")=now()
rs.update
'response.Write "添加管理员成功!!"
'Response.Write "<a href='adminmanage.asp'>"
'Response.Write "返回"
'Response.Write "</a>"
'response.End
response.write "<script language='javascript'>" & chr(13)
response.write "alert('添加管理员成功!');" & Chr(13)
response.write "window.document.location.href='adminmanage.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end if
end if
%>
看了好久,不知道怎么回事,最后想这个代码是我自己图省事,从以前的代码里弄过来的,是不是代码出错了呢,因此又换了代码,自己有写了一个,呵呵,成功了,真不知道怎么回事??
新代码如下:username=request.form("name")
password=request.form("password")
pro=request.form("quanxian")
roleid=1
dim rs,rsa
set rsa=conn.execute("select * from admin where admin='"&username&"' order by id desc")
if not rsa.eof then
response.Write("<script> alert('用户名已存在,请更换其他用户名!');this.location.href='adminadd.asp';</script>")
else
set rs=conn.execute("insert into admin(admin,password,pro,roleid) values('"&username&"','"&password&"','"&pro&"','"&roleid&"')")
end if
end if
成功添加数据 ok了本文出自 “MyPan's blog” 博客,请务必保留此出处http://mypan.blog.51cto.com/713912/150362
相关文章推荐
- 第三篇——JDBC数据库之添加数据
- 向数据库添加100W 条数据 性能测试
- 在MVC4里控制器接受前台数据向数据库添加后发现数据全是 问号???
- JS(javascript)操作数据库->添加数据
- 巧妙使用JQuery Clone 添加多行数据,并更新到数据库的实现代码
- .NET 利用反射将对象数据添加到数据库
- 数据库全备无法正常进行,通过在出现空块的表上添加数据的手段解决
- Scripts:报告物理数据库增长情况(注意脚本是看你数据库添加数据文件的时间哦)dba_db_growth.sql
- thinkPHP5 数据库 添加数据
- MyBatis进行insert操作时不能将数据插入到数据库
- ORACLE数据导入导出后新数据库中某些表添加操作报错[ORA-12899]
- 从网络请求数据添加到数据库
- GridView中向数据库中添加数据的按钮代码
- php添加数据到数据库
- Eclipse中java向数据库中添加数据,更新数据,删除数据
- VC6.0 点击按钮添加ado数据到数据库总是失败
- 网站发布成功上传以后数据不能删除和添加?
- IOS 之sqlite在数据库中添加数据
- jsp数据库基础之--往MySQL数据库添加数据
- shell定制添加数据到数据库2