<%
dim id,url
id = Request("id")
if len(id)=0 then
id=0
end if
url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")
if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then
url=url & "?" & request.ServerVariables("QUERY_STRING")
end if
'response.write url
'response.end
function gettitle() '按id取title
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile(Server.Mappath("Tbs.db"),1,ture,-2)
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
mystr=split(str,chr(10)+chr(13))
if id=0 then
gettitle=mystr(0)
else
gettitle=mystr(abs(id-1))
end if
end function
'response.write id
'response.end
function getarticle(id) '按id取article
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile(Server.Mappath("dat.db"),1,ture,-2)
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
mystr=split(str,chr(10)+chr(13)) '回车符+换行符 文章以此分隔
if id=0 then
getarticle=mystr(0)
else
if abs(id-1)>getarticlecount() then '防止title数量大于文章的数量
Randomize
MyValue = (int(UBound(mystr) * Rnd) + 1)
getarticle=mystr(MyValue)
else
getarticle=mystr(abs(id-1))
end if
end if
end function
function getarticlecount() '按article数量
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile(Server.Mappath("dat.db"),1,ture,-2)
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
mystr=split(str,chr(10)+chr(13)) '回车符+换行符 文章以此分隔
getarticlecount=UBound(mystr)
end function
function getlink() '按id取图片或视频
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile(Server.Mappath("img.db"),1,ture,-2)
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
mystr=split(str,chr(10)+chr(13)) '回车符+换行符 文章以此分隔
Randomize
MyValue = (int(UBound(mystr) * Rnd) + 1)
getlink=mystr(MyValue)
'getlink=UBound(mystr)
end function
'response.write getlink()
'response.end
function getwin7() '取win7词组
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile(Server.Mappath("win7.db"),1,ture,-2)
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
mystr=split(str,chr(10)+chr(13)) '回车符+换行符 文章以此分隔
Randomize
MyValue = (int(UBound(mystr) * Rnd) + 1)
getwin7=mystr(MyValue)
'getlink=UBound(mystr)
end function
'response.write getlink()
'response.end
function getinlink(id) '按id取link id为0是随机
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile(Server.Mappath("Tbs.db"),1,ture,-2) '取title 对应 链接
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
mystr=split(str,chr(10)+chr(13))
getinlink=""&mystr(abs(id-1))&" "
end function
function getalllink(flg) '取所有链接带锚文本
Dim fso,txtfile,str
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.OpenTextFile(Server.Mappath("Tbs.db"),1,ture,-2) '取title 对应 链接
str=txtfile.ReadAll()
txtfile.Close()
Set fso=Nothing
Set txtfile=Nothing
mystr=split(str,chr(10)+chr(13))
'for i=1 to UBound(mystr)
'getalllink=getalllink+""&mystr(i-1)&" "
'next
for i=1 to 20
Randomize
tt=clng((ubound(mystr)-i)*rnd())
if flg=0 then '下面底部的带链接
getalllink=getalllink+""&mystr(abs(tt-1))&" "
else '内容里的不加链接
getalllink=getalllink+mystr(abs(tt-1))+" "
end if
tmp=mystr(tt)
mystr(tt)=mystr(ubound(mystr)-i)
mystr(ubound(mystr)-i)=tmp
next
end function
function proarticle() '按id取article 然后按.分隔文章 并加随机链接
article=getarticle(id)
articlearr=split(article,".") '按.分隔文章 看有几句话 为了在每个.后面加链接
sentencecount=UBound(articlearr)
if sentencecount=1 then '如果只有一个.
proarticle=articlearr(0)&"."&getinlink(id)
else if sentencecount=2 then '有两个.
proarticle=articlearr(0)&"."&getinlink(id)&articlearr(1)&"."&getinlink(id)
else if sentencecount=3 then '三个
proarticle=articlearr(0)&"."&getinlink(id)&articlearr(1)&"."&getinlink(id)&articlearr(2)&"."
else if sentencecount>3 then '三个以上的.
count1=int(sentencecount/2)
proarticle=articlearr(0)&"."&getinlink(id)
for i=1 to sentencecount
if i=count1 then '中间位置加.和链接
proarticle=proarticle+articlearr(i)+"."+getinlink(id)
else
proarticle=proarticle+articlearr(i)&"."
end if
next
else
proarticle=article&"."&getinlink(id) '没有.
end if
end if
end if
end if
end function
%>
<%=gettitle()%>
>
<%=gettitle()%>
<%=proarticle()%>
<%=getalllink(0)%>