标题:信息修改后,数据库没有更新,数据库的权限没有问题。请教。
取消只看楼主
创可贴1
Rank: 1
等 级:新手上路
帖 子:15
专家分:3
注 册:2012-8-31
结帖率:100%
 问题点数:0 回复次数:0 
信息修改后,数据库没有更新,数据库的权限没有问题。请教。
<%
id=request.QueryString("id")
if id="" then response.Redirect("index.asp")
set rs = server.CreateObject("adodb.recordset")
exec="select * from user where id="&id
rs.open exec,conn,1,1
%>
<%do while not rs.eof%>
<html>
<head>
<title>修改系统</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head><body background="images/tbg.JPG">
<body bgcolor="#ffffff" text="#000000" onunload="window.opener.location.reload();">
<p align="center"><font face="宋体" size="2" color="#ff0000">信息修改</font><font size="2"><br>
  <br>
 </font> <form method="POST" action="usersave3.asp">
        <input type="hidden" value=<%=rs("id")%> name="id">
  <table width="71%" border="0" cellpadding="0" cellspacing="0" align="center" id="table1">
    <tr>
      <td align="left">
        <p align="justify"><font size="2">姓名:</font></td>
      <td>
        <input type="text" name="姓名" size="20" value="<%=rs("姓名")%>"><font size="2"> </font></td>
    </tr>
    <tr>
      <td align="left">
        <p align="justify"><font size="2">工号:</font></td>
      <td>
        <input type="text" name="工号" size="20" value="<%=rs("工号")%>"><font size="2"> </font></td>
    </tr>
    <tr>
      <td align="left">
        <p align="justify"><font size="2">手机:</font></td>
      <td>
        <input type="text" name="手机" size="20" value="<%=rs("手机")%>"><font size="2"> </font></td>
    </tr>
。。。
<%end if%>
       </select></font></td>
        <input name="id" size="20" value="<%=rs("id")%>" type=hidden>
    </tr><%
'conn.Close
set conn = nothing
set rs2 = nothing
rs.movenext
loop
%>
          <input type="submit" name="submit" value="修改"><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;
        </font> <input type="reset" name="submit2" value="重写"><br>
 

usersave3.asp如下:

<%
if request("姓名")=""then '--------------判断名字是否为空
        response.write"<script language='javascript'>"
         response.write"alert('姓名不能为空!');"
         response.write"history.go(-1);"
         response.write"</script>"
         response.end
end if
%>
<%
dim id,xm,gh,sj,bz,gsbm,bmgl,yx,lb
id=trim(request("id"))
xm=trim(request("姓名"))
gh=trim(request("工号"))
sj=trim(request("手机"))
。。。
%>
<%
set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from user where id="&id
rs.open sql,conn,1,3
%>
<%
 rs("姓名")=xm
 rs("工号")=gh
 rs("手机")=sj
。。。
rs.update
rs.close
set rs=nothing
response.write("修改完成!")
%>
<p align="center"><p align="center">
<img src="Images/succ.gif">
</p>
<center><font size="2"><%
response.write("命令执行成功,修改完成!")
%><p></p>
 请继续操作!
<br>
<br>
<a href="#" onClick="javascript:window.opener=null;window.close();"><font size="2">点击关闭</font>
</center>





[ 本帖最后由 创可贴1 于 2012-9-27 15:37 编辑 ]
搜索更多相关主题的帖子: ffffff content background 数据库 
2012-09-27 15:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-382206-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.503165 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved