这段更新的代码有错误吗?

Marrylily 2008-06-12 04:59:21
为什么以下代码总是显示这样的错误原因呢?
[color=#FF0000][color=#FF0000]?[Microsoft][ODBC Microsoft Access Driver] 由于其 Required 属性设置为真(True),字段 'users.u_user' 不能包含 Null 值。在此字段中输入一个数值


<%
on error resume next
set rst=server.CreateObject("adodb.recordset")
id=request.querystring("id")
if request.QueryString("act")="xiugai" then
conn.begintrans
rst.open "select * from users where u_id=" & id,conn,1,3
rst("u_user")=request.Form("f_user")
rst("u_code")=request.Form("f_code")
rst("u_name")=request.Form("f_name")
rst("u_sex")=request.Form("f_sex")
rst("u_age")=request.Form("f_age")
rst.update
if err.number<>0 then
conn.rollbacktrans
response.Write "修改会员失败!"
response.write err.description
else
conn.committrans
response.Write "修改会员成功!"
end if
end if
%>
...全文
77 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
jhwcd 2008-06-13
  • 打赏
  • 举报
回复
<!-- #include file="add.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
-->
</style></head>

<body>

<%
on error resume next
if request.QueryString("act")="xiugai" then
id=request("id")
conn.begintrans
set rst=server.CreateObject("ADODB.recordset")
sql="select * from users where u_id="&id
rst.open sql,conn,1,3
rst("u_user")=request.form("f_user")
rst("u_code")=request.form("f_code")
rst("u_name")=request.form("f_name")
rst("u_sex")=request.form("f_sex")
rst("u_age")=request.form("f_age")
rst.update
if err.number<>0 then
conn.rollbacktrans
response.Write "修改会员失败!"
response.write err.description
else
conn.committrans
response.Write "修改会员成功!"
end if
else

%>

<table width="800" height="747" border="0" align="center" cellpadding="0" cellspacing="0" background="img/hyzlxg.jpg">
<tr>
<td height="443" align="center" valign="middle">
<%
set rst=server.CreateObject("adodb.recordset")
rst.open "select * from users where u_id="&request.QueryString("id"),conn,1,1
%>
<form method="post" action="xiugai.asp?act=xiugai&id=<%=request("id")%>">
<table width="691" height="330" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center"><a href="guanli.asp">返回会员列表</a></td>
</tr>
<tr>
<td colspan="2" align="center">请在下面修改会员资料!</td>
</tr>
<tr>
<td width="296" align="right">用户名:</td>
<td width="395" align="left"><input type="text" size=20 name="f_user" value="<%=rst("u_user")%>"></td>
</tr>
<tr>
<td align="right">密 码:</td>
<td align="left"><input type="text" size=20 name="f_code" value="<%=rst("u_code")%>"></td>
</tr>
<tr>
<td align="right">姓 名:</td>
<td align="left"><input type="text" size=20 name="f_name" value=<%=rst("u_name")%>></td>
</tr>
<tr>
<td align="right">性 别:</td>
<td align="left"><select name="f_sex" id="f_sex" value="<%=rst("f_sex")%>">
<option value="男" selected="selected">男</option>
<option value="女"<% if rst("u_sex")="女" then response.write "selected"%>>女
</select> </td>
</tr>
<tr>
<td align="right">年 龄:</td>
<td align="left"><input type="text" name="f_age" size=10 value="<%=rst("u_age")%>"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="修改会员资料"> <input type="reset" value="重置表单" name="reset"></td>
</tr>
</table>

</form>




</td>
</tr>
</table>
<%
rst.close
Set rst=Nothing
End If
%>
</body>
</html>
jhwcd 2008-06-13
  • 打赏
  • 举报
回复
改成这样看看
<% 
on error resume next
if request.QueryString("act")="xiugai" then
id=request.querystring("id")
conn.begintrans
set rst=server.CreateObject("ADODB.recordset")
sql="update users where u_id="&id
rst.open sql,conn,1,3
rst("u_user")=request.form("f_user")
rst("u_code")=request.form("f_code")
rst("u_name")=request.form("f_name")
rst("u_sex")=request.form("f_sex")
rst("u_age")=request.form("f_age")
rst.update

if err.number<>0 then
conn.rollbacktrans
response.Write "修改会员失败!"
response.write err.description
else
conn.committrans
response.Write "修改会员成功!"
end if
rst.close
Set rst=nothing
else

%>

<table width="800" height="747" border="0" align="center" cellpadding="0" cellspacing="0" background="img/hyzlxg.jpg">
<tr>
<td height="443" align="center" valign="middle">
<%
set rst=server.CreateObject("adodb.recordset")
rst.open "select * from users where u_id="&request.QueryString("id"),conn,1,1%>
<form method="post" action="xiugai.asp?act=xiugai&id=<%=request.querystring("u_id")%>">
<table width="691" height="330" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center"><a href="guanli.asp">返回会员列表</a></td>
</tr>
<tr>
<td colspan="2" align="center">请在下面修改会员资料!</td>
</tr>
<tr>
<td width="296" align="right">用户名:</td>
<td width="395" align="left"><input type="text" size=20 name="f_user" value="<%=rst("u_user")%>"></td>
</tr>
<tr>
<td align="right">密 码:</td>
<td align="left"><input type="text" size=20 name="f_code" value="<%=rst("u_code")%>"></td>
</tr>
<tr>
<td align="right">姓 名:</td>
<td align="left"><input type="text" size=20 name="f_name" value=<%=rst("u_name")%>></td>
</tr>
<tr>
<td align="right">性 别:</td>
<td align="left"><select name="f_sex" id="f_sex" value="<%=rst("f_sex")%>">
<option value="男" selected="selected">男</option>
<option value="女"<% if rst("u_sex")="女" then response.write "selected"%>>女
</select> </td>
</tr>
<tr>
<td align="right">年 龄:</td>
<td align="left"><input type="text" name="f_age" size=10 value="<%=rst("u_age")%>"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="修改会员资料"> <input type="reset" value="重置表单" name="reset"></td>
</tr>
</table>

</form>
<%
rst.close
Set rst=Nothing
End If
%>
Marrylily 2008-06-12
  • 打赏
  • 举报
回复
<form method="post" action="xiugai.asp?act=xiugai&id=<%=request.querystring("u_id")%>">
<table width="691" height="330" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center"><a href="guanli.asp">返回会员列表</a></td>
</tr>
<tr>
<td colspan="2" align="center">请在下面修改会员资料!</td>
</tr>
<tr>
<td width="296" align="right">用户名:</td>
<td width="395" align="left"><input type="text" size=20 name="f_user" value="<%=rst("u_user")%>"></td>
</tr>
<tr>
<td align="right">密  码:</td>
<td align="left"><input type="text" size=20 name="f_code" value="<%=rst("u_code")%>"></td>
</tr>
<tr>
<td align="right">姓  名:</td>
<td align="left"><input type="text" size=20 name="f_name" value=<%=rst("u_name")%>></td>
</tr>
<tr>
<td align="right">性  别:</td>
<td align="left"><select name="f_sex" id="f_sex" value="<%=rst("f_sex")%>">
<option value="男" selected="selected">男</option>
<option value="女"<% if rst("u_sex")="女" then response.write "selected"%>>女
</select> </td>
</tr>
<tr>
<td align="right">年  龄:</td>
<td align="left"><input type="text" name="f_age" size=10 value="<%=rst("u_age")%>"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="修改会员资料"> <input type="reset" value="重置表单" name="reset"></td>
</tr>
</table>
</form>
wdbjsh 2008-06-12
  • 打赏
  • 举报
回复
把你的form贴出来,怀疑你的form设置了encodetype属性
Marrylily 2008-06-12
  • 打赏
  • 举报
回复
可是还是不行啊
jacklinchen 2008-06-12
  • 打赏
  • 举报
回复
哦,我刚才看错了。应该是request.Form("f_user")
没有取到值
Marrylily 2008-06-12
  • 打赏
  • 举报
回复
我数据库该字段都有值啊,怎么会为空呢?我改了之后还是不行啊
jacklinchen 2008-06-12
  • 打赏
  • 举报
回复
u_user字段没有赋值。在库中改一下字段属性允许其为空

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧