各位大侠，浪费点你们的时间帮帮忙。
首先我讲一下问题，（1）testlist页面没什么东西，就是如下这样显示：
订货人： lucy2 订货人电话 45345353and paymentid=3
订货人： try 订货人电话 123and paymentid=6
（2）点击try到testedit页面，如下显示:
发货方式 下拉列表框（EMS,平邮）
付款方式 下拉列表框(财付通，支付宝)
提交 重置
(3)提交以后到testeditok页面，就是把在下拉列表框中选择的数据保存到表中.
重定向到testlist页面，
此时，问题还没出现，修改成功了，我打开数据库中的表看了看，确实修改了，
但是当我再点击try到testedit页面时，下拉列表框中显示的不是我选中的支付宝状态，而是默认的第一个财付通
同样的代码放在别的页面好使，在这就不好使了？？？郁闷啊。
这是testlist.asp页面的代码
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
Set cn=Nothing
set cn =server.createobject("adodb.connection")
cn.open MM_gb_data_STRINGdb
Set rs=Nothing
set rs =server.createobject("adodb.recordset")
strsql="SELECT * FROM orderaaa ORDER BY id desc"
rs.cursortype=1
rs.LockType = 1
rs.open strsql,cn
%>
<%
do while not rs.EOF
%>
<table>
<tr>
<td>订货人：</td>
<td><a href="testedit.asp?id=<%=rs("id")%>&payment=<%=rs("payment")%>"><%=rs("order_user")%></a></td>
<td>订货人电话</td>
<td><%=rs("order_tel")%>and paymentid=<%=rs("payment")%></td>
</tr>
</table>
<%
rs.movenext
loop
%>
<%
rs.close
set rs=Nothing
cn.close
set cn=nothing
%>
这是testeidt得页面
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<% If session("login")=1 Then %>
<%
set rs_login = Server.CreateObject("ADODB.Recordset")
rs_login.ActiveConnection = MM_gb_data_STRINGdb
id=request.queryString("id")
rs_login.Source = "SELECT * FROM orderaaa where id="&id
rs_login.CursorType = 1
rs_login.LockType = 1
rs_login.Open()
%>
<html>
<center> <body>
<form name="editform" method="post" action="testeditok.asp?id=<%=rs_login("id")%>">
<!--发货方式-->
<%
set rs_login1 = Server.CreateObject("ADODB.Recordset")
rs_login1.ActiveConnection = MM_gb_data_STRINGdb
sql = "select * from consignment"
rs_login1.cursorType = 1
rs_login1.LockType = 1
rs_login1.open sql
%>
发货方式
<SELECT NAME="consignment">
<% do while not rs_login1.eof%>
<%if rs_login1("id")=rs_login("consignment") then%>
<OPTION VALUE=<%=rs_login1("id")%> selected><%=rs_login1("way")%></option>
<%else%>
<OPTION VALUE=<%=rs_login1("id")%>><%=rs_login1("way")%></option>
<%end if%>
<%
rs_login1.movenext
loop
rs_login1.close
%>
</SELECT>
<br>
<!--付款方式-->
<%
set rs_logintest= Server.CreateObject("ADODB.Recordset")
rs_logintest.ActiveConnection = MM_gb_data_STRINGdb
sql = "select * from payment"
rs_logintest.cursorType = 1
rs_logintest.LockType = 1
rs_logintest.open sql
%>
付款方式
<SELECT NAME="payment">
<%
do while not rs_logintest.eof
%>
<%if rs_logintest("id")=rs_login("payment") then%>
<OPTION VALUE=<%=rs_logintest("id")%> selected><%=rs_logintest("way")%></option>
<%else%>
<OPTION VALUE=<%=rs_logintest("id")%>><%=rs_logintest("way")%></option>
<%end if%>
<%
rs_logintest.movenext
loop
rs_logintest.close
%>
</SELECT>
<br>
<input type="submit" name="button1" value="提交" />
<input type="reset" name="button2" value="重置" />
</form>
</body></center>
</html>
<%
rs_login.close
Set rs_login=nothing
%>
<%
else
response.redirect "../index.asp"
end if
%>
这是testeditok.asp的页面
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
set rs_login = Server.CreateObject("ADODB.Recordset")
rs_login.ActiveConnection = MM_gb_data_STRINGdb
sql="select * from orderaaa where id="&request.QueryString("id")
rs_login.cursorType = 1
rs_login.LockType = 3
rs_login.open sql
rs_login("consignment")=request.Form("consignment")
rs_login("payment")=request.Form("payment")
rs_login.update
rs_login.close
Set rs_login=Nothing
response.redirect("testlist.asp")
%>
[ 本帖最后由 javaxingxing 于 2009-11-6 10:04 编辑 ]
