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

'====================文件操作結(jié)束=========================

'====================文件夾操作開始========================
Function IsFolderExists(ByVal FolderDir)
'判斷文件夾是否存在，存在則返回True,否則返回False
'參數(shù)FolderDir為文件的絕對路徑
If Fso.FolderExists(FolderDir) Then
IsFolderExists=True
Else
IsFolderExists=False
End If
End Function
Sub CreateFolderA(ByVal ParentFolderDir,ByVal NewFoldeName)
'//在某個特定的文件夾里創(chuàng)建一個文件夾
'//ParentFolderDir為父文件夾的絕對路徑，NewFolderName為要新建的文件夾名稱
If IsFolderExists(ParentFolderDir&"\"&NewFoldeName) Then Exit Sub
Dim F,F1
Set F=Fso.GetFolder(ParentFolderDir)
Set F1=F.SubFolders
F1.Add(NewFoldeName)
Set F=Nothing
Set F1=Nothing
End Sub
Sub CreateFolderB(ByVal NewFolderDir)
'//創(chuàng)建一個新文件夾
'//參數(shù)NewFolderDir為要創(chuàng)建的文件夾絕對路徑
If IsFolderExists(NewFolderDir) Then Exit Sub
Fso.CreateFolder(NewFolderDir)
End Sub
Sub DeleteAFolder(ByVal NewFolderDir)
'//刪除一個新文件夾
'//參數(shù)NewFolderDir為要創(chuàng)建的文件夾絕對路徑
If IsFolderExists(NewFolderDir)=False Then
Exit Sub
Else
Fso.DeleteFolder (NewFolderDir)
End If
End Sub
Function FolderItem(ByVal FolderDir)
'//文件夾里的文件夾集合
'//FolderDir 為文件夾絕對路徑
If IsFolderExists(FolderDir) =False Then
FolderItem=False
Exit Function
End If
Dim FolderObj,FolderList,F
Set FolderObj=Fso.GetFolder(FolderDir)
Set FolderList=FolderObj.SubFolders
FolderItem=FolderObj.SubFolders.Count'//文件夾總數(shù)
For Each F In FolderList
FolderItem=FolderItem&"|"&F.Name
Next
Set FolderList=Nothing
Set FolderObj=Nothing
End Function

Function FileItem(ByVal FolderDir)
'//文件夾里的文件集合
'//FolderDir 為文件夾絕對路徑
If IsFolderExists(FolderDir) =False Then
FileItem=False
Exit Function
End If
Dim FileObj,FileerList,F
Set FileObj=Fso.GetFolder(FolderDir)
Set FileList=FileObj.Files
FileItem=FileObj.Files.Count'//文件總數(shù)
For Each F In FileList
FileItem=FileItem&"|"&F.Name
Next
Set FileList=Nothing
Set FileObj=Nothing
End Function
'====================文件夾操作結(jié)束========================
End Class
%>

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