function readfile(filename)
DataFile=filename
thefile=server.MapPath(datafile)
Set FSO = CreateObject("Scripting.FileSystemObject")
infile=fso.FileExists(thefile)
if infile then'文件存在
set file1=fso.OpenTextFile(thefile)
filestr=file1.readall
response.Write filestr
else
response.Write "错误，找不到文件"
response.end
end if
set fso=nothing
end function
asp 读文件
2009-2-2 10:6:37
Tags: asp asp函数 常用函数
发布:subin | 分类:asp / php / jsp | 评论:0 | 引用:0 | 浏览:
- 相关文章:
php 字符格式转换 (2009-2-1 11:57:14)
php iconv函数 (2009-2-1 11:55:22)
php字符串函数 strpos,substr (2009-1-29 10:57:14)
获取页面中的所有链接地址的PHP函数 (2009-1-29 10:35:5)
PHP数组排序 (2009-1-11 0:1:58)
PHP 数组添加一个元素 (2008-12-31 15:5:46)
php 时间格式转换 (2008-12-29 0:33:35)
PHP 自动补零函数 (2008-12-28 22:45:44)
汉字转拼音asp代码 (2008-8-13 16:15:34)
asp写文件 (2008-7-14 11:55:28)
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
