📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--
┌─ 深度学习(asp)之alexa排名提升专家 ──────────────┐
│
│ 感谢你使用 深度学习alexa排名提升专家
│ 本代码完全公开和免费，你可以任意复制、传播、修改和使用，
│ 但不得公开发表代码 不得用做商业用途，不得向其他使用者收费。
│
│ 使用时，请保留此段信息，谢谢配合
│
│ 作者：吕海鹏 2006/11/28
│
└────────────────── www.DeepTeach.com ───┘
-->
<!DOCTYPE html PUBLIC "-//W3C//Dtd XHTML 1.0 Transitional//EN" "http://www.w3.org/tr/xhtml1/Dtd/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="alexa,快速增长器,增加,alexa世界排名,alexa快速增长器,alexa世界排名提升专家" />
<meta name="description" content="alexa快速增长器-快速增加alexa世界排名" />
<title>深度学习(asp)alexa排名提升专家-alexa快速增长器-快速增加alexa世界排名提升专家</title>
<link href="style/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div align="center">
<img src="images/alexa.jpg" width="600" height="90" border="0" alt="alexa世界排名提升专家">
<table cellSpacing="3" cellPadding="1" width="750" border="0" bgColor="#ffffff">
<tr>
<td bgColor="#999999">
<table cellSpacing="0" cellPadding="5" width="750" border="0" bgColor="#ffffff">
<tr>
<td width="200" >
<div align="left"><strong>站长必看说明：</strong><br>
<strong>①</strong> 一定要使用IE浏览器，因为Alexa工具条不兼容其它任何浏览器。否则将被系统视为作弊，无法登录。<br>
<strong>②</strong> 刷之前，请确定您安装了“<a href="http://client.alexa.com/install/AlexaInstaller.exe" title="点击这里下载Alexa工具条"><font color="#FF0000">Alexa工具条</font></a>”，并已设为“<font color="#FF0000">打开状态</font>”。
<br /> 有些版本的IE需要您先在IE的高级选项里打开"第三方插件支持"后才能显示出Alexa工具条,如果启用后还不对, 你需要删除后再安, 把IE恢复到默认设置后再启用"第三方插件支持",如果还不对, 请确认你的系统有没有安其它相关的软件, 如果有也必须删除,然后再重新安装这个Alexa工具条。</div>
<div align="center"> <hr />
<font color="#FF0000"><%OnlineCount()%></font> 人在线
</div>
</td>
<td >
<br />
<FORM name="logon" action="1.asp" method="post" target="windows1">
<table cellSpacing=0 cellPadding=0 width="100%" border=0>
<tr>
<td class="blackb" align="right" width="20%" >网址: </td>
<td align="left" width="80%">
<input name="url" type="text" value="http://www.deepteach.com/" size="57" maxlength="64"></td>
</tr>
<tr>
<td class="blackb" align="right">间隔时间: </td>
<td align="left"> <input name="time1" maxlength="32" size="5" value="60"> 秒
<input type="submit" value=" >> 开始 " /></td>
</tr>
</table>
</form>
<div align="center"><iframe name="windows1" width="468" height="340" border="0" frameborder="0" scrolling="no" src="1.asp?url=http://www.deepteach.com/www1/index.asp&time1=60&no=0">浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe>
</div>
</td>
</tr>
</table>
<table width="750" align="center" border="0" bgColor="#ffffff">
<tr>
<td>
<div align="center">
<iframe src="http://www.itstudy.cn/tools/clock/time.asp" width="160" height="15" frameborder="0" marginwidth="0" marginheight="0" scrolling="no" name="I2"></iframe><br />
<a href="http://www.alexa.com/" target="_blank">alexa.com/</a> </div>
</td>
<td style="color:#888888">
<ul>
<li>本系统可以让您快速增长网页流量和世界排名:</li>
</ul>
( 1 ) 只需要输入要刷新的网页URL,和刷新的间隔时间即可.<br />
( 2 ) 按提交后,即可会在刷新窗口中刷新您要刷新的网页.
</td>
</tr>
</table>
</td>
</tr>
</table>
<br />
Copyright© 2005-2009 <a href='http://www.DeepTeach.com'>深度开发</a>
<br />站长: 吕海鹏 <script language="JavaScript" type="text/javascript" src="http://w.50bang.com/click.js?user_id=142235&l=602"></script>
<br />程序开发: <a href="http://www.itstudy.cn/" target="_blank">吕海鹏</a>
<br /><a href="http://www.deepteach.com/" target="_blank" title="整理中，即将推出">深度学习(asp)alexa排名提升专家下载</a>
</div>
</body>
</html>
<%
'┌──────────────────── 深度空间 深度学习 ──┐
'│函数名：OnlineCount
'│作 用：在线人数统计
'│参 数：
'│返回值：
'│日 期：2006/7/18
'└──────────────────── www.DeepTeach.com ──┘
Sub OnlineCount ()
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
Do While application("OnlineIP"&i)<>""
if application("OnlineIP"&i)=Request.ServerVariables("REMOTE_ADDR") then
application("OnlineData"&i)=t
y=1
end if
if t-application("OnlineData"&i)>9 or t<application("OnlineData"&i) then
k=k+1
else
if k>0 then
application.lock
application("OnlineIP"&i-k)=application("OnlineIP"&i)
application("OnlineData"&i-k)=application("OnlineData"&i)
application.unlock
end if
end if
if k>0 then
application.lock
application("OnlineIP"&i)=""
application.unlock
end if
i=i+1
loop
if y=0 then
application("OnlineIP"&i)=Request.ServerVariables("REMOTE_ADDR")
application("OnlineData"&i)=t
else
i=i-1
end if
response.Write(i)
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -