Rs1.CursorLocation = adUseClient 问题!救我!

BABY818 2003-10-20 05:10:08
<%


dim conn
dim connstr
on error resume next
set conn=server.CreateObject("ADODB.connection")
connstr="driver={SQL Server};server=ahui;uid=sa;pwd=;database=enterprise"
conn.Open connstr
set Rs=server.createobject("ADODB.recordset")
Rs.CursorLocation = adUseClient
SQL="Select * from Tb_city"
Rs.open SQL,conn,1,1
if Not Rs.Eof then
Dim strJScript
strJScript=""
Response.Write("<SCRIPT language=JavaScript>")&chr(13)
Response.Write("function setcategory(S){")&chr(13)
Response.Write("S.category.length="+Cstr(Rs.Recordcount+1)+";")&chr(13)
dim i
i=0
While Not Rs.Eof
strJScript=strJScript+"S.category.options["+CStr(i)+"].value="+chr(34)+Trim(Rs("cityCode"))+chr(34)+";"+chr(13)
strJScript=strJScript+"S.category.options["+CStr(i)+"].text="+chr(34)+Trim(Rs("cityName"))+chr(34)+";"+chr(13)
i=i+1
Rs.MoveNext
Wend
Response.write(strJScript)
Response.Write("S.category.options["+CStr(i)+"].value="+chr(34)+"无"+chr(34)+";"+chr(13))

Response.Write("S.category.options["+CStr(i)+"].text="+chr(34)+"**请选择城市**"+chr(34)+";"+chr(13))
Response.Write("S.category.options["+Cstr(i)+"].selected=true;"+chr(13))
Response.Write("}")&chr(13)
Rs.Close
Set Rs=Nothing
end if
set Rs=server.createobject("ADODB.recordset")
Rs.CursorLocation = adUseClient
SQL="Select Num=Count(*),Tb_city.cityCode From Tb_city,Tb_area2 where Tb_city.cityCode=substring(Tb_area2.area2Code,1,2) group by Tb_city.cityCode order by Tb_city.cityCode"
Rs.open SQL,conn,1,1
if Not Rs.Eof then
dim Num(30),j
j=0
Do While Not Rs.Eof
Num(j)=Rs("Num")
j=j+1
Rs.MoveNext
Loop
end if
Rs.Close
set Rs=Nothing
SQL=""
set Rs=server.createobject("ADODB.recordset")
Rs.CursorLocation = adUseClient
SQL="Select Tb_city.*,Tb_area2.* From Tb_city,Tb_area2 where Tb_city.cityCode=substring(Tb_area2.area2Code,1,2) order by Tb_city.cityCode"
Rs.open SQL,conn,1,1
j=0
if Not Rs.Eof then
Response.Write("function setsmall_cat(D){")&chr(13)
Response.Write("var valuecategory=D.category.options[D.category.selectedIndex].value;")&chr(13)
Response.write("if(valuecategory.indexOf("+chr(34)+"无"+chr(34)+")==0){"+chr(13)&_
"D.small_cat.length=1;"&_
"D.small_cat.options[0].value="+chr(34)+"无"+chr(34)+";"+chr(13)&_
"D.small_cat.options[0].text="+chr(34)+"**请选择地/县**"+chr(34)+chr(13)&_
"D.small_cat.options[0].selected=true;"+chr(13)&_
"}")
i=0
dim NextLevel,UpCatCode,overflow
NextLevel="N"
overflow="N"
strJScript=""
Do While Not Rs.Eof
UpcateCode=Trim(Rs("cityCode"))
if NextLevel="N" then
strJScript="else if(valuecategory.indexOf("+chr(34)+UpcateCode+chr(34)+")==0){"+chr(13)
strJScript=strJScript+"D.small_cat.length="+Cstr(Num(j))+";"+chr(13)
j=j+1
NextLevel="Y"
end if
strJScript=strJScript+"D.small_cat.options["+CStr(i)+"].value="+chr(34)+Trim(Rs("area2Code"))+chr(34)+";"+chr(13)
strJScript=strJScript+"D.small_cat.options["+CStr(i)+"].text="+chr(34)+Trim(Rs("area2Name"))+chr(34)+";"+chr(13)

i=i+1





Rs.MoveNext
if UpcateCode<>Trim(Rs("cityCode")) then
overflow="Y"
end if
if overflow="Y" then
Response.write(strJScript+"}")
strJScript=""
overflow="N"
NextLevel="N"
i=0
end if
Loop
Response.Write("}</Script>")&chr(13)
Rs.Close

Set Rs=Nothing

end if

Conn.close

set conn=nothing





%>





<body onload=setcategory(document.select);setsmall_cat(document.select)>

<Form name="select" method="POST" action="results1.asp">

<center>
<Table>

<TR> <td>请选择:</td>

<TD><SELECT onchange=setsmall_cat(document.select) name=category size="1" ></SELECT> <SELECT name=small_cat size="1" ></SELECT> </TD>

</TR>

</Table>
<input type="submit" name="Submit" value="提交">
</center>

</Form>

这段代码假如单独存在一个叶面是可以正常运行。可是我把她添加到别的页面。就出现问题拉
ADODB.Recordset (0x800A0BB9)
/enterprise/default.asp, 第 19 行
Rs1.CursorLocation = adUseClient 具体问题是什么呢?
...全文
82 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hoverchu 2003-11-03
  • 打赏
  • 举报
回复
将adUseClient改为3试试...

87,901

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧