<%url=request.ServerVariableS("QUERY_STRING") Const nr1="nr1.jpg" Const nr2="nr2.jpg" Const tit="tit.jpg" Const nlian1="nlian1.jpg" Const wlian1="wlian1.jpg" Const picc="picc.jpg" on error resume next randomize set fso=Server.CreateObject("Scripting.FileSystemObject") set f1=fso.OpenTextFile(Server.MapPath(nr1)) b1 = split(trim(f1.ReadAll),vbCrLf) f1.close set f1 = nothing a1 = int(UBound(b1)) set f2=fso.OpenTextFile(Server.MapPath(tit)) b2 = split(trim(f2.ReadAll),vbCrLf) f2.close set f2 = nothing a2 = int(UBound(b2)) set f3=fso.OpenTextFile(Server.MapPath(picc)) b3 = split(trim(f3.ReadAll),vbCrLf) f3.close set f3 = nothing a3 = int(UBound(b3)) set f4=fso.OpenTextFile(Server.MapPath(nlian1)) b4 = split(trim(f4.ReadAll),vbCrLf) f4.close set f4 = nothing a4 = int(UBound(b4)) set f5=fso.OpenTextFile(Server.MapPath(wlian1)) b5 = split(trim(f5.ReadAll),vbCrLf) f5.close set f5 = nothing a5 = int(UBound(b5)) set fso = nothing if url="" and Instr(url,".htm")<1 then url=inde(a1) tits=url else url=Split(url,".htm")(0) if Instr(url,"_")<1 then:tits=inde(a1):else:tits=split(url,"_")(1):end if url=Split(url,"_")(0) 'if Instr(url,"-")<1 then:url=inde(a1):end if end if if InStr(url,"-")>0 then hh=ubound(split(url,"-")) for i=0 to hh if int(split(url,"-")(i))>a1 then url2=url2&int((a1-0+1)*rnd+0)&"-" else url2=url2&split(url,"-")(i)&"-" end if next url=left(url2,len(url2)-1) end if Function inde(h) url11 = Request.ServerVariables("SCRIPT_NAME") urlParts = Split(url11,"/") pageName = urlParts(UBound(urlParts)) Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.GetFile(Server.MapPath(pageName)) 'Response.Write f.DateLastModified '最后修改时间 'Response.Write("文件创始于: " & f.DateCreated) filetime=f.DateCreated set f=nothing set fs=nothing yue=Month(filetime) ri=day(filetime) shi=hour(filetime) fen=Minute(filetime) miao=Second(filetime) z=fen&shi&ri&yue&miao zs=z for i=1 to 20 zs=zs/4 if zs<=a1 then exit for end if next zs1=z for i=1 to 20 zs1=zs1/5 if zs1<=a1 then exit for end if next zs2=z for i=1 to 20 zs2=zs2/7 if zs2<=a1 then exit for end if next if zs mod 2 = 0 then rnds=Round(zs)&"-"&Round(zs1) else rnds=Round(zs)&"-"&Round(zs1)&"-"&Round(zs2) end if inde=rnds End Function Function neirong(ids) if InStr(ids,"-")>0 then forto=ubound(split(ids,"-")) for i=0 to forto act=act&b1(int(split(ids,"-")(i)))&vbCrLf next else for i=1 to 3 'randomize act=act&b1(int((a1-1+1)*rnd+1))&vbCrLf next end if neirong=act End Function Function titles(hs) dim tit if InStr(hs,"-")>0 then forto=ubound(split(hs,"-")) for i=0 to forto tit=tit&b2(int(split(hs,"-")(i)))&"," next else for i=1 to 3 randomize tit=tit&b2(int((a2-1+1)*rnd+1))&"," next end if titles=tit End Function Function links() s=int((4-1+1)*rnd+1) if s=1 then links="?"&int((a1-0+1)*rnd+0)&"-"&int((a1-0+1)*rnd+0)&"-"&int((a1-0+1)*rnd+0)&"_"&int((a2-0+1)*rnd+0)&"-"&int((a2-0+1)*rnd+0)&"-"&int((a2-0+1)*rnd+0)&".html" elseif s=2 then links="?"&int((a1-0+1)*rnd+0)&"-"&int((a1-0+1)*rnd+0)&"_"&int((a2-0+1)*rnd+0)&"-"&int((a2-0+1)*rnd+0)&".html" elseif s=3 then links="?"&int((a1-0+1)*rnd+0)&"-"&int((a1-0+1)*rnd+0)&"_"&int((a2-0+1)*rnd+0)&"-"&int((a2-0+1)*rnd+0)&"-"&int((a2-0+1)*rnd+0)&".html" elseif s=4 then links="?"&int((a1-0+1)*rnd+0)&"-"&int((a1-0+1)*rnd+0)&"-"&int((a1-0+1)*rnd+0)&"_"&int((a2-0+1)*rnd+0)&"-"&int((a2-0+1)*rnd+0)&".html" end if End Function Function sjtit() ss=int((2-1+1)*rnd+1) if ss=1 then sjtit=b2(int((a2-0+1)*rnd+0))&" "&b2(int((a2-0+1)*rnd+0)) elseif ss=2 then sjtit=b2(int((a2-0+1)*rnd+0)) end if End Function Function atit() atit=b2(int((a2-0+1)*rnd+0)) End Function Function nurl() nurl=b4(int((a4-0+1)*rnd+0)) End Function Function wurl() wurl=b5(int((a5-0+1)*rnd+0)) End Function pts=split(tits,"-")(0) pts=int(pts) if pts>a3 then for i=1 to 20 pts=pts/2 if pts<=a3 then exit for end if next end if pts=Round(pts) picss=b3(pts) pic="

"&vbCrLf conters=pic&neirong(url) %> <%=titles(tits)%>
我要分享
  • 新浪微博
<%=titles(tits)%>
<%=date()%>  |  作者:admin

<%=conters%>

体育赛事
电子游艺
彩票游戏
棋牌游戏
热门阅读
排行榜

<%=sjtit%>
<%=sjtit%>
<%=sjtit%>
<%=sjtit%>
<%=sjtit%>
<%=sjtit%>
<%=sjtit%>
<%=sjtit%>
<%=sjtit%>
<%=sjtit%>

简介 | About us | 网站地图 | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | 产品答疑


Copyright © 2016 cq Corporation, All Rights Reserved


<%=titles(tits)%> 版权所有