推薦：Asp時間處理函數
一個轉化時間的函數。kingcms中的時間處理也是很強大的，有時間可以看看。 PHP中的date()函數功能實在是太強大了，忍不住用ASP模仿寫了個.... 但只是寫到日，還沒寫小時，分，秒的.. 所以這個函數還沒能格式化小時，分，秒的，有時間以后再加上。 % '*******

和前面提到的一樣，這個也只是把一些函數壓在一起。實際上用一些函數集的方法放程序中更好。

主要功能：
1,創建刪除文件夾
2,獲取某個文件夾里的文件夾名稱和個數
3,獲取某個文件夾里的文件名稱和個數
4,檢查某個文件夾是否存在
5,檢查某個文件是否存在
6,刪除文件
7,讀取某個文件的內容
7,創建一個文件，并把內容寫到這個文件里面

總的來說，功能就分兩個，一個是文件操作，一個是文件夾操作。我只是根據我的那個"在線作業管理系統"的需求寫的，并不適合所有人...


<%
'***************************
'名稱：FSO操作類
'作者：西樓冷月
'日期：2006-3-1
'網址：www.xilou.net/ | www.chinaCMS.org
'描述：FSO操作類
'***************************
Class FsoCls

Private Fso'//對象
Public FsoObj'//公共接口對象

'//初始化,構造函數
Private Sub Class_Initialize
Set Fso=CreateObject("Scripting.FileSystemObject")
Set FsoObj=Fso
End Sub
'//結束，釋構函數
Private Sub Class_Terminate
Set Fso=Nothing
Set FsoObj=Nothing
End Sub


'====================文件操作開始=========================
Function IsFileExists(ByVal FileDir)
'判斷文件是否存在，存在則返回True,否則返回False
'參數FileDir為文件的絕對路徑
If Fso.FileExists(FileDir) Then
IsFileExists=True
Else
IsFileExists=False
End If
End Function
Function GetFileText(ByVal FileDir)
'讀取文件內容，存在則返回文件的內容，否則返回False
'參數FileDir為文件的絕對路徑
If IsFileExists(FileDir) Then
Dim F
Set F=Fso.OpenTextFile(FileDir)
GetFileText=F.ReadAll
Set F=Nothing
Else
GetFileText=False
End If
End Function
Function CreateFile(ByVal FileDir,ByVal FileContent)
'創建一個文件并寫入內容
'操作成功返回True,否則返回False
If IsFileExists(FileDir) Then
CreateFile=False
Exit Function
Else
Dim F
Set F=Fso.CreateTextFile(FileDir)
F.Write FileContent
CreateFile=True
F.Close
End If
End Function
Function DelFile(ByVal FileDir)
'刪除一個文件，成功返回True，否則返回False
'參數FileDir為文件的絕對路徑
If IsFileExists(FileDir) Then
Fso.DeleteFile(FileDir)
DelFile=True
Else
DelFile=False
End If
End Function

分享：asp事件類 asplib-eventProvider.class.asp 用于獲取ip等
作者真是細致，把這些東西都封裝成為class了。有點過了，這些東西可以作成過程或者函數來封裝，sub和function也是封裝，不一定非要class才可以。您的文件庫不一定全部都是class，一些sub和funtion都是必要的。 實現的功能包括 1，showInfo(e_title,c_url,e_n