[asp]阿里西西的alexa采集效果代码(6)
<meta http-equiv="Keywords" content="黑区网络Alexa排名查询,Alexa作弊,Alexa排名,Alexa查询,Alexa信息,排名,流量,访问量,页面浏览量,搜索引擎,<%=SiteTitle%>的Alexa排名信息,<%=domain%>">
<meta name="description" content="www.alixixi.com,黑区网络alexa查询,alexa排名,alexa排名查询,alexa世界排名查询,alexa 网站排名查询,alexa网站排名,全球alexa排名查询,alexa排名查询,网站alexa排名查询,alexa工具条,alexa中文排名查询,alexa traffic rank,alexa查询,alexa排名" />
<link href="skin/style.css" rel="stylesheet" type="text/css" />
<script language=JavaScript src="js/scroll.js"></script>
</head>
<body>
<DIV id=lovexin1 class="body" style='Z-INDEX: 10; LEFT: 6px; POSITION: absolute; TOP: 117px; width: 108;'><div style="background:#E8F5FE;height:18px;font-size:12px;font-weight:bold;" onClick='javascript:window.hide()'>最近查询记录</div>
<div><ul> <%
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile( server.MapPath("cache.asp"), 1, True)
if f.AtEndOfStream=false then
content = f.readline()
end if
f.close
if fso.fileexists(server.MapPath("cache.asp"))=true then
fso.deletefile(server.MapPath("cache.asp"))
end if
Set f = fso.OpenTextFile( server.MapPath("cache.asp"), 8, True)
if isnull(content) or len(trim(content))=0 then
content = domain&"|"
else
if instr(content,domain)>0 then
set content = replace(content,domain&"|","")
else
content = domain&"|"&content
end if
end if
names = split(content,"|")
tmpcontent = ""
内容版权声明：除非注明，否则皆为本站原创文章。