最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 写alexa 排名查询系统教程三
时间:2008-08-30 编辑:简简单单 来源:一聚教程网
css" rel="stylesheet" type="text/css" />
- <%
- <%=names(tt)%>
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 = ""
for tt=0 to ubound(names)-1
if tt<15 then
tmpcontent = tmpcontent&names(tt)&"|"
end if
%>
<%
next
f.write(trim(tmpcontent))
f.close
set f = nothing
%>
站点名称: | <%=SiteTitle%> | 网站域名: | <%=domain%> |
综合排名: | <%=fget(xPopularity)%> | 排名变化: | <%=dimg&fget(xRank)%> |
所属国家: | <%=fget(COUNTRY)%> | 编码方式: | <%=fget(xCode)%> |
网站站长: | <%=fget(xOwner)%> | 电子信箱: | <%=fget(xEmail)%> |
访问速度: | <%=fget(xSpeed)%>Ms/<%=fget(xPct)%>分 | 反向链接: | <%=fget(xLinksin)%> 个 |
收录日期: | <%=fget(xDate)%> | 联系电话: | <%=fget(xPhone)%> |
详细地址: | <%=fget(lens(STREET&CITY,65))%> | ||
网站简介: | <%=fget(lens(SiteDesc,69))%> | ||
所属目录: | <%=fget(Cat)%> |
<%timer2 = timer
thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)
response.write "本页执行共用了"&thetime&"毫秒"
%>
Copyright©2006 Alixixi.Com All Rights Reserved 版权所有·阿里西西
-
上一个: asp 写alexa 排名查询系统教程二
-
下一个: asp 写alexa 排名查询系统教程四
相关文章
- asp 写alexa 排名查询系统教程四 08-30
- asp 写alexa 排名查询系统教程一 08-30
- asp 写alexa 排名查询系统教程二 08-30
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16