为什么在SQL server2000中不行?
我做了一个框架Frame(frame.htm)包括:tree1.asp,user.asp,form.asp,数据库为sql server2000,用到两个数据表:机构表(jg)包含机构代码(xldm)、机构名称(jgmc)两个字段,人员表(rxxx)包含姓名(xm),职业(zy),机构代码(xldm),我想实现的功能是:在tree.asp中实现机构的树型目录(已实现),当用户在tree.asp中选择某一机构时,通过机构表中的xldm字段关联人员表中的xldm字段,在user.asp中显示出该机构下的所有人员(在sql server2000中显示不出来,而用Access数据库却可以??!!!!),同时把选择的机构名称(jgmc)传到form.asp中(已实现),若用户在user.asp中选择了某一人员,也把选择的人员传到form.asp中,为什么在SQL server2000中不能显示出人员?是语法有问题吗?我觉得是user.asp中的问题,程序代码如下(
user.asp
<%@ Language=VBScript EnableSessionState=true%>
<%
set conn=server.createobject("adodb.connection")
conn.open strconn
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
rs.open "select * from jg1 order by xldm asc",strconn,1,3
%>
<script language=javascript>
<!--
function click1(j)
{
eval("window.parent.main.form1.t"+document.all.hid1.value+"1").value=j;
}
var arr=new Array();/* 定义数组,用来存储记录集中的人员姓名 */
<%
while not rs.eof
%>
var arr<%=rs("xldm")%>=new Array();
<%
rs1.open "select * from ryxx1 where xldm='"&rs("xldm")&"'",strconn,1,1
if rs1.eof then
%>
arr<%=rs("xldm")%>[0]="<font color=#ff0000>该部门无人</font>";
<%
end if
for i=0 to rs1.recordcount-1
%>
arr<%=rs("xldm")%>[<%=i%>]="<%=rs1("xm")%>";
<%
rs1.movenext
next
rs1.close
rs.movenext
wend
rs.close
%>
<%
rs.open "select distinct xldm from ryxx1 order by xldm asc",strconn,1,3
while not rs.eof
%>
var arr<%=rs("xldm")%>=new Array();
<%
rs1.open "select * from ryxx1 where xldm='"&rs("xldm")&"'",strconn,1,1
for i=0 to rs1.recordcount-1
%>
arr<%=rs("xldm")%>[<%=i%>]="<%=rs1("xm")%>";
<%
rs1.movenext
next
rs1.close
rs.movenext
wend
rs.close
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
%>
//-->
</script>
<body bgcolor="#FFFFFF" text="#000000">
<input type=hidden name=hid value="" onpropertychange="netshClock();">
<input type=hidden name=hid1 value="">
<script language='JavaScript'>
<!--
var value1="";
function netshClock()
{
var value2=document.all.hid.value;
if (!document.layers && !document.all)
return;
movingtime="";
if(document.all.hid.value!="")
{
for(var e=0;e<eval("arr"+document.all.hid.value).length;e++)
{
if(eval("arr"+document.all.hid.value)[e]!="<font color=#ff0000>该部门无人</font>")
{
movingtime=movingtime+"<a href='###' onclick=click1('"+eval("arr"+document.all.hid.value)[e]+"');>"+eval("arr"+document.all.hid.value)[e]+"</a>"+"<br>";
}
else
movingtime="<font color=#ff0000>部门无人</font>";
}
}
if (document.layers)
{
document.layers.Myclock.document.close();
document.layers.Myclock.document.write (movingtime);
}
else if (document.all)
{
Myclock.innerHTML = movingtime;
}
if(value1==value2)
setTimeout('netshClock();',10);
}
-->
</script>
<span id=Myclock style='position:relative;'></span>
<script>netshClock();</script>
</body>
可能太罗嗦了,烦请各位大虾看一下