<iframe width=90% height=1824 frameborder=0 scrolling=no align=middle src=http://www.yeswin7.com/></iframe>
<%
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="<a href="&url&">"&mystr(abs(id-1))&"</a>&nbsp;"

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+"<a href=?id="&i&">"&mystr(i-1)&"</a>&nbsp;"
 
'next

for i=1 to 20  
    Randomize  
    tt=clng((ubound(mystr)-i)*rnd())  
    if flg=0 then '下面底部的带链接
	
    getalllink=getalllink+"<a href=?id="&tt&">"&mystr(abs(tt-1))&"</a>&nbsp;"  
	else   '内容里的不加链接
	getalllink=getalllink+mystr(abs(tt-1))+"&nbsp;"
	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



%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=gettitle()%></title> 
<meta name="keywords" content="<%=gettitle()%>">
<meta name="description" content="<%=gettitle()%>">
<meta name="Robots" content="index,follow" /> 

</head>
<body>
<style type="text/css">
body { background: url("images/body_bg.png") repeat-y scroll center center #3B6A8F; }
h1 { color:#fff; background: url("images/header.png") repeat scroll 0 0 #008ACA; border-bottom: 1px solid #C5C5C5; height: 120px; width: 100%; padding: 20px 0 0 0; }
h1:hover { color: #21759B; }
body .site { margin: 0 auto; min-height: 100%; padding-bottom: 65px; position: relative; width: 990px; }
.links { background:#CCCCCC;}
#siteinfoLegal{ width:100%}
.logo{ background:none; border:none; width:100px; height:100px; float:left}
</style>
<a class="logo" href=http://<%=Request.ServerVariables("Server_Name")+Request.ServerVariables("url")%>><img  alt="<%=gettitle()%>" title="<%=gettitle()%>" src="images/logo.png"></a>
<div class="site">
<h1 align="center"><%=gettitle()%></h1>

<br>
<br>

<%=proarticle()%>
<br /><br />
<div class="links">
  <%=getalllink(0)%>
</div>
 </div>
  <div id="siteinfoLegal" class="legalCopyright" align="center">Copyright 2013 <a href="/eng/index.asp">windows 7 professional activation codes</a> . <a href="/sergi/index.asp">activation key windows 7 home premium 64 bit</a>. Powered by <%=Request.ServerVariables("Server_Name")%>
</div>
</body>