%Response.Expires=0 dim input() id=Request.QueryString("id") if id=Vbempty then id=1 lyfile = server.mappath("note\ly.asp") Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(lyfile,1,False) counter = 0 do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve input(counter) input(counter) = thisline counter = counter + 1 loop thisfile.Close lynumber=(counter-1)/7%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||