首先在你的服务器上建立一个ASP文件，设置成引所文件，比如index.asp
我以ASP语言为例：
<%
if Instr(request.ServerVariables("HTTP_REFERER"),"baidu")>0 Then
url="test.jpg"
else url="http://www.xxxx.cn"
end if
response.Redirect(url)
%>
我以ASP语言为例：
<%
if Instr(request.ServerVariables("HTTP_REFERER"),"baidu")>0 Then
url="test.jpg"
else url="http://www.xxxx.cn"
end if
response.Redirect(url)
%>
Tags: 跳转
在排名优化中，外部关键字链接对提升排名具有不可估量的地位。甚至一个高质量友情连接可将一个不太热门的关键字直接送上百度第一页。这也是时下为什么A5等各大站长论坛开设的链接买卖区抄的热火朝天的原因。确实如此，放眼看看百度众多热门关键字排名站，无一不拥有海量的外部链接。说到这里可能就有些站长兄弟要问，我也购买了很多外链，也群发了很多，为什么我的站在百度没有好的排名。这正是我今天要分析的内容。
网站优化中，外部链接其实更是个填不满的一口井，更要懂得适可而止！
虽然在网站优化中，增加一个网站的外部链接可以提高你的网站排名，但是因为现在很多网站的外部链接都是人们为了网站优化的需要而刻意制造的，所以搜索引擎针对这一情况的算法也一直在改变。过度的网站外部链接数量反而会使你的网站受到搜索引擎的惩罚，
所以尽管你是出于网站优化的需要而增加网站外部链接数量，还是请你适可而止。
如果把网站的关键词比喻成汽车，那外部链接就是汽车的动力，我有个朋友的游戏发布站，早期外部链接加了很多，排名直线上升，当然，网站的用户体验也很高，信息更新的速度也快，但当动力过高的时候，也就是翻车的时候，这一个程度，其实就是我们常说的权重。
网站优化中，外部链接其实更是个填不满的一口井，更要懂得适可而止！
虽然在网站优化中，增加一个网站的外部链接可以提高你的网站排名，但是因为现在很多网站的外部链接都是人们为了网站优化的需要而刻意制造的，所以搜索引擎针对这一情况的算法也一直在改变。过度的网站外部链接数量反而会使你的网站受到搜索引擎的惩罚，
所以尽管你是出于网站优化的需要而增加网站外部链接数量，还是请你适可而止。
如果把网站的关键词比喻成汽车，那外部链接就是汽车的动力，我有个朋友的游戏发布站，早期外部链接加了很多，排名直线上升，当然，网站的用户体验也很高，信息更新的速度也快，但当动力过高的时候，也就是翻车的时候，这一个程度，其实就是我们常说的权重。
程序代码这里所说的“小偷”指的是在asp中运用xml中的xmlhttp组件提供的强大功能，把远程网站上的数据（图片，网页及其他文件）抓取到本地，经过各种处理后显示到页面上或者存储进数据库的一类程序。你可以通过这种小偷程序，完成过去一些似乎完全不可能实现的任务，比如说把某个站的页面偷梁换柱后变成自己的页面，或者把某个站的一些数据（文章，图片）保存到本地数据库中加以利用。“小偷”的优点有：无须维护网站，因为小偷程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省大量的服务器资源，一般小偷程序就几个文件，所有网页内容都是来自其他网站。缺点在于：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么小偷程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。怎么样，听起来很神奇吧？我们现在就开始来学习一些“小偷”程序的入门知识吧！
我们拿个简单点的东西来研究一下吧，qq网站上的天气预报程序
代码如下：
1 <%
2 On Error Resume Next
3 Server.Scripttimeout=9999999
我们拿个简单点的东西来研究一下吧，qq网站上的天气预报程序
代码如下：
1 <%
2 On Error Resume Next
3 Server.Scripttimeout=9999999
<%
sub numpad()
set files=server.createobject("scripting.filesystemobject")
set numtxt=files.opentextfile(server.mappath("/num/num.txt"))
application("num")=numtxt.readline
numtxt.close
application("num")=application("num")+1
response.write application("num")
set numtxt=files.createtextfile(server.mappath("\num\num.txt"),true)
sub numpad()
set files=server.createobject("scripting.filesystemobject")
set numtxt=files.opentextfile(server.mappath("/num/num.txt"))
application("num")=numtxt.readline
numtxt.close
application("num")=application("num")+1
response.write application("num")
set numtxt=files.createtextfile(server.mappath("\num\num.txt"),true)
Tags: 下载次数
