读取表格ID号,并赋值

<!--#include file="../conn/conn.asp"-->
<html> 
<head> 
<META name=VI60_defaultClientScript content=VBScript> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>asp树的研究</title> 
</head> 
<style type="text/css"> 
<!-- 
.aa { 
font-size: 14px; 
color: #000000; 
text-align: center; 
vertical-align: middle; 
letter-spacing: 0px; 
word-spacing: 0px; 
}  
--> 
</style> 
<body bgcolor="DEE3F7"> 
<% 
      dim rs,SQL ,Para,NumChild       set rs=server.createobject("ADODB.recordset") 
      set rs1=server.createobject("ADODB.recordset")  
      SQL="Select * from codeid order by ID" 
      rs.open SQL,conn,3,2     
do while not rs.EOF 
SQL="Select ID from codeid where ID like '" & rs("ID") & "%' and ID<>'" & rs("ID") & "' order by 序号" 
Para=rs("ID") & "|" 
NumChild=0 
rs1.open SQL,conn, 3,2 
NumChild=rs1.RecordCount 
do while not rs1.EOF 
Para =Para  & rs1("ID") & "|" 
rs1.MoveNext 
loop 
Para=cstr(trim(left(Para,len(Para)-1))) 
rs1.Close 
%> 
<table id="T<%=rs("ID")%>" 
border=1 
cellpadding=0 
cellspacing=0 
bordercolor="#DEE3F7" 
class="aa" 
abbr="<%=Para%>" 
summary=<%=checkid(rs("ID"))%> 
style="cursor:hand" 
onClick="vbs:subtree '<%=Para%>'" >   <tr> 
<td width="<%=17+checkid(rs("ID"))*20%>" 
height="20" align="right"> 
<table width="20" height="20" border="1" cellpadding="0" cellspacing="0" bordercolor="#DEE3F7"> 
        <tr> 
    
          <td align="center" valign="middle" bordercolor="#000000" id="R<%=rs("ID")%>" ><%if NumChild=0 then Response.Write "." else Response.Write "-"%></td> 
  </tr> 
</table> 
  </td>     <td height="20" 
nowrap 
bordercolor="#FFFFFF" 
onMouseOver="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'" 
onMouseOut="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" 
> 
      <%=rs("名称")%></td> 
  </tr> 
</table> 
<% 
rs.MoveNext 
loop 
rs.Close:set rs=nothing 
conn.Close:set conn=nothing 
function checkid(x) 
dim Tempnum 
Tempnum=0 
for i=1 to len(x) 
if i mod 2=0 then 
Tempnum=Tempnum+1 
end if 
next 
checkid=Tempnum 
end function 
%> 
  <script language=VBS> 
sub subtree(Client_para) 
if instr(Client_para,"|")=0 then exit sub 
Myarray=split(Client_para,"|") 
Mytext=eval("R" & Myarray(0) & ".innertext") 
select case Mytext 
case "+" 
document.all.item("R" & Myarray(0)).innertext="-" 
for i=1 to ubound(Myarray) 
if  eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")=1 then 
document.all.item("T" & Myarray(i)).style.display="block" 
end if 
if  eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>1 then 
document.all.item("T" & Myarray(i)).style.display="none" 
end if 
next 
case "-" 
document.all.item("R" & Myarray(0)).innertext="+" 
for i=1 to ubound(Myarray) 
if  eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>=1 then 
document.all.item("T" & Myarray(i)).style.display="none" 
if eval("R" & Myarray(i) & ".innertext")="-" then 
document.all.item("R" & Myarray(i)).innertext="+" 
end if 
end if 
next 
end select 
set Myarray=nothing 
end sub Sub document_onselectstart 
document.selection.clear 
End Sub if isobject(eval("T1"))  then 
subtree document.all("T1").abbr 
subtree document.all("T1").abbr 
end if 
</script> </html>