<% ASP_OPEN = Chr(60) + "%" ASP_CLOSE = "%" + Chr(62) Function FileExists(sVirtualFile) FileExists = objFileSystemObject.FileExists(Server.MapPath(sVirtualFile)) End Function Function DeleteFile(sVirtualFile) If FileExists(sVirtualFile) Then objFileSystemObject.DeleteFile Server.MapPath(sVirtualFile) End If End Function Function CopyFile(sVirtualFileFrom, sVirtualFileTo) If FileExists(sVirtualFileFrom) Then objFileSystemObject.CopyFile Server.MapPath(sVirtualFileFrom), Server.MapPath(sVirtualFileTo), True End If End Function Function ReadFile(sVirtualFile) Dim objFile If Len(sVirtualFile) > 0 Then If objFileSystemObject.FileExists(Server.MapPath(sVirtualFile)) Then Set objFile = objFileSystemObject.OpenTextFile(Server.MapPath(sVirtualFile)) On Error Resume Next ReadFile = objFile.ReadAll objFile.Close Set objFile = Nothing On Error Goto 0 End If End If End Function Sub WriteFile(sVirtualFile, sContent) Dim objFile Set objFile = objFileSystemObject.OpenTextFile(Server.MapPath(sVirtualFile), 2, True) If Len(sContent) = 0 Then sContent = vbCrLf objFile.Write sContent Set objFile = Nothing End Sub Sub BinaryWriteFile(sVirtualFile, sContent) Dim objFile , i If LenB(sContent) > 0 Then Set objFile = objFileSystemObject.CreateTextFile(Server.MapPath(sVirtualFile), True) For i=1 To LenB(sContent) objFile.Write Chr(AscB(MidB(sContent,i,1))) Next objFile.Close End If End Sub Function VBStrVariable(sValue) VBStrVariable = Replace(sValue, """", """""") VBStrVariable = Replace(VBStrVariable, vbCrLf, "") End Function Sub LoadASPCodeFromFile(sVirtualFile) Dim sASPCode sASPCode = ReadFile(sVirtualFile) If Len(sASPCode) > 0 Then sASPCode = Replace(sASPCode, ASP_OPEN, "") sASPCode = Replace(sASPCode, ASP_CLOSE, "") Else Response.Write "File not found or file is empty. " + Server.MapPath(sVirtualFile) Response.End End If End Sub %>