connect.htm

来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 74 行

HTM

74 行

<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>

connect.htm - 源码说明

本页面展示了「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!」中的 connect.htm 源码文件，采用 HTM 编程语言编写，共 74 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与VBSCRIPT相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?