dir_js.asp

来自「不是我做的一个留言板」· ASP 代码 · 共 15 行

<SCRIPT LANGUAGE="VBScript">
Sub document_onClick()
If window.event.srcElement.className = "Folder" Then
strNode = window.event.srcElement.ID + "Cont"
strFldImg = window.event.srcElement.ID + "Fldr" 
If document.All(strNode).style.display = "" Then
  document.All(strNode).style.display = "none"
  document.All(strFldImg).Src = "<%=img_path%>/mark_plus.gif"
Else
  document.All(strNode).style.display = ""
  document.All(strFldImg).Src = "<%=img_path%>/mark_minus.gif"
End If
End If
End Sub
</SCRIPT>