<Script language=VBScript> <!-- Sub window_onscroll() rightf.style.pixelTop=document.body.scrollTop shhi.style.top=document.body.clientHeight+document.body.scrollTop-30 End Sub sub DoFold(index) ’显示与隐藏某节点的过程 dim itm set itm=eval("divfold" & index) if itm.style.display="none" then itm.style.display="" else itm.style.display="none" end if set itm = document.all(itm.sourceIndex-2) if itm.innerText="0" then itm.innerText="1" else itm.innerText="0" end if set itm=document.all("itmjj" & index) if not itm is nothing then if itm.innerText="+" then itm.innerText="-" else itm.innerText="+" end if end if end sub --> </Script>