Question

asp 更新数据库

求救～～～帮忙看一下这段码，点击每条记录后面的“修改”然后跳到另一个页面，根据传过来的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>

Answer 1

这个代码会不会一打开页面就出错?
改为：
<%
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 %>

Answer 2

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的数据类型都为整型

Answer 3

<%
'字符串连接数据库-------------------------------------------------------------------------------
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
%>