由一个数据库提取信息写入另一个数据库

我是新人，爱好ASP，刚开始学，许多地方都不懂，写了一段代友，出现了问题！郁闷中 目标，从A数据库中读取LEVEL等级为 6的用户信息，包含用户名，手机号，密码等，然后写入到B数据库（注意B数据库为短信平台发短信所用），这样就可以实现为用户等级是6的用户发送自已的密码，然后用户利用这个密码实现登录。由于不能知道每次需要审核的用户到底有几个，所以就用循环来检测，直到没有为止。 下面是我的代码： <% dim conn dim a() dim b() dim c() set conn = server.createobject("adodb.connection" conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("./Data/B.asp" sql = "select * from Cl_User where UserLevel=6 order by UserID " set rs = server.createobject("adodb.recordset" rs.open sql,conn,3,1 if not rs.eof then for i=1 to rs.recordcount a(i)=a(i)&","&rs("UserName" b(i)=b(i)&","&rs("UserMobile" c(i)=c(i)&","&rs("Userpassword" rs.movenext i=i+1 next end if dim conn1 set conn1 = server.createobject("adodb.connection" conn1.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("../XX/A.mdb" Set rs1 = Server.Createobject("ADODB.Recordset" sql="select * from fasongmx" rs1.open sql,conn1,3,3 'for j=0 to i-1 rs1.addnew rs1("发送人"=a(i) rs1("发送状态"="未发送" rs1("手机号码"=b(i) rs1("请求日期"=now() rs1("数据模式"="手工填报" rs1("公司名称"=Session("ccompany" rs1("短信内容"="密码:"& c(i) rs1("psid"=68 rs1.update %> 请按要求写出正确的整个代码，谢谢！

看你的程序不像A TO B，倒像 B TO A！ 修改了一下，供参考： 假定B.asp／Cl_User的第1个字段＝用户名，第2个字段＝手机号，第2个字段＝密码...... <% connstr ＝ "Provider＝MSDASQL;DRIVER＝{Microsoft Access Driver (*.mdb)};DBQ＝"&server.mappath(".／Data／B.asp")&";uid＝;pwd＝;" Set Conn ＝ Server.CreateObject("ADODB.Connection") Conn.Open connstr Set Rs_d＝Conn.ExeCute("select * from Cl_User where UserLevel＝6 order by UserID ") Dim Arr_d Arr_d＝Rs_d.GetRows Set Rs_d＝Nothing conn.close set conn＝nothing connstr ＝ "Provider＝MSDASQL;DRIVER＝{Microsoft Access Driver (*.mdb)};DBQ＝"&server.mappath("..／XX／A.mdb")&";uid＝;pwd＝;" Set Conn ＝ Server.CreateObject("ADODB.Connection") Conn.Open connstr Set RS ＝ Server.CreateObject("ADODB.RecordSet") sql＝"SELECt * FROM fasongmx" RS.open sql,Conn,1,2 Dim S,I S＝Ubound(Arr_d,2) '得到数组中数据的下标 For I＝0 To S rs.addnew rs("发送人")＝Arr_d(0,I) ''''''''''''''''''''''''Arr_d(0,I)对应 B.asp／Cl_User的第1个字段 rs("发送状态")＝"未发送" rs("手机号码")＝Arr_d(1,I) ''''''''''''''''''''''''Arr_d(1,I)对应 B.asp／Cl_User的第2个字段 rs("请求日期")＝now() rs("数据模式")＝"手工填报" rs("公司名称")＝Session("ccompany"） rs("短信内容")＝"密码:"& Arr_d(2,I) ''''''''''''''''''''''''Arr_d(2,I)对应 B.asp／Cl_User的第3个字段 rs("psid")＝68 rs.update Next rs.close set rs＝nothing conn.close set conn＝nothing %> 请适当修改 为了回避“敏感词汇”，上面代码部分改为了全角

满意请采纳