<%
    Set conn = Server.CreateObject("ADODB.Connection")
 ConnStr = "Provider = Sqloledb; User ID = sa; Password = ijL; Initial Catalog = fingerdb; Data Source = (local);"
 Conn.Open ConnStr          '########打开数据库
    Set Rs=server.createobject("adodb.recordset")
    Set Rs1=server.createobject("adodb.recordset")
%>
<table border="1" width="986" id="table1">
 <tr>
  <td width="162">身份证号码</td>
  <td width="97">姓名</td>
  <td width="703">工作单位</td>
 </tr>
<%  
    sql1="select sbh,xm,gzdw from ryxxb"'此表内三个字段为sbh:身份证号xm:姓名gzdw:工作单位gzdw为数字单位编码,对应ab01的aab001
    Rs.Open sql1, Conn,1,1
    sql2="select * from ab01"'此表内有204行数据,两个字段,aab001和aab004,aab001为数字单位编码,对应gzdw,aab004为工作单位数据
    Rs1.Open sql2, Conn,1,1
    i=0
    do while x< 200
    for i =1 to rs1.RecordCount '从1开始循环直到记录结束
     if rs1("aab001")=rs("gzdw") then
     yyy=Rs1("aab004")
     end if
     Rs1.movenext
     next
%>
 <tr>
  <td width="162"><%=rs("sbh")%></td>
  <td width="97"><%=rs("xm")%></td>
     <td width="703"><%=yyy%></td>
 </tr>
<%   
    x=x+1
 Rs.movenext
    Rs1.movefirst
 Loop
%>
</table>
这段代码就是将ryxxb中的gzdw的数据编码换成ab01里的工作单位数据,哪位朋友能帮忙优化一下代码,当X=200里循环就很费劲,如果2000条就更能想象了,我初学,不知道该怎么做,请帮我一下

<%
    Set conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; User ID = sa; Password = ijL; Initial Catalog = fingerdb; Data Source = (local);"
Conn.Open ConnStr          '########打开数据库
    Set Rs=server.createobject("adodb.recordset")
%>
<table border="1" width="986" id="table1">
<tr>
  <td width="162">身份证号码</td>
  <td width="97">姓名</td>
  <td width="703">工作单位</td>
</tr>
<%  
    sql="select a.sbh,a.xm,b.gzdw from ryxxb a,ab01 b where a.gzdw=b.aab001 order by a.sbh"'
    Rs.Open sql1, Conn,1,1
    x=0
    do while x< 200
%>
<tr>
  <td width="162"><%=rs(0)%></td>
  <td width="97"><%=rs(1)%></td>
     <td width="703"><%=rs(2)%></td>
</tr>
<%   
    x=x+1
Rs.movenext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>

你试试

    do while x< 200改成    do while not rs.eof
    x=x+1 去掉

你再试试速度

sql="select ryxxb.sbh,ryxxb.xm,ryxxb.gzdw from ryxxb,ab01 b where ryxxb.gzdw=ab01.aab001 order by ryxxb.sbh"' 红色部分是什么意思,怎么写

ab01 b用b来代替ab01 你总写ab01不感到很麻烦 少写点是不是就省力气

这种情况是ryxxb里的GZDW需要转换,如果再有一个字段需要转换呢?

运行结果工作单位字段的编码没有被转换啊

http://www.fscz.info/ 这是地址,你可以点一下看看

http://www.fscz.info/index1.asp 这是我发贴时的代码

OK已经解决!但是还有个问题就是我刚才提到的,这是一个字段需要转换,如果有两个以上的字段需要转换呢?