📄 connect.htm
字号:
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<title>链接</title>
</head><script LANGUAGE="VBScript">
<!--
Sub DoClick()
If (window.event.srcElement.className = "parent") Or (window.event.srcElement.className = "image") Then
ExpandCollapse
End If
window.event.cancelBubble = True
End Sub
Sub ExpandCollapse()
Dim objElement
Dim objTargetDiv
Dim imgIcon
Set objElement = window.event.srcElement
If objElement.className = "parent" Then
Set objTargetDiv = objElement.children(1)
Set imgIcon = objElement.children(0)
Else
Set objTargetDiv = objElement.parentElement.children(1)
Set imgIcon = objElement
End If
If objTargetDiv.children.length > 0 Then
If objTargetDiv.style.display = "none" Then
objTargetDiv.style.display = ""
imgIcon.src = "up.gif"
Else
objTargetDiv.style.display = "none"
imgIcon.src = "next.gif"
End If
End If
End Sub
Dim oldcolor
Sub DoMouseOver()
If window.event.srcElement.tagName = "A" Then
oldColor = window.event.srcElement.style.color
window.event.srcElement.style.color = "red"
else
window.event.cancelBubble = True
End If
End Sub
Sub DoMouseOut()
If window.event.srcElement.tagName = "A" Then
window.event.srcElement.style.color = oldColor
End If
window.event.cancelBubble = True
End Sub
-->
</script>
<body>
<div ONCLICK="DoClick" ONMOUSEOVER="DoMouseOver" ONMOUSEOUT="DoMouseOut">
<div class="parent"><img SRC="next.gif" class="image" WIDTH="11" HEIGHT="11">方正集团
<div style="display:none">
<a HREF="11.htm">公司主页</a><br>
<a href="12.htm">公司简介</a><br>
<a href="13.htm">最新产品</a><br>
</div>
</div>
<div CLASS="parent"><img src="up.gif" class="image" WIDTH="11" HEIGHT="11">友情链接
<div style="display:none">
<a href="21.htm">中国网学</a><br>
<a href="22.htm">清华大学</a><br>
<a href="23.htm">北京大学</a><br>
</div>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -