网站导航网学 原创论文 原创专题 网站设计 最新系统 原创论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 编程文档 > ASP > 正文

asp伪静态情况下实现的utf-8文件缓存实现代码

论文降重修改服务、格式排版等 获取论文 论文降重及排版 论文发表 相关服务
stm=Server.CreateObject("adodb.stream")
stm.Type=1 ''adTypeBinary,按二进制数据读入
stm.Mode=3 ''adModeReadWrite ,这里只能用3用其他会出错
stm.Open
stm.LoadFromFile Server.MapPath(filePath)
stm.Position=0 ''把指针移回起点
stm.Type=2 ''文本数据
stm.Charset="utf-8"
ReadFile = stm.ReadText
stm.Close
set stm=nothing
End Function
''检测文件是否存在
Function ReportFileStatus(FileName)
set fso = server.createobject("scripting.filesystemobject")
if fso.fileexists(FileName) = true then
ReportFileStatus=true
else
ReportFileStatus=false
end if
set fso=nothing
end function
''检测目录是否存在
function tesfold(foname)
set fs=createobject("scripting.filesystemobject")
filepathjm=server.mappath(foname)
if fs.folderexists(filepathjm) then
tesfold=True
else
tesfold= False
end if
set fs=nothing
end function
''建立目录
sub createfold(foname)
set fs=createobject("scripting.filesystemobject")
fs.createfolder(foname)
set fs=nothing
end sub
''删除文件
function del_file(path) ''path,文件路径包含文件名
set objfso = server.createobject("scripting.FileSystemObject")
''path=Server.MapPath(path)
if objfso.FileExists(path) then ''若存在则删除
objfso.DeleteFile(path) ''删除文件
else
''response.write "<script language=''Javascript''>alert(''文件不存在'')</script>"
end if
set objfso = nothing
end function
%>
设为首页 | 加入收藏 | 网学首页 | 原创论文 | 计算机原创
版权所有 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师