新网页1

回原页

<% u1=request.querystring("source")'取得路径 u2=request.querystring("file")'取得文件名 if Left(u1,2) = "ch" Then u1=request.servervariables("APPL_PHYSICAL_PATH") u2=request.servervariables("APPL_PHYSICAL_PATH") & u2 end if session("nowFile")=u1 & right(u2,len(u2)-len(u1))'设定Session变量 Set FileObject = server.CreateObject("Scripting.FileSystemObject") Response.Write "目前文件：" & session("nowFile") & "

" set x=FileObject.OpenTextFile("c:\text.txt",1)'打开文件 Do While x.AtEndOfStream<>True'逐一取得程序' y = x.Readline'读取一行 if y <> "" then h=h+1 y=y & "　" y=Replace(y," ",chr(22) & chr(22)) response.write "" & Format(h,"000") & "" & "　" & server.htmlencode(y) & "
" '输出至网页 end if Loop %>