head.asp

来自「这是一个ASP+VBScript+Access开发的网上家园源程序」· ASP 代码 · 共 99 行

ASP
99 行
字号 
<html>
<head>
<title>test</title>
<style type="text/css">
.spanstyle {
	COLOR: #D6749A; FONT-FAMILY: 宋体; FONT-SIZE: 10pt; POSITION: absolute; TOP: -50px; VISIBILITY: visible
}
</style>
<script>

var x,y
var step=18
var flag=0
// Your snappy message. Important: the space at the end of the sentence!!!
var message="★欢迎您的光临!"
message=message.split("")
var xpos=new Array()
for (i=0;i<=message.length-1;i++) {
	xpos[i]=-50
}
var ypos=new Array()
for (i=0;i<=message.length-1;i++) {
	ypos[i]=-200
}

function handlerMM(e){
	x = (document.layers) ? e.pageX : document.body.scrollLeft+event.clientX
	y = (document.layers) ? e.pageY : document.body.scrollTop+event.clientY
	flag=1
}

function makesnake() {
	if (flag==1 && document.all) {
    	for (i=message.length-1; i>=1; i--) {
   			xpos[i]=xpos[i-1]+step
			ypos[i]=ypos[i-1]
    	}
		xpos[0]=x+step
		ypos[0]=y
		for (i=0; i<message.length-1; i++) {
    		var thisspan = eval("span"+(i)+".style")
    		thisspan.posLeft=xpos[i]
			thisspan.posTop=ypos[i]
    	}
	}
	else if (flag==1 && document.layers) {
    	for (i=message.length-1; i>=1; i--) {
   			xpos[i]=xpos[i-1]+step
			ypos[i]=ypos[i-1]
    	}
		xpos[0]=x+step
		ypos[0]=y
		for (i=0; i<message.length-1; i++) {
    		var thisspan = eval("document.span"+i)
    		thisspan.left=xpos[i]
			thisspan.top=ypos[i]
    	}
	}
		var timer=setTimeout("makesnake()",30)
}
</script>
</head>

<body onload="makesnake()">
<script>
<!--
for (i=0;i<=message.length-1;i++) {
    document.write("<span id='span"+i+"' class='spanstyle'>")
	document.write(message[i])
    document.write("</span>")
}
if (document.layers){
	document.captureEvents(Event.MOUSEMOVE);
}
document.onmousemove = handlerMM;
-->
</script>

<div align="center">
  <center>
  <table border="0" width="750" cellspacing="0" cellpadding="0" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-top: 1 solid #000000">
    <tr>
      <td width="100%" style="border-bottom: 1 solid #000000"><img border="0" src="logo.jpg" usemap="#Map"></td>
    </tr>
  </table>
<map name="Map">
  <area shape="rect" coords="660,8,730,24" href="#" onClick="javascript:this.style.behavior='url(#default#homepage)';this.sethomepage('http://<%=servername%>/');return false;">
  <area shape="rect" coords="660,26,730,42" href="javascript:window.external.AddFavorite('http://<%=servername%>/','苏州科技学院——网上家园')">
  <area shape="rect" coords="660,44,730,60" href="mailto:<%=admin_email%>" target="_blank">
  <area shape="rect" coords="20,20,130,60" href="http://<%=servername%>/">
</map>
</center>
</div>

</body>

</html>

head.asp - 源码说明

本页面展示了「这是一个ASP+VBScript+Access开发的网上家园源程序」中的 head.asp 源码文件，采用 ASP 编程语言编写，共 99 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?