t' id='NavName' style='width: 180;' value='"&NavName&"' maxlength='35' readonly> 排序号: " response.write "" response.write "" response.write "" end sub sub SaveSequence() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_Navigation where ID="& request.form("ID") rs.open sql,conn,1,3 rs("Sequence")=request.form("Sequence") rs.update rs.close set rs=nothing response.write "" end sub %>