| asp打开文本内容 |
url="./pxiaoshuo/"&yytu&"/"&title&".txt"
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.GetFile(server.mappath(url))
filesize=f.size '文件大小
dim objrs
set objrs=server.createObject("Scripting.FileSystemObject")
seek20url=server.mappath(url)
set Stream=objrs.opentextfile(seek20url,1,true,-2)
response.Write(lyy(stream.readall))
stream.close
|
| 点击：1560 发布者：xinyou 发布时间：2014-06-08 20:45:03 | |
|
|
|
