导航

心动吧黑客BLOG

自发研究:须要多维思想而且要想不可能为可能的人才能做到

« 字符串函数ECShop注射漏洞 »

ASp fso组件(第十二节) 再续

明生注: 以前的内容补充得不够详细。所以今天特意再来加一些新内容.内容转自网络

   此处的FSO操作函数包含了很多操作模式。希望对大家有用呀,时间关系未能把注释全部填写上

目录:
   使用FSO修改文件函数
   使用FSO写文件某一行的函数
   使用FSO添加文件新行的函数
   使用FSO读取文件某一行的函数
   使用FSO读取文件内容的函数
   使用FSO检查文件内容是否空的函数
   使用FSO读文件最后一行的函数
   使用FSO生成文件
   使用FSO检查是否有文件
   使用FSO删掉文件
<%
' 由明生独立备注,如果哪里写错了。望您能来指教
FSOlinewrite "Admin_SteID.JS",instr(,"document.writeln (""<script src=\"),"aaaaa"
response.write "执行成功"
'-----使用FSO修改文件函数--------
Function FSOchange(filename,Target,String) '参数1:文件名 参数2:要替换掉的内容 参数3:替换成的内容
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll '读取文件中的所有内容
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String) '然后将其中我不要的内容替换成我需要的内容
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True) '再重新创建一个文件
objCountFile.Write FiletempData '最后将修改好的内容写进去
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

'-----使用FSO写文件某一行的函数-----
Function FSOlinewrite(filename,lineNum,Linecontent) '参数1:文件名 参数2:写到哪一行 参数3: 写入内容
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function '如果这一个文件并不存在就退出
set f = fso.opentextfile(server.mappath(filename),1) '打开文件,1;打开文件进行内容阅读,但是你不可以在这个文件上书写内容
if not f.AtEndofStream then '如果并没有到文件未尾 true为已到,false为未到,就是判断是不是空文件
tempcnt = f.readall '将内容全部读出
f.close '然后关闭文件
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then '判断一下我们插入的行是否存在
exit function
else
temparray(lineNum-1) = lineContent '向他的行前面写入我们的内容
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
End Function

'-----使用FSO添加文件新行的函数-----
Function FSOappline(filename,Linecontent)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),8,1)
f.write Linecontent&chr(13)&chr(10)
f.close
set f = nothing
End Function

'-----使用FSO读取文件某一行的函数-----
Function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
End Function

'-----使用FSO读取文件内容的函数-----
Function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

'-----检查文件内容是否空的函数-----
Function FSOFilenell(filename)
dim myfso,myread
set myfso=createobject("scripting.filesystemobject")
set myread=myfso.opentextfile(server.mappath(filename),1,0)
if myread.atendofstream then
FSOFilenell=0
else
FSOFilenell=1
end if
myread.Close
Set myread=Nothing
Set myfso = Nothing
End Function

'-----读文件最后一行的函数-----
Function FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
end if
End Function

'-----生成文件-----
Function FSOcreate(filename)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
set f = fso.CreateTextFile(server.mappath(filename),true)
set f = nothing
set fso = nothing
End Function

'-----检查是否有文件-----
Function FSOfile(filename)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
f=server.MapPath(filename)
if fso.FileExists(f) then
FSOfile=1
else
FSOfile=0
end if
set f = nothing
set fso = nothing
End Function

'-----删掉文件-----
Function FSOdel(filename)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
f=server.MapPath(filename)
if fso.FileExists(f) then
fso.DeleteFile f,true
end if
set f = nothing
set fso = nothing
End Function

%>



其他二课链接;

      ASp fso组件(第十二节)  http://www.abcxd.com/abcxd/abcxdArticle/asp/filesystemobject.html

      ASp fso组件(第十二节) 续  http://www.abcxd.com/abcxd/abcxdArticle/asp/filesystemobject1.html

原创文章如转载,请注明:转载自心动吧黑客BLOG [ http://www.abcxd.com/abcxd/ ]

本文链接地址:http://www.abcxd.com/abcxd/abcxdArticle/asp/175/

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

黑客榜之本月排行

搜索内容

日历

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved