（真急）为什么提示的是数据更新成功，但是实现数据根本就没更新。这是什么原因。

[shaolin45]

If Request.QueryString("Upx")="Realx" Then
Dim RS_MM
ADO_open RS_MM,"select * from CONTRACT_Class" ,1,3
If RS_MM.Recordcount<>0 Then
While Not RS_MM.EOf
For ii=1 to Request.Form("C_id").count
If Cstr(Request.Form("C_id")(ii))=Cstr(RS_MM("Class_id")) Then
RS_MM("Class_name")=Request.Form("Class_name")(ii)
RS_MM.update
Exit For
End iF
Next
RS_MM.Movenext
Wend
End If
response.Write "<script language=javascript>alert('更新成功');location.href='class_contract.asp';</script>"
End If
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="class_contract.asp?Upx=Realx" method="post">
<tr>
<td colspan="4" height="4">合同类型管理</td>
</tr>
<tr>
<td>ID号码</td>
<td>类型名称</td>
<td>更新时间</td>
<td>操作</td>
</tr>
<%
While Not RS_all.eof
%>
<tr>
<td><input type="text" value="<%=RS_all("Class_id")%>" name="C_id" disabled></td>
<td><input type="text" value="<%=RS_all("Class_name")%>" name="Class_name"></td>
<td><input type="text" value="<%=RS_all("Class_time")%>"></td>
<td><a href="class_contract.asp?DEL_id=<%=RS_all("Class_id")%>" onClick="if(confirm('确定要删除吗?')){return true}else{return false};">删除</a></td>
</tr>
<%
RS_all.Movenext
Wend
RS_all.close
Set RS_all=nothing
End if
%>
<tr>
<td colspan="4"><input type="submit" value="更新/修改" name="Class_up"></td>
</tr>
</form>
</table>

我用的SQL数据库。为什么提示的是数据更新成功，但是实现数据根本就没更新。这是什么原因。。。谢谢

[chjpeng]

输出中间结果看看运行是不是正确的

按照你的代码，只要满足
If Request.QueryString("Upx")="Realx" Then

就会输出更新成功

[antiking]

把你插入数据库的数据response.write(sql);放在查询分析器里执行一遍看有记录录入没有.有时数据类型不正确执行时不报错就终止了。

[shaolin45]

If Request.Form("Class_up")="更新" Then
Dim RS_MM
ADO_open RS_MM,"select * from CONTRACT_Class order by Class_id ASC" ,1,3
If RS_MM.Recordcount<>0 Then
While Not RS_MM.EOf
For ii=1 to Request.Form("C_name").count
If Cstr(Request.Form("C_id")(ii))=Cstr(RS_MM("Class_id")) Then
RS_MM("Class_name")=Request.Form("C_name")(ii)
RS_MM.update
Exit For
End iF
Next
RS_MM.Movenext
Wend
End If
response.Write "<script language=javascript>alert('更新成功');location.href='class_contract.asp';</script>"
End If

现在提示的是“("C_id")(ii))”数组索引越界。。

[jackycxg]

同意一楼星星说的。。。　
只要你下面这个条件成立，

If Request.QueryString("Upx")="Realx" Then

那么就一定会执行

response.Write "<script language=javascript>alert('更新成功');location.href='class_contract.asp';</script>"

这句。。。