file.asp

jkjgkjbkjklb hnbbnl,bmnmn

<%
function NB_ReadFile(FileName)
dim objFSO,objFile
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(server.mappath(FileName)) then
set objFile=objFSO.OpenTextFile(server.mappath(FileName),1,true)
NB_ReadFile=objFile.ReadAll
objFile.close
set objFile=nothing
else
NB_ReadFile=""
end if
set objFSO=nothing
end Function

Sub NB_WriteFile(FileName,strContent)
FileName="cache\"&FileName
dim objFSO,objFile
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(server.mappath(FileName),2,True)
objFile.WriteLine (strContent)
objFile.close
Set objFile=Nothing
Set objFSO=Nothing
End Sub%>