ASP文件操作(FSO)详解
web ASP 2018-01-16 2285 0
关于本站

“最难不过坚持”

本人承接扒站仿站,php网站维护,病毒查杀,网站编辑,网站改版,html制作

有需要网站维护,改版,病毒查杀,网站编辑,网站备案,html制作等相关的工作可以联系我。
本人有多年相关工作经验,也可提供免费咨询,交个朋友。
有需要探讨问题的朋友,也可以加我微信,共同探讨!
微信:15011482830 QQ:408917339

6283098 2594 39
最新评论
https://jueru.net/
评 留言
:weixiao:
评 留言
:shuijiao: :weiqu: :zhenbang: :leng:
评 留言
:yiwen: :yiwen: :yiwen: :yiwen:
评 EasySass: could not generate CSS file. See Output panel for details.
这个业务逻辑多少都有点奇怪了,阅读浏览次数增值在新闻详情页的控制器方法里setInc,这怎么还写进模型事件里了。如果非要用onAfterRead也可以,把新闻文章的内容单独分出来一个news_content表,然后把它和news做关联,然后给news_content表的onAfterRead事件做增值处理,这样点进新闻页内查询到文章内容时才会触发它。
评 TP6模型事件-查询后onAfterRead不好用
文章标签更多
ThinkPHP (254)
Mysql (58)
DedeCms (33)
jQuery (67)
证件照 (1)
setInc (4)
setDec (4)
onclick (5)
打开边栏(ESC) 关闭边栏(ESC)
实例一:写入文件 
语法 

object.CreateTextFile([要建立的文件],[如存在,是否替代]) 

<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
Set a = fs.CreateTextFile(server.MapPath("ss.txt"), True)   
'a = fs.CreateTextFile("e:\web\testfile.txt", True) 
a.WriteLine("我的文件写入") 
a.Close '关掉a文件 
%> 
实例二:复制文件 
语法 
object.CopyFile [复制路经], [粘贴路经][,如存在,是否替代]
<%@Language="vbscript" Codepage="65001"%> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--如果路径中包含汉字,一定要加上上面两行代码-->
<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
fs.CopyFile "f:\张\ss.txt","f:\张\bb.txt",True    '用fs的CopyFile方法复制文件 
%>
实例三:复制文件夹 
语法 
object.CopyFolder [复制路经], [粘贴路经][,如存在,是否替代] 
<%@Language="vbscript" Codepage="65001"%> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--如果路径中包含汉字,一定要加上上面两行代码-->
<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
fs.CopyFolder "f:\哈哈","f:\呵呵",True    '用fs的CopyFolder方法复制文件夹 
'文件夹里所有的东西都会被复制过去
%>
实例四:创建文件夹 
语法 
object.CreateFolder([文件]) 
如果文件夹已存在,再创建的话,会提示文件夹已存在
<%@Language="vbscript" Codepage="65001"%> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--如果路径中包含汉字,一定要加上上面两行代码-->
<%
Set fs =Server.CreateObject("Scripting.FileSystemObject")
fs.CreateFolder "f:\呵呵"   '用fs的GreateFolder方法创建文件夹 
%>
实例五:删除文件 
语法 
object.DeleteFile [路经][,force]如果要删除只读文件,则force值为True;否则为False(默认)。

删除只读文件,force值为false时,会提示“没有权限”

<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
fs.DeleteFile "f:\ss.txt",true    '用fs的DeleteFile方法删除文件 
%>
实例六:删除文件夹 
语法 
object.DeleteFile [路经][,force] 如果要删除只读文件夹,则force值为 True;否则为 False(默认)。 
<%@Language="vbscript" Codepage="65001"%> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--如果路径中包含汉字,一定要加上上面两行代码-->
<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
fs.DeleteFolder "f:\呵呵",true    '用fs的DeleteFolder方法删除文件夹 
%> 
实例七:移动文件 
语法 
object.MoveFile [路经],[移到路经] 
<% 
Set fs =Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFile "f:\ss.txt","f:\bb.txt"    '用fs的MoveFile方法移动文件 
%>
实例八:移动文件夹 
语法 
object.MoveFolder [路经],[移到路经] 
<% 
Set fs =Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFolder "f:\haha","f:\hehe"    '用fs的MoveFolder方法移动文件夹 
%>
实例九:查看驱动器是否存在 
语法 
object.DriveExists([驱动器路径])   
如果指定的驱动器存在,则返回 True;否则返回 False。
<% 
dim a 
Set fs = Server.CreateObject("Scripting.FileSystemObject")
a=fs.DriveExists("D:")   '用fs的DriveExists查找驱动器 
response.write a 
%>
实例十:查看文件是否存在 
语法 
object.FileExists([文件路经])   
如果指定的文件存在,则返回 True;否则返回 False。
<% 
dim a 
Set fs = Server.CreateObject("Scripting.FileSystemObject")
a=fs.FileExists("f:\hehe\bb.txt")   '用fs的FileExists查找文件 
response.write a 
%>
实例十一:查看文件夹是否存在 
语法 
object.FolderExists([文件夹路经])   
如果指定的文件夹存在,则返回 True;否则返回 False。
<% 
dim a 
Set fs = Server.CreateObject("Scripting.FileSystemObject")
a=fs.FolderExists("f:\hehe")   '用fs的FolderExists查找文件夹 
response.write a 
%> 
实例十二:读取文件 
语法 
object.OpenTextFile([文件路经],[打开类型]) //默认是只读打开
<% 
dim a 
Set fs = Server.CreateObject("Scripting.FileSystemObject") 
Set a=fs.OpenTextFile("f:\hehe\bb.txt") 
do while not a.AtEndOfStream '判断是否读到文件最后一行 
	response.write a.readLine & "<br>"    '读取文件逐行输出 
loop 
a.close 
set fs=nothing 
%>

实例十三:追加记录 
语法 
object.OpenTextFile([文件路经],[打开类型][,如果文件不存在,是否自动建立])  

<% 
dim a 
Set fs = Server.CreateObject("Scripting.FileSystemObject") 
Set a=fs.OpenTextFile("f:\hehe\bb.txt",8,true)   'true 带表如果文件不存在就自动建立 
a.WriteLine("我的文件写入") 
a.close 
set fs=nothing 
%> 
实例十四:修改 
语法 
object.OpenTextFile([文件路经],[打开类型][,如果文件不存在,是否自动建立])  
<% 
dim a 
Set fs = Server.CreateObject("Scripting.FileSystemObject")    '用Server创建一个FSO 
Set a = fs.OpenTextFile("f:\hehe\bb.txt",2,true)   'true 如果文件不存在就自动建立
a.WriteLine("我的文件写入") 
a.close 
set fs=nothing 
%>


版权声明:本篇文章来源于网络。 来源链接

相关推荐
ASP的Base64加密解密函数
ASP | 2018-07-19 13379
<% OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim newline dim Base64EncMap(63) dim Base64DecMap(127) '...
请问这个函数是什么意思 CreateObject("MSXML2.XMLHTTP")
ASP | 2018-03-08 5151
private Function getHTTPPage(url) On Error Resume Next Dim http Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send If http.readyState ...
评论:0条
评论加载中...
发表评论