推薦：asp快速分頁代碼%@ language = vbscript codepage = 936% % option explicit '強制定義變量dim idcount'記錄總數dim pages'每頁條數dim pagec'總頁數dim page'頁碼dim pagenc '每頁顯示的分頁頁碼數量=pagenc*2+1 pagenc=2 dim pagenmax '每頁顯示的分頁的最大頁碼dim pagenmin
對於一個支持asp和fso的空間來說有了fso一切變得簡單多了
我也是個新手寫了一些代碼供大家學習研究用
首先看支持fso組件嗎
<%
'FSO組件名稱
dim FSObject
FSObject=Scripting.FileSystemObject
'=========================================================
'◆是否支持組件
'=========================================================
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
if IsObjInstalled(FSObject) then
response.write √
else
response.write ×
end if%>
-------------------------------------------------------
<%
'=========================================================
'◆是否支持組件
'=========================================================
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
'=========================================================
'fso 操作
'=========================================================
'◆檢查某一目錄是否存在
'=========================================================
Function CheckDir(FolderPath)
folderpath=Server.MapPath(.)&/&folderpath
Set fso= CreateObject(FSObject)
If fso.FolderExists(FolderPath) then
CheckDir = True
Else
CheckDir = False
End if
Set fso= nothing
End Function
'=========================================================
'◆ 根據指定名稱生成目錄
'=========================================================
Function MakeNewsDir(foldername)
dim fs0
Set fso= CreateObject(FSObject)
Set fs0= fso.CreateFolder(foldername)
Set fso = nothing
End Function
'=========================================================
'◆ 如果文件夾不存在則建立新文件夾◆
'=========================================================
Function checkFolder(folderpath)
If CheckDir(folderpath) = false Then'如果文件夾不存在
MakeNewsDir(folderpath)'就建一個文件夾
end if
end Function
'=========================================================
'◆ 刪除文件夾◆
'=========================================================
Function DeleteFoldera(folderpath)
dim path
Set fso = CreateObject(FSObject)
path=request.ServerVariables(APPL_PHYSICAL_PATH)&folderpath
fso.DeleteFolder(path)
Set fso = nothing
end Function
'=========================================================
'◆ 更改文件夾名稱◆
'=========================================================
Function moveFolder(foldername,newfoldername)
isfso
Set fso = CreateObject(FSObject)
fso.moveFolder &request.ServerVariables(APPL_PHYSICAL_PATH)&/&foldername& ,&request.ServerVariables(APPL_PHYSICAL_PATH)&/&newfoldername&
Set fso =nothing
End Function
'=========================================================
'◆ 刪除指定文件◆
'=========================================================
Function DeleteFile(file)
Set fso = CreateObject(FSObject)
fso.DeleteFile request.ServerVariables(APPL_PHYSICAL_PATH)&file
Set fso = nothing
End Function
'=========================================================
'◆ 備份指定文件◆
'=========================================================
Function CopyFile(oldfile,newfile)
Set fso = CreateObject(FSObject)
On Error Resume Next
Set fso=Server.CreateObject(FSObject)
oldfile=Server.MapPath(oldfile)
if Err.Number>0 Then call alert(原路徑錯誤!,)
newfile=Server.MapPath(newfile)
if Err.Number>0 Then call alert(新路徑錯誤!,)
fso.CopyFile oldfile,newfile'覆蓋原來的文件
if Err.Number>0 Then call alert(Err.Description,)
Set fso=nothing
End Function
'=========================================================
'◆ 轉移指定文件◆
'=========================================================
Function MoveFile(oldfile,newfile)
Set fso = CreateObject(FSObject)
On Error Resume Next
Set fso=Server.CreateObject(FSObject)
oldfile=Server.MapPath(oldfile)
if Err.Number>0 Then call alert(原路徑錯誤!,)
newfile=Server.MapPath(newfile)
if Err.Number>0 Then call alert(新路徑錯誤!,)
'fso.MoveFile oldfile,newfile'不能覆蓋原來的文件
fso.MoveFile d:/o/data/test.txt,d:/o/databackup/test3.txt
if Err.Number>0 Then call alert(Err.Description,)
Set fso=nothing
End Function
'=========================================================
'◆ 讀取文件代碼◆
'=========================================================
Function loadfile(file)'讀取文件
dim ftemp
Set fso = CreateObject(FSObject)
Set ftemp=fso.OpenTextFile(Server.MapPath(&file&), 1)
loadfile=ftemp.ReadAll
ftemp.Close
fso.close
set fso=nothing
End Function
'=========================================================
'◆ 根據代碼生成文件◆
'=========================================================
'========================================
'■file生成文件名
'■code文件的代碼
'========================================
Function savefile(file,code)'保存文件
dim MyFile
Set fso = CreateObject(FSObject)
Set MyFile = fso.CreateTextFile(Server.mapPath(file), True)
MyFile.WriteLine(code)
MyFile.Close
set MyFile=nothing
End Function
'=========================================================
'◆ 壓縮數據庫◆
'=========================================================
'========================================
'■dbPath數據文件路徑
'■boolIs97 access97壓縮
'========================================
Function CompactDB(dbPath,boolIs97)
dim strDBPath,fso,Engine
dbPath=server.mappath(dbpath)
strDBPath = left(dbPath,instrrev(DBPath,/))
Set fso = CreateObject(FSObject)
If fso.FileExists(dbPath) Then
Set Engine = CreateObject(JRO.JetEngine)
If boolIs97 = True Then
dim JET_3X
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbpath, _
Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & strDBPath & temp.mdb; _
&Jet OLEDB:Engine Type= & JET_3X
Else
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbpath, _
Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=&dbpw&;Data Source=&strDBPath&temp.mdb
End If
fso.CopyFile strDBPath & temp.mdb,dbpath
fso.DeleteFile(strDBPath&temp.mdb)
Set fso = nothing
Set Engine = nothing
CompactDB=當前數據庫,已經壓縮成功!
Else
CompactDB=數據庫名稱或路徑不正確. 請重試!
End If
End Function
%>
分享：Asp文件操作函數集% '===============asp 文件操作函數集1.0版本========================= ' 整理作者： 張輝' 程序員代號：WJ008 ' 整理時間：2008年6 月1 日' 關注地址：www.wj008.net ' 所有函數使用的文件地址全部使用絕對地址'============================================