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

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

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

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


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

Private Fso'//對(duì)象
Public FsoObj'//公共接口對(duì)象

'//初始化,構(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為文件的絕對(duì)路徑
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為文件的絕對(duì)路徑
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)建一個(gè)文件并寫入內(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)
'刪除一個(gè)文件，成功返回True，否則返回False
'參數(shù)FileDir為文件的絕對(duì)路徑
If IsFileExists(FileDir) Then
Fso.DeleteFile(FileDir)
DelFile=True
Else
DelFile=False
End If
End Function

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