Nov 14
我们都知道，外链对SEO很重要，其实真正做SEO的，到最后拼的都是链接资源，而不是什么别的技术，SEO新手由于缺乏资源，主要是外链资源，所以制约了效果，而SEO老手，往往通过时间的积累，手上拥有大量的优质外链资源，一般SEO老手都自己养着至少数十个高质的站点用来给自己欲优化的新站提供链接支持，所以在优化的初始阶段，SEO老手一般都不用为链接发愁。例如移不动网络营销，本身自己就运营着二十多个高质量的网站，通过这些自己的链接，新的网站可以短时间被收录并获得充足的链接支持。
在外链的形式中，首页明链的效果最佳，通常以友情链接的形式展现，如果你是专门做SEO的，那么肯定也会有自己的网站群为欲优化的网站提供友情链接，这些网站友情链接的维护工作量是很大的，比如说，当你要为第50个网站提供链接的时候，你需要在前49个网站里都手动加上第50个网站的友情链接，如果网站的数量再多一些，那么这个工作量就会呈几何级增加。
其实我们可以通过远程读取TXT文本的办法，来维护这些网站上的大量链接，这样就可以节省很多工作量提高SEO工作的效率，只需要一次性在网站上加入这些代码，以后就可以通过维护一个固定的TXT文本来维护这些网站上的链接，瞬间将新网站的链接出现在数十个网站上，如果你的网站特别多，链接也特别多，还可以考虑为这些链接分组，每一个TXT文本为一组，建议不要超过50个网站。唯一需要注意的就是，这个存放TXT链接文本的网址一定要保持稳定，空间也要稳定，不然会影响所有网站。这里推荐一个稳定速度很快的空间，百度搜索“移不动网络营销”，独立IP空间很适合做SEO。
PHP远程读取TXT文本的代码：
$file_name="http://www.ebudong.com/url/1.txt";
$i=1;
$fp=fopen($file_name,'r');
while(!feof($fp))
{
$buffer=fgets($fp,4096);
echo $buffer." ";
$i=$i+1;
}
fclose($fp);
?>
ASP远程读取TXT文本代码：
<%
Function PostHttpPage(loginActUrl,PostData)
Dim xmlHttp
Dim RetStr
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "POST", loginActUrl, False
XmlHTTP.setRequestHeader "Content-Length",Len(PostData)
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.Send PostData
If Err.Number <> 0 Then
Set xmlHttp=Nothing
response.Write("err:"&PostData)
Exit Function
End If
PostHttpPage=BytesToBstr(xmlHttp.responseBody,"GB2312")
Set xmlHttp = nothing
End Function
Function BytesToBstr(body,code)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset =code
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
<%= PostHttpPage("http://www.ebudong.com/url/1.txt","") %>
里面的http://www.ebudong.com/url/1.txt修改为你的TXT链接文本存放的地址。
董敬一 网络营销
咨询热线:159-9855-7370
QQ:543646 (中国移不动)
网址:http://www.ebudong.com
在外链的形式中，首页明链的效果最佳，通常以友情链接的形式展现，如果你是专门做SEO的，那么肯定也会有自己的网站群为欲优化的网站提供友情链接，这些网站友情链接的维护工作量是很大的，比如说，当你要为第50个网站提供链接的时候，你需要在前49个网站里都手动加上第50个网站的友情链接，如果网站的数量再多一些，那么这个工作量就会呈几何级增加。
其实我们可以通过远程读取TXT文本的办法，来维护这些网站上的大量链接，这样就可以节省很多工作量提高SEO工作的效率，只需要一次性在网站上加入这些代码，以后就可以通过维护一个固定的TXT文本来维护这些网站上的链接，瞬间将新网站的链接出现在数十个网站上，如果你的网站特别多，链接也特别多，还可以考虑为这些链接分组，每一个TXT文本为一组，建议不要超过50个网站。唯一需要注意的就是，这个存放TXT链接文本的网址一定要保持稳定，空间也要稳定，不然会影响所有网站。这里推荐一个稳定速度很快的空间，百度搜索“移不动网络营销”，独立IP空间很适合做SEO。
PHP远程读取TXT文本的代码：
$file_name="http://www.ebudong.com/url/1.txt";
$i=1;
$fp=fopen($file_name,'r');
while(!feof($fp))
{
$buffer=fgets($fp,4096);
echo $buffer." ";
$i=$i+1;
}
fclose($fp);
?>
ASP远程读取TXT文本代码：
<%
Function PostHttpPage(loginActUrl,PostData)
Dim xmlHttp
Dim RetStr
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "POST", loginActUrl, False
XmlHTTP.setRequestHeader "Content-Length",Len(PostData)
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.Send PostData
If Err.Number <> 0 Then
Set xmlHttp=Nothing
response.Write("err:"&PostData)
Exit Function
End If
PostHttpPage=BytesToBstr(xmlHttp.responseBody,"GB2312")
Set xmlHttp = nothing
End Function
Function BytesToBstr(body,code)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset =code
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
<%= PostHttpPage("http://www.ebudong.com/url/1.txt","") %>
里面的http://www.ebudong.com/url/1.txt修改为你的TXT链接文本存放的地址。
董敬一 网络营销
咨询热线:159-9855-7370
QQ:543646 (中国移不动)
网址:http://www.ebudong.com