数据库从Access换成SQL,代码就不行了,求找Bug
一段关于select的级联代码,原来是access的,没有问题,我改为SQL后就不行了,怎么也找不出原因呢,求解
<!--#include file="../conn.asp"-->
<%
' varBase 下拉菜单等级
' varSele 所选择下拉菜单项的数据库ID
' varElem 下一级的表单名称
varBase=Request.QueryString("base")
varSele=Left(Request.QueryString("sele"),InStr(Request.QueryString("sele"),"-")-1)
varElem=Request.QueryString("elem")
varDistName=""
varAutoID=""
'Set conDB=Server.CreateObject("ADODB.CONNECTION")
'conDB.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db.mdb")
'sqlCommand="select * from db where filed1="&varBase&" and filed2="&varSele
'Set rsRecord=conDB.Execute(sqlCommand)
set rsRecord=server.createobject("adodb.recordset")
sql="select * from Addr where Depth="&varBase&" and ParentID="&varSele
rsRecord.open sql,conn,1,1
While Not rsRecord.eof
varDistName=varDistName&chr(34)&rsRecord("filed3")&chr(34)
varAutoID=varAutoID&chr(34)&rsRecord("id")&chr(34)
rsRecord.movenext
If Not rsRecord.Eof Then
varDistName=varDistName&","
varAutoID=varAutoID&","
End If
Wend
Response.Write("var varDistName=new Array("&varDistName&")"&vbcrlf)
Response.Write("var varAutoID=new Array("&varAutoID&")"&vbcrlf)
Response.Write("var varElem=eval("&chr(34)&"document.Form1."&varElem&chr(34)&")"&vbcrlf)
Response.Write("varElem.length=varDistName.length+1;"&vbcrlf)
Response.Write("for(var i=0;i<varDistName.length;i++){"&vbcrlf)
Response.Write(" varElem.options[i+1].text=varDistName[i];"&vbcrlf)
Response.Write(" varElem.options[i+1].value=varAutoID[i]+'-'+varDistName[i];"&vbcrlf)
Response.Write("}"&vbcrlf)
Response.Write("varElem.selectedIndex=0;"&vbcrlf)
%>
被注释掉的数据库连接代码是access的,换了sql就显示不出来了,数据库没有问题