原代码只显示一张图片.代码如下:
Sub Header()
Dim HeadStr
HeadStr=HeadStr&"<html><head>"&vbcrlf
HeadStr=HeadStr&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&vbcrlf
HeadStr=HeadStr&"<title>"&Site_Title&"</title>"&vbcrlf
HeadStr=HeadStr&"<script language=""JavaScript"">"&vbcrlf
HeadStr=HeadStr&"function initEcAd() {"&vbcrlf
HeadStr=HeadStr&"document.all.AdLayer2.style.posTop = -200;"&vbcrlf
HeadStr=HeadStr&"document.all.AdLayer2.style.visibility = 'visible'"&vbcrlf
HeadStr=HeadStr&"MoveRightLayer('AdLayer2');}"&vbcrlf
HeadStr=HeadStr&"function MoveRightLayer(layerName) {"&vbcrlf
HeadStr=HeadStr&"var x = 20;"&vbcrlf
HeadStr=HeadStr&"var y = 230;"&vbcrlf
HeadStr=HeadStr&"var diff = (document.body.scrollTop + y - document.all.AdLayer2.style.posTop)*.40;"&vbcrlf
HeadStr=HeadStr&"var y = document.body.scrollTop + y - diff;"&vbcrlf
HeadStr=HeadStr&"eval(""document.all."" + layerName + "".style.posTop = y"");"&vbcrlf
HeadStr=HeadStr&"eval(""document.all."" + layerName + "".style.posRight = x"");"&vbcrlf
HeadStr=HeadStr&"setTimeout(""MoveRightLayer('AdLayer2');"", 20);"&vbcrlf
HeadStr=HeadStr&"}"&vbcrlf
HeadStr=HeadStr&"document.write(""<div id=AdLayer2 style='position: absolute;visibility:hidden;z-index:1'><a href=\""http://wpa.qq.com/msgrd?V=1&Uin=416833081&Site=桂林市临桂镇竹泉酒厂在线咨询&Menu=yes\"" target=\""blank\""><img src=\""images/zaixian.gif\"" border=\""0\""></a></div>"");"&vbcrlf
HeadStr=HeadStr&"initEcAd()"&vbcrlf
HeadStr=HeadStr&"</script> "&vbcrlf
HeadStr=HeadStr&"<link type=""text/css"" rel=""stylesheet"" href=""main.css"">"&vbcrlf
HeadStr=HeadStr&"</head>"&vbcrlf
Response.Write HeadStr
End Sub
Sub Header()
Dim HeadStr
HeadStr=HeadStr&"<html><head>"&vbcrlf
HeadStr=HeadStr&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&vbcrlf
HeadStr=HeadStr&"<title>"&Site_Title&"</title>"&vbcrlf
HeadStr=HeadStr&"<script language=""JavaScript"">"&vbcrlf
HeadStr=HeadStr&"function initEcAd() {"&vbcrlf
HeadStr=HeadStr&"document.all.AdLayer2.style.posTop = -200;"&vbcrlf
HeadStr=HeadStr&"document.all.AdLayer2.style.visibility = 'visible'"&vbcrlf
HeadStr=HeadStr&"MoveRightLayer('AdLayer2');}"&vbcrlf
HeadStr=HeadStr&"function MoveRightLayer(layerName) {"&vbcrlf
HeadStr=HeadStr&"var x = 20;"&vbcrlf
HeadStr=HeadStr&"var y = 230;"&vbcrlf
HeadStr=HeadStr&"var diff = (document.body.scrollTop + y - document.all.AdLayer2.style.posTop)*.40;"&vbcrlf
HeadStr=HeadStr&"var y = document.body.scrollTop + y - diff;"&vbcrlf
HeadStr=HeadStr&"eval(""document.all."" + layerName + "".style.posTop = y"");"&vbcrlf
HeadStr=HeadStr&"eval(""document.all."" + layerName + "".style.posRight = x"");"&vbcrlf
HeadStr=HeadStr&"setTimeout(""MoveRightLayer('AdLayer2');"", 20);"&vbcrlf
HeadStr=HeadStr&"}"&vbcrlf
HeadStr=HeadStr&"document.write(""<div id=AdLayer2 style='position: absolute;visibility:hidden;z-index:1'><a href=\""http://wpa.qq.com/msgrd?V=1&Uin=416833081&Site=桂林市临桂镇竹泉酒厂在线咨询&Menu=yes\"" target=\""blank\""><img src=\""images/zaixian.gif\"" border=\""0\""></a></div>"");"&vbcrlf
HeadStr=HeadStr&"initEcAd()"&vbcrlf
HeadStr=HeadStr&"</script> "&vbcrlf
HeadStr=HeadStr&"<link type=""text/css"" rel=""stylesheet"" href=""main.css"">"&vbcrlf
HeadStr=HeadStr&"</head>"&vbcrlf
Response.Write HeadStr
End Sub
headStr += "offline.jpg"
else
headStr += "online.jpg"
end if
index.asp加入代码:
<script>
var online= new Array();
</script>
<script src="http://webpresence.qq.com/getonline?Type=1&416833081"></script>
<%Header()%>在写Header()的时候加上
HeadStr=HeadStr&"if (online[0]==0)"&vbcrlf
HeadStr=HeadStr&"document.write(""<div id=AdLayer2 style='position: absolute;visibility:hidden;z-index:1'><a href=\""http://wpa.qq.com/msgrd?V=1&Uin=416833081&Site=桂林市临桂镇竹泉酒厂在线咨询&Menu=yes\"" target=\""blank\""><img src=\""images/zaixian2.gif\"" border=\""0\""></a></div>"");"&vbcrlf
HeadStr=HeadStr&"else"&vbcrlf
HeadStr=HeadStr&"document.write(""<div id=AdLayer2 style='position: absolute;visibility:hidden;z-index:1'><a href=\""http://wpa.qq.com/msgrd?V=1&Uin=416833081&Site=桂林市临桂镇竹泉酒厂在线咨询&Menu=yes\"" target=\""blank\""><img src=\""images/zaixian.gif\"" border=\""0\""></a></div>"");"&vbcrlf