fso读出TXT文件以及ASP 强制更新页面

2004-12-2 08:40 656 0

摘要: 转自：csdn 'FSO' 读出TXT文件(牛啊) <% functi...

关键词： nbsp response 库里 Write thefile test TS FSO TXT AtEndOfStream

转自：csdn 'FSO' 读出TXT文件(牛啊) <% function ReadFile(filename)on error resume nexterr.clear'ASP的一种校错方法 Const ForReading = 2Const Create = falseDim FSODIM TSDIM filepathDIM thefileDim content'---------------操作地址Set FSO=server.createobject("scripting.filesystemobject")filepath=server.MapPath("temp") ./记录本存放的文件夹if err.number<>0 thenresponse.Write "目录不存在"response.Endend if'filename="test.txt" ---------test.txt为你从数据库里读出的文件名thefile=filepath&"/"&filenameSet TS = FSO.OpenTextFile(thefile,1) do until Ts.AtEndOfStream Response.Write (""&TS.ReadLine&"") response.write("<br>") loopSet TS = NothingSet FSO = Nothing end function%><%dim iddim filenameid=6Set rs=Server.CreateObject("ADODB.Recordset")sql="select * from yuan where id="&idrs.open sql,cn,1,1filename=rs("fileload")%><% readfile(filename) %> ------------------------------------------------------------------ASP 强制更新页面(有用啊) <% function ReadFile(filename)on error resume nexterr.clear'ASP的一种校错方法 Const ForReading = 2Const Create = falseDim FSODIM TSDIM filepathDIM thefileDim content '---------------操作地址 Set FSO=server.createobject("scripting.filesystemobject")filepath=server.MapPath("temp") ./记录本存放的文件夹 ASP 强制更新页面(有用啊) if err.number<>0 thenresponse.Write "目录不存在"response.Endend if filename="test.txt" ---------test.txt为你从数据库里读出的文件名thefile=filepath&"/"&filenameSet TS = FSO.OpenTextFile(thefile,1) do until Ts.AtEndOfStream Response.Write (""&TS.ReadLine&"") response.write("<br>") loop Set TS = NothingSet FSO = Nothing end function%> <%dim iddim filenameid=6Set rs=Server.CreateObject("ADODB.Recordset")sql="select * from yuan where id="&idrs.open sql,cn,1,1filename=rs("fileload")%> '<% readfile(filename) %>

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除