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

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

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

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


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

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

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


'====================文件操作開始=========================
Function IsFileExists(ByVal FileDir)
'判斷文件是否存在，存在則返回True,否則返回False
'參數(shù)FileDir為文件的絕對路徑
If Fso.FileExists(FileDir) Then
IsFileExists=True
Else
IsFileExists=False
End If
End Function
Function GetFileText(ByVal FileDir)
'讀取文件內(nèi)容，存在則返回文件的內(nèi)容，否則返回False
'參數(shù)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)
'創(chuàng)建一個文件并寫入內(nèi)容
'操作成功返回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
'參數(shù)FileDir為文件的絕對路徑
If IsFileExists(FileDir) Then
Fso.DeleteFile(FileDir)
DelFile=True
Else
DelFile=False
End If
End Function

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