fso.asp

二月小说 看小说必备工具 默认的管理路径为:admin/index.asp 用户名：admin 密码：admin

<%
function Laos_DuquFile(str)
set fs=server.createobject("scripting.filesystemobject") 
set txt=fs.opentextfile(server.mappath(str),1,true) 
if not txt.atendofstream then
Laos_DuquFile=txt.ReadAll
end if
end function
sub Laos_SaveFile(filename,str)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fso=fso.OpenTextFile(server.mappath(filename),2,True)
fso.Write str
fso.Close
end sub
Function Laos_Folder(str) 
str=Server.Mappath(str)
str=Replace(str,"\","/") 
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(strPath) Then
Exit Function
End If
strs=Split(str,"/")
strr=UBound(strs)
strt=""
For i=0 To strr
strt=strt&strs(i)&"/"
If Not Fso.FolderExists(strt) Then
Fso.CreateFolder(strt)
End If
Next
Set FSO=Nothing
End Function
%>