UC知道asp 修改出错
来源：百度知道 编辑：UC知道 时间：2024/06/17 23:58:47
数据库ddb表里面有三个字段 hm(货名) sl（数量） bz（备注）
想在同一个页面 1 显示明细表。一个form，三个text，一个修改的按钮。
2 然后数量是可以修改的。
3 按修改按钮的时候修改数量。
<%
hm=request.QueryString("hm")
set rs=Server.createobject("adodb.recordset")
sql="select * from ddb where hm='"& hm &"'"
rs.open sql,conn,1,3
if not rs.eof then
%>
下面是一个form 可以正常显示数据库的内容
<form method="POST" name="myform" action="fc.asp?new=modify" target="_self">
.................
</form>
<%end if%>
<%
If Request.QueryString("new")="modify" then
hm=request.QueryString("hm")
sl=Trim(Request.Form("sl"
想在同一个页面 1 显示明细表。一个form，三个text，一个修改的按钮。
2 然后数量是可以修改的。
3 按修改按钮的时候修改数量。
<%
hm=request.QueryString("hm")
set rs=Server.createobject("adodb.recordset")
sql="select * from ddb where hm='"& hm &"'"
rs.open sql,conn,1,3
if not rs.eof then
%>
下面是一个form 可以正常显示数据库的内容
<form method="POST" name="myform" action="fc.asp?new=modify" target="_self">
.................
</form>
<%end if%>
<%
If Request.QueryString("new")="modify" then
hm=request.QueryString("hm")
sl=Trim(Request.Form("sl"
真是一塌糊涂，人老了，看不懂了
<%
hm=request.QueryString("hm")
Set rs=Server.createobject("adodb.recordset")
sql="select * from ddb where hm='"& hm &"'"
rs.open sql,conn,1,3
If not rs.eof Then
hm=rs("hm")
sl=rs("sl")
bz=rs("bz")
sl=Trim(Request.Form("sl"))
If sl<>"" And IsNumeric(sl) then
rs("sl")=sl
rs.update
response.write ("<script>alert('修改成功！');location.href='fc.asp?hm="& hm &"';</script>")
Else
response.write ("<form method=""POST"" name=""myform"" action=""fc.asp"" target=""_self"">"& vbCrLf)
response.write ("货名："& hm &"<br>"& vbCrLf)
response.write ("数量：<input type=""text"" name=""s