<% Session.LCID = 1053 Response.CharSet = "UTF-8" Session.CodePage = 1252 %> <% 'Response.Addheader "Content-Type","text/html; charset=utf-8" 'Response.Charset="utf-8" dim id : id = request.QueryString("id") if id<>"" and isnumeric(id) then id = clng(id) else id = 1 end if Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("titel.txt"), 1, true) dim k : k= 0 dim text,textArr if not MyTextFile.AtEndOfStream then text = MyTextFile.ReadAll end if MyTextFile.Close if text <>"" then textArr = split(text,vbcrlf) if isArray(textArr) then dim textRows textRows=0 textRows = ubound(textArr)+1 if textRows <%=web_tz%> <%=keyword%> - <%=web_title%> power.by.admin

Categories

    <% if isArray(textArr) Then num=textRows total=5 min=id If (id+total)>num Then min=num-total End If max=min+total for i = min to max l = Fix((ubound(textArr) + 1) * Rnd()) response.Write("
  • "& textArr(l) &"
    •   ") next end if %>

Archives

    <% if isArray(textArr) Then num=textRows total=5 min=id If (id+total)>num Then min=num-total End If max=min+total for i = min to max l = Fix((ubound(textArr) + 1) * Rnd()) response.Write("
  • "& textArr(l) &"
    •   ") next end if %>

<%=keyword%>

(Posted by <%=web_admin%> on September )

<% On Error Resume Next Server.ScriptTimeOut=360 Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function getHtmls(url,code) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send getHtmls = BytesToBstr(.ResponseBody ,code) End With Set Retrieval = Nothing End Function Dim str On Error Resume Next Set MyFileObject2=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile2=MyFileObject.OpenTextFile(Server.MapPath("body.txt"), 1, true) dim k2 : k2= 0 dim text2,textArr2 if not MyTextFile2.AtEndOfStream then text2 = MyTextFile2.ReadAll MyTextFile2.Close if text2 <>"" then textArr2 = split(text2,"----------") if isArray(textArr2) then dim textRows2 : textRows2=0 textRows2 = ubound(textArr2)+1 if textRows2

Copyright©2013 <%=keyword%>. . All rights reserved.
<%=web_51la%>