asp 更新数据库
求救~~~帮忙看一下这段码,点击每条记录后面的“修改”然后跳到另一个页面,根据传过来的id在每个文本框里显示出数据表里相应的数据,对文本框里的数据进行修改后,然后点“修改...
求救~~~帮忙看一下这段码,点击每条记录后面的“修改”然后跳到另一个页面,根据传过来的id 在每个文本框里显示出数据表里相应的数据,对文本框里的数据进行修改后,然后点“修改”按钮,从而更新了数据库。现在显示是没有问题了,但就是没办法更新数据库。老是出错~~
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from chengjiao where id="&request("id")
rs.open sql,conn,1,3
if rs.eof then
Response.Write("参数有错")
response.end
end if
%>
<%
id=request.QueryString("id")
if request.Form("dd")<>"" then
set rs=server.CreateObject("ADODB.Recordset")
up="update chengjiao set place='"&dd&"',construct='"&sgf&"',client='"&kh&"',housetype='"&lx&"',area='"&mj&"' where id="&"id"
conn.execute(up)
%>
<script language="javascript">
alert("该信息已更新成功!")
window.location.href='chengjiaoxg.asp';
</script>
<% end if %>
<form name="form1" method="post" action="">
<table width="50%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F6F6F6">
<tr>
<td width="20%" class="title1">地点</td>
<td><input name="dd" type="text" class="STYLE1" id="dd" tabindex="2" value='<%=rs("place")%>'/></td>
</tr>
<tr>
<td class="title1">施工方</td>
<td><input name="sgf" type="text" class="STYLE1" id="sgf" tabindex="3" value='<%=rs("construct")%>'/></td>
</tr>
<tr>
<td class="title1">客户方</td>
<td><input name="kh" type="text" class="STYLE1" id="kh" tabindex="4" value='<%=rs("client")%>'/></td>
</tr>
<tr>
<td class="title1">房屋类型</td>
<td><input name="lx" type="text" class="STYLE1" id="lx" tabindex="5" value='<%=rs("housetype")%>'/>
<span class="title1">格式如:三室一厅</span></td>
</tr>
<tr>
<td class="title1">面积</td>
<td><input name="mj" type="text" class="STYLE1" id="mj" tabindex="6" size="4" value='<%=rs("area")%>'/>
<span class="title1">单位(平方米)</span></td>
</tr>
<tr>
<td class="title1">上传图片</td>
<td><img src="<%=rs("picture")%>" vspace="8" height="100"/>
<iframe src="upload.asp?id=<%=rs("id")%>" height="40" frameborder="0" scrolling="no"></iframe></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="修改" /></td>
</tr>
</table>
</form> 展开
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from chengjiao where id="&request("id")
rs.open sql,conn,1,3
if rs.eof then
Response.Write("参数有错")
response.end
end if
%>
<%
id=request.QueryString("id")
if request.Form("dd")<>"" then
set rs=server.CreateObject("ADODB.Recordset")
up="update chengjiao set place='"&dd&"',construct='"&sgf&"',client='"&kh&"',housetype='"&lx&"',area='"&mj&"' where id="&"id"
conn.execute(up)
%>
<script language="javascript">
alert("该信息已更新成功!")
window.location.href='chengjiaoxg.asp';
</script>
<% end if %>
<form name="form1" method="post" action="">
<table width="50%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F6F6F6">
<tr>
<td width="20%" class="title1">地点</td>
<td><input name="dd" type="text" class="STYLE1" id="dd" tabindex="2" value='<%=rs("place")%>'/></td>
</tr>
<tr>
<td class="title1">施工方</td>
<td><input name="sgf" type="text" class="STYLE1" id="sgf" tabindex="3" value='<%=rs("construct")%>'/></td>
</tr>
<tr>
<td class="title1">客户方</td>
<td><input name="kh" type="text" class="STYLE1" id="kh" tabindex="4" value='<%=rs("client")%>'/></td>
</tr>
<tr>
<td class="title1">房屋类型</td>
<td><input name="lx" type="text" class="STYLE1" id="lx" tabindex="5" value='<%=rs("housetype")%>'/>
<span class="title1">格式如:三室一厅</span></td>
</tr>
<tr>
<td class="title1">面积</td>
<td><input name="mj" type="text" class="STYLE1" id="mj" tabindex="6" size="4" value='<%=rs("area")%>'/>
<span class="title1">单位(平方米)</span></td>
</tr>
<tr>
<td class="title1">上传图片</td>
<td><img src="<%=rs("picture")%>" vspace="8" height="100"/>
<iframe src="upload.asp?id=<%=rs("id")%>" height="40" frameborder="0" scrolling="no"></iframe></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="修改" /></td>
</tr>
</table>
</form> 展开
3个回答
展开全部
这个代码会不会一打开页面就出错?
改为:
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from chengjiao where id="&request("id")
rs.open sql,conn,1,3
if rs.eof then
Response.Write("参数有错")
response.end
end if
if request("action")="yes" then
call formsubmit
else
call showform
end if
sub formsubmit()
更新
end sub
sub showform()
%>
表单 加一隐藏域
<input name="action" type="hidden" value="yes">
<% end sub %>
改为:
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from chengjiao where id="&request("id")
rs.open sql,conn,1,3
if rs.eof then
Response.Write("参数有错")
response.end
end if
if request("action")="yes" then
call formsubmit
else
call showform
end if
sub formsubmit()
更新
end sub
sub showform()
%>
表单 加一隐藏域
<input name="action" type="hidden" value="yes">
<% end sub %>
今至电子科技有限公司
2024-08-23 广告
2024-08-23 广告
数据库备份是确保数据安全与业务连续性的关键环节。我们上海今至电子科技有限公司高度重视数据保护,定期执行全面的数据库备份策略。这包括使用先进工具和技术,对关键业务数据进行自动化备份,并存储在安全可靠的外部存储介质或云端。通过定期验证备份的完整...
点击进入详情页
本回答由今至电子科技有限公司提供
展开全部
conn.execute("update
表名
set
字段名
=值
where
条件")
如:
conn.execute("update
student
set
studentNo="&request.form("studentNo")&"
where
id="&request.form("ID"))
以上执行后会更新表
student
中字段
studentNo
的值为request.form("studentNo"),条件是字段ID的值等于FORM表传递的request.form("ID")
估计你不需要,所以省略了数据库的连接==。
注意你设计的数据表中字段的数据类型,我这个例子中的字段studentNo、id的数据类型都为整型
表名
set
字段名
=值
where
条件")
如:
conn.execute("update
student
set
studentNo="&request.form("studentNo")&"
where
id="&request.form("ID"))
以上执行后会更新表
student
中字段
studentNo
的值为request.form("studentNo"),条件是字段ID的值等于FORM表传递的request.form("ID")
估计你不需要,所以省略了数据库的连接==。
注意你设计的数据表中字段的数据类型,我这个例子中的字段studentNo、id的数据类型都为整型
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
<%
'字符串连接数据库-------------------------------------------------------------------------------
set
conn=server.createobject("adodb.connection")
conn.open
"driver=driver
do
microsoft
access
(*.mdb);uid=admin;pwd=;dbq="&server.mappath("mdb/wpjy.mdb")
set
rst=server.createobject("adodb.recordset")
sql="select
top
1
*
from
wpjy
where
wpjy_id=558"
rst.open
sql,conn,1,3
if
not
rst.eof
then '判断是否存在wpjy_id=558的数据记录.这个地方楼上弄反了
rst("wpjy_rq")=rst("wpjy_rq")+1 '在原来的数据上面加1
rst.update '更新数据
end
if
%>
<%=rst("wpjy_rq")%>
<%
rst.close
set
rst=nothing
%>
'字符串连接数据库-------------------------------------------------------------------------------
set
conn=server.createobject("adodb.connection")
conn.open
"driver=driver
do
microsoft
access
(*.mdb);uid=admin;pwd=;dbq="&server.mappath("mdb/wpjy.mdb")
set
rst=server.createobject("adodb.recordset")
sql="select
top
1
*
from
wpjy
where
wpjy_id=558"
rst.open
sql,conn,1,3
if
not
rst.eof
then '判断是否存在wpjy_id=558的数据记录.这个地方楼上弄反了
rst("wpjy_rq")=rst("wpjy_rq")+1 '在原来的数据上面加1
rst.update '更新数据
end
if
%>
<%=rst("wpjy_rq")%>
<%
rst.close
set
rst=nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询