<!--#include file="conn.asp"-->
<%
dim jd,wd,a

Set rs=Server.CreateObject("ADODB.Recordset")

rs.open "select chexing,jd,wd from [gp] where chexing='k52'",conn,1,1  '1,1为只读，1,3为可操作


do while    not   rs.eof   
        '循环开始
  jd= rs.fields("jd")
  wd= rs.fields("wd")            
         
%>

<tr>
<td width="166"  align="center" >车&nbsp;&nbsp;&nbsp;型:</td>
<td  ><input type="text" name="cx"  align="middle"  value="<%=rs.fields("chexing") %>"
> </td>
</tr>
 
 <tr>
 <td width="166" align="center">经&nbsp;&nbsp;&nbsp;度：</td>
 <td ><input type="text" name="jd" id="jd" align="middle"  value="<%=rs.fields("jd") %>"/></td>
 </tr>

 <tr>
 <td width="166" align="center">纬&nbsp;&nbsp;&nbsp;度：</td>
  <td><input type="text" name="wd"  align="middle" value="<%=rs.fields("wd") %>"/> </td>
 </tr>
 <%

 rs.movenext         
 
  loop
'rs.close
'set rs=nothing  
'conn.close  
'set conn=nothing      
%>