📄 gotop.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

💻 ASP

字号:

<!--#include file="head.asp"-->
<%
Dim Id
Dim Url
Dim BBS
Id=cint(request("id"))
Url=trim(request("siteurl"))
SiteName=trim(request("sitename"))
BBS="http://www.95.la/"
%>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JavaScript>
function jb(){
	window.open("<%=BBS%>");
	alert('该会员网站名称:<%=SiteName%>\n网站的网址:<%=Url%>\n如有违规,请到论坛发贴举报!');
}

</SCRIPT>

<META content="MSHTML 6.00.2900.2802" name=GENERATOR>
<style type="text/css">
<!--
.style3 {color: #FF0000}
-->
</style>
</HEAD>
<BODY oncontextmenu="return false" oncut="return false;" oncopy="return false;" text=#0 link=#0 bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width="101%" borderColorLight=#666666 border=1>
  <TBODY>
  <TR>
    <TD bgColor=#e7e4e0 height=22>
      <TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
        <TBODY>
        <TR>
          <TD width="65%" nowrap>&nbsp;<span class="style2"><A title=免费加入<%=NetName%>! href="<%=NetUrl%>/index.asp?id=<%=Id%>" target=_blank><%=NetName%></A></span> &nbsp;&nbsp;&nbsp;&nbsp;
         <A title=免费加入<%=NetName%>! href="<%=NetUrl%>/index.asp?id=<%=Id%>" target=_blank> <MARQUEE>
           <span class="style3" nowrap="NOWRAP">站长注意：别再浪费你的背后弹窗，延时弹窗了，可以换来流量可以变成现金，10元即付！不弹白不弹！点击马上加入!</span>
           </MARQUEE></A>
          </TD>
          <TD vAlign=bottom align=right width="35%">
			<A class=c onclick=jb() href="#"></A>  |
			<A onClick="window.external.addFavorite('<%=Url%>','<%=SiteName%>')" href="#">收藏本页</A>  | 
			<A onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=Url%>');" href="#">设本页为首页</A>&nbsp; 
          </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>  </BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -