设为首页收藏本站

新微赢技术网

 找回密码
 注册
搜索
热搜: 回贴
查看: 49|回复: 1
打印 上一主题 下一主题

在线求助!!!!!

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-13 08:16:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这个程序运行无错,但就是不能更新数据库的记录,为什么呀,急用呀
<!--#include file="conn.asp" -->
<%set rs=server.createobject("adodb.recordset") %>
<%

name=request("name1")
pwd1=request("pwd0")
pwd1=request("pwd1")
set cn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&name&"'"
rs.Open sql,conn,1,1
if not rs.EOF or rs.bof then
rs.close
set rs=nothing

sql="update admin set admin_pwd='"&pwd1&"' where (admin_name='"&name&"' and admin_pwd='"&pwd1&"')"
set rs=server.createobject("adodb.recordset")
rs.Open sql,conn,3,3
'cn.execute(sql)
response.write "<script language=JavaScript>" & chr(13) & "alert('OK! 信息修改成功!');"&"window.location.href = 'admin.asp'"&" </script>"
set rs1=nothing
else
response.write "<script language=JavaScript>" & chr(13) & "alert('对不起!不能修改!');" & "history.back()" & "</script>"
end if
'cn.close
'set cn=nothing
rs.Close
set rs=nothing
set conn=nothing
%>
您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-19 20:37 , Processed in 0.090850 second(s), 8 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表