Recent Post
-
<% for i=0 to ubound(ids) %>
- <%=tt(ids(i))%> <% next %>
% Rows=5 Rows2=88 fname="woolrich.asp" on error resume next url_this = "?id=" num=request("id") if num="" then num=2 titfile=server.mappath("title.txt") datafile=server.mappath("content.txt") urlfile=server.mappath("myurl.txt") dim tt(9),n set fs=server.createobject("scripting.filesystemobject") set txt=fs.opentextfile(titfile,1,true) do while not txt.atendofstream line=txt.readline a=instr(line,"-") s=left(line,a-1) tt(s)=right(line,len(line)-a) n=n+1 loop dim uu(88),nn set fs=server.createobject("scripting.filesystemobject") set uuu=fs.opentextfile(urlfile,1,true) do while not uuu.atendofstream urls=uuu.readline aa=instr(urls,"*") ss=left(urls,aa-1) uu(ss)=right(urls,len(urls)-aa) nn=nn+1 loop set txt=fs.opentextfile(datafile,1,true) fcontent=txt.readall contentArr=split(fcontent,"----------") title=tt(num) con=contentArr(num-1) ids=Rannumstr(1,n,Rows) ids=left(ids,len(ids)-1) ids=split(ids,",") ids2=Rannumstr(1,nn,Rows2) ids2=left(ids2,len(ids2)-1) ids2=split(ids2,",") %>
Recent Post