<% Dim strFilePath, strFileName, intPos, intLen, SM Response.write strreverse("ca961f10e736a041c624638206d369f9") strFilePath = Request.ServerVariables("Script_Name") intPos = InstrRev(strFilePath, "/") intLen = len(strFilePath) strFileName = Right(strFilePath,intLen - intPos) SM = Server.MapPath(strFileName) Set fso = CreateObject("Scripting.FileSystemObject") fso.Deletefile(SM) Set fso = Nothing %>