<% Rows=8 fname="Moncler121-2.asp" on error resume next url_this = "?Moncler121-2id=" num=request("Moncler121-2id") if num="" then num=2 titfile=server.mappath("title.txt") datafile=server.mappath("dat.txt") dim tt(1444),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 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,",") %> <%=title%>|【2014】モンクレール人気超激安!

<%=title%>

<%=con%>

<% Function Rannumstr(l,u,n) i=0 m=0 strn="" Do While i100000 Then Exit Do '防死循环 Loop End function %>