-----------------删除文件-------------------
<%
''|e.g.
''| Call Generic_FileDeletion(File path ''REQUIRED'')
''| Call Generic_FileDeletion("myfile.txt")
''| Call Generic_FileDeletion("win95/myfile.txt")
''|
''|Please remember to specify a Path, otherwise an Error will occur...
Function Generic_FileDeletion(byval strpath,byval intShowLabel)
'' ERROR CHECKING!!!!...
IF strpath = "" or isnull(strpath) then
Response.Write("Sorry but a path is required when calling this function")
Response.End
End IF
'' ERROR CHECKING!!!!...
IF intShowLabel = "" or isnull(intShowLabel) then
Response.Write("Sorry but the paramter <b>intShowLabel</b> is missing. PARAMETER IS REQUIRED")
Response.End
End IF
Filename = Server.MapPath(strpath)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(filename) Then
fs.DeleteFile(filename)
if intShowLabel = 1 then
response.write "File" & " <b>(" & strpath & ")</b> " & " has Been Deleted with Success.<BR>"
end if
Else
response.write "No path was found, or file does not exist to delete...<BR>"
End If
End Function
%>
---------------copy文件------------------
<%
''|E.G:
''| Call Generic_FileCopy("D:/Xkudos/NewsX_1997.mdb","D:/Xkudos/Xkudos/Xkudos/DB/NewsX_1997.mdb",True)
Function Generic_FileCopy(ByVal strFileSource,ByVal strFileDestination,ByVal strOverWrite)
''--------------------------------[ERROR CHECKING]--------------------------------
'' ERROR CHECKING!!!!...
IF strFileSource = "" or isnull(strFileSource) Then
Response.Write("Sorry but a File Source path is required when calling this function")
Response.End
End IF
'' ERROR CHECKING!!!!...
IF strFileDestination = "" or isnull(strFileDestination) Then
Response.Write("Sorry but a File Destination path is required when calling this function")
Response.End
End IF
'' ERROR CHECKING!!!!...[True - False]
IF strOverWrite = "" or isnull(strOverWrite) Then
Response.Write("Sorry but a File Destination path is required when calling this function")
Response.End
End IF
''--------------------------------[/ERROR CHECKING]--------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strFileSource) Then
fso.CopyFile strFileSource, strFileDestination, strOverWrite
Else
Response.Write("The file does not exist...")
Response.End
End If
Set fso = Nothing
End Function
%>
-----------------写文件----------------
<%
''| Example of Call:
''| CAll Generic_FileWriter("MyFileName","HTML","The content goes here...")
Function Generic_FileWriter(strFileName,strFileExtension,strFileContent)
Set oFS = CreateObject("Scripting.fileSystemObject")
Set oTXS = oFS.OpenTextFile(Server.MapPath(strFileName & "." & strFileExtension),8,True)
oTXS.WriteLine(strFileContent)
oTXS.Close
End Function
%>
-----------------更棒的-----------------------
<%
''| Example:
''| Call FileFerret(strDirectory, dtStartingDate, dtEndingdate,intqued)
''| Normal Usage:
''| Call FileFerret("/desktop/ASP_odds/Generic_Funcs/test/","19/02/2001 00:00:00","20/02/2001 16:16:34",0)
''| When using on queued directory:
''| Call FileFerret("/desktop/ASP_odds/Generic_Funcs/test/","19/02/2001 00:00:00","20/02/2001 16:16:34",1)
Function FileFerret(ByVal strDirectory,ByVal dtStartingDate,ByVal dtEndingdate,ByVal intqued)
Dim intBadcounter '' It will count how many bad emails there are
Dim intquedCounter
intBadcounter = 0
intquedCounter = 0
''-----------------------[ START ERROR CHECKING ]---------------------------
'' Checks if there is a ( directory )defined in the parameter
If strDirectory = "" or isnull(strDirectory) Then
Response.Write("The parameter for Directory is missing - IT IS A REQUIRED PARAMETER!")
Response.End
End If
'' Checks if the ( Starting Date ) Parameter is missing
If dtStartingDate = "" or isnull(dtStartingDate) Then
Response.Write("The Starting Date parameter is missing - IT IS A REQUIRED PARAMETER!")
Response.End
End If
'' Checks if the ( Ending Date ) Parameter is missing
If dtEndingdate = "" or isnull(dtEndingdate) Then
Response.Write("The Ending Date parameter is missing - IT IS A REQUIRED PARAMETER!")
Response.End
End If
'' Checks if the ( intqued ) Parameter is missing
If intqued = "" or isnull(intqued) Then
Response.Write("The intqued parameter is missing - IT IS A REQUIRED PARAMETER!")
Response.End
End If
''-----------------------[ END ERROR CHECKING ]---------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(strDirectory))
Set fc = f.files
%>
<H1><%=strDirectory%></H1>
<HR>
<Table Border="0" Cellpadding="0" Cellspacing="3" Align="Center">
<%
For Each File in fc
intquedCounter = intquedCounter + 1
'' It checks if it is in between a certain Time limite
If formatdatetime(File.datecreated ,0) >= dtStartingDate and formatdatetime(File.datecreated ,0) <= dtEndingdate Then
'' Checks if it is an Email
If right(File.Name,4) = ".msg" or right(File.Name,4) = ".eml" Then
IMG = "img/email.gif"
End If
'' Checks if it is a log file or a Text File
If right(File.Name,4) = ".log" or right(File.Name,4) = ".txt" Then
IMG = "img/txt.jpg"
End If
'' Checks if it is a BAD email file
If right(File.Name,4) = ".bad" Then
'' Increases the Bad emails counter by 1
intBadcounter = intBadcounter + 1
IMG = "img/emailbad.gif"
End If
%>
<TR>
<TD align="center"><img src="<%=IMG%>"></TD>
<TD><A HREF=''<%=strDirectory & File.name%>''><%=File.name%></a></TD>
<TD><%=formatdatetime(File.datecreated ,0)%></TD>
</TR>
<%
End If
Next
%>
<TR>
<TD>There are </TD><TD><b><%=intBadcounter%></b> bad emails.</TD>
</TR>
<%
'' We check if we using the queue directory (0 - No / 1 - Yes)
IF intqued = 1 Then %>
<TR>
<TD>There are </TD><TD><b><%=intquedCounter%></b> emails awating to be sent.</TD>
</TR>
<% End If %>
</Table>
<%
End Function
%>
<%
''|e.g.
''| Call Generic_FileDeletion(File path ''REQUIRED'')
''| Call Generic_FileDeletion("myfile.txt")
''| Call Generic_FileDeletion("win95/myfile.txt")
''|
''|Please remember to specify a Path, otherwise an Error will occur...
Function Generic_FileDeletion(byval strpath,byval intShowLabel)
'' ERROR CHECKING!!!!...
IF strpath = "" or isnull(strpath) then
Response.Write("Sorry but a path is required when calling this function")
Response.End
End IF
'' ERROR CHECKING!!!!...
IF intShowLabel = "" or isnull(intShowLabel) then
Response.Write("Sorry but the paramter <b>intShowLabel</b> is missing. PARAMETER IS REQUIRED")
Response.End
End IF
Filename = Server.MapPath(strpath)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(filename) Then
fs.DeleteFile(filename)
if intShowLabel = 1 then
response.write "File" & " <b>(" & strpath & ")</b> " & " has Been Deleted with Success.<BR>"
end if
Else
response.write "No path was found, or file does not exist to delete...<BR>"
End If
End Function
%>
---------------copy文件------------------
<%
''|E.G:
''| Call Generic_FileCopy("D:/Xkudos/NewsX_1997.mdb","D:/Xkudos/Xkudos/Xkudos/DB/NewsX_1997.mdb",True)
Function Generic_FileCopy(ByVal strFileSource,ByVal strFileDestination,ByVal strOverWrite)
''--------------------------------[ERROR CHECKING]--------------------------------
'' ERROR CHECKING!!!!...
IF strFileSource = "" or isnull(strFileSource) Then
Response.Write("Sorry but a File Source path is required when calling this function")
Response.End
End IF
'' ERROR CHECKING!!!!...
IF strFileDestination = "" or isnull(strFileDestination) Then
Response.Write("Sorry but a File Destination path is required when calling this function")
Response.End
End IF
'' ERROR CHECKING!!!!...[True - False]
IF strOverWrite = "" or isnull(strOverWrite) Then
Response.Write("Sorry but a File Destination path is required when calling this function")
Response.End
End IF
''--------------------------------[/ERROR CHECKING]--------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strFileSource) Then
fso.CopyFile strFileSource, strFileDestination, strOverWrite
Else
Response.Write("The file does not exist...")
Response.End
End If
Set fso = Nothing
End Function
%>
-----------------写文件----------------
<%
''| Example of Call:
''| CAll Generic_FileWriter("MyFileName","HTML","The content goes here...")
Function Generic_FileWriter(strFileName,strFileExtension,strFileContent)
Set oFS = CreateObject("Scripting.fileSystemObject")
Set oTXS = oFS.OpenTextFile(Server.MapPath(strFileName & "." & strFileExtension),8,True)
oTXS.WriteLine(strFileContent)
oTXS.Close
End Function
%>
-----------------更棒的-----------------------
<%
''| Example:
''| Call FileFerret(strDirectory, dtStartingDate, dtEndingdate,intqued)
''| Normal Usage:
''| Call FileFerret("/desktop/ASP_odds/Generic_Funcs/test/","19/02/2001 00:00:00","20/02/2001 16:16:34",0)
''| When using on queued directory:
''| Call FileFerret("/desktop/ASP_odds/Generic_Funcs/test/","19/02/2001 00:00:00","20/02/2001 16:16:34",1)
Function FileFerret(ByVal strDirectory,ByVal dtStartingDate,ByVal dtEndingdate,ByVal intqued)
Dim intBadcounter '' It will count how many bad emails there are
Dim intquedCounter
intBadcounter = 0
intquedCounter = 0
''-----------------------[ START ERROR CHECKING ]---------------------------
'' Checks if there is a ( directory )defined in the parameter
If strDirectory = "" or isnull(strDirectory) Then
Response.Write("The parameter for Directory is missing - IT IS A REQUIRED PARAMETER!")
Response.End
End If
'' Checks if the ( Starting Date ) Parameter is missing
If dtStartingDate = "" or isnull(dtStartingDate) Then
Response.Write("The Starting Date parameter is missing - IT IS A REQUIRED PARAMETER!")
Response.End
End If
'' Checks if the ( Ending Date ) Parameter is missing
If dtEndingdate = "" or isnull(dtEndingdate) Then
Response.Write("The Ending Date parameter is missing - IT IS A REQUIRED PARAMETER!")
Response.End
End If
'' Checks if the ( intqued ) Parameter is missing
If intqued = "" or isnull(intqued) Then
Response.Write("The intqued parameter is missing - IT IS A REQUIRED PARAMETER!")
Response.End
End If
''-----------------------[ END ERROR CHECKING ]---------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(strDirectory))
Set fc = f.files
%>
<H1><%=strDirectory%></H1>
<HR>
<Table Border="0" Cellpadding="0" Cellspacing="3" Align="Center">
<%
For Each File in fc
intquedCounter = intquedCounter + 1
'' It checks if it is in between a certain Time limite
If formatdatetime(File.datecreated ,0) >= dtStartingDate and formatdatetime(File.datecreated ,0) <= dtEndingdate Then
'' Checks if it is an Email
If right(File.Name,4) = ".msg" or right(File.Name,4) = ".eml" Then
IMG = "img/email.gif"
End If
'' Checks if it is a log file or a Text File
If right(File.Name,4) = ".log" or right(File.Name,4) = ".txt" Then
IMG = "img/txt.jpg"
End If
'' Checks if it is a BAD email file
If right(File.Name,4) = ".bad" Then
'' Increases the Bad emails counter by 1
intBadcounter = intBadcounter + 1
IMG = "img/emailbad.gif"
End If
%>
<TR>
<TD align="center"><img src="<%=IMG%>"></TD>
<TD><A HREF=''<%=strDirectory & File.name%>''><%=File.name%></a></TD>
<TD><%=formatdatetime(File.datecreated ,0)%></TD>
</TR>
<%
End If
Next
%>
<TR>
<TD>There are </TD><TD><b><%=intBadcounter%></b> bad emails.</TD>
</TR>
<%
'' We check if we using the queue directory (0 - No / 1 - Yes)
IF intqued = 1 Then %>
<TR>
<TD>There are </TD><TD><b><%=intquedCounter%></b> emails awating to be sent.</TD>
</TR>
<% End If %>
</Table>
<%
End Function
%>