现在只是新增一个数据库表,ASP还是同样的代码去修改相应,为什么总是不成功,就是插入修改不了,没报错!!!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/TPE.asp" --><title>添加补退货记录成功</title>
<%
Dim rs,TH,YB,QS,ZT
YB=cdbl(request.form("YB"))
ZT=request.form("ZT")
TH=CDBL(request.form("TH"))
if YB="" then
response.write "<script>alert('请正确输入补货数量!');window.history.go(-1);</script>"
else
if YB=TH and ZT="NG" then
response.write "<script>alert('货已补齐请更改状态为OK,谢谢!!');window.history.go(-1);</script>"
else
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open Sql,TPE,3,2
QS=cdbl(TH-YB)
sql="update nogood set YB='"+YB+"',QS='"+QS+"',ZT='"+ZT+"' where ID="+request.form("ID")+""
TPE.execute sql
rs.Close
Set rs=nothing
TPE.close
Set TPE=nothing
response.write "<script language='javascript'>"
response.write "alert('数据修改成功，请单击“确定”返回！并刷新页面!');"
response.write "window.history.go(-2);"
response.write "</script>"
end if
end if
%>

补充：ID和TH都是用隐藏域YB用文本框ZT用的是列表框,命名都没问题就是传递不了

追问：刚才测试了输入所有获取的变量信息,都没有获取到,ID是用隐藏域POST过去的不好意思,插入的代码未贴上来,TKS!

答案：你确定获取到提交的表单了吗？确定得到id了吗？

其他：sql="update nogood set YB='"+YB+"',QS='"+QS+"',ZT='"+ZT+"' where ID="+request.form("ID")+""
 为更新 语句  插入语句应该是
INSERT 这是代码: 

上一个：ASP单选能否传递多变量
下一个：Microsoft VBScript 编译器错误 '800a0409' 未结束的字符串常量 \Include\ConnSiteData.asp, line 9