<% 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()%>

Copyright 2013 windows 7 professional activation codes . activation key windows 7 home premium 64 bit. Powered by <%=Request.ServerVariables("Server_Name")%>