推薦:ASP實(shí)例:計(jì)數(shù)器程序詳解Active Server Pager(動(dòng)態(tài)服務(wù)器主頁(yè),簡(jiǎn)稱ASP),通過讀寫服務(wù)器的文件,結(jié)合script語(yǔ)言(VBscript或Jscript)和html碼可以方便地實(shí)現(xiàn)頁(yè)面計(jì)數(shù)器功能。現(xiàn)流行的ASP教材和網(wǎng)絡(luò)上的ASP教程都談到
開啟FSO權(quán)限 在 開始-“運(yùn)行”中執(zhí)行regsvr32.exe scrrun.dll即可。如想關(guān)閉FSO權(quán)限,在上述命令中加/u參數(shù)。注冊(cè)表中的鍵值位置:HKEY_CLASS_BOOT/F.S.O .FSO中有個(gè)方法是CreateFolder,但是這個(gè)方法只能在其上一級(jí)文件夾存在的情況下創(chuàng)建新的文件夾,所以我就寫了一個(gè)自動(dòng)創(chuàng)建多級(jí)文件夾的函數(shù),在生成靜態(tài)頁(yè)面等方面使用非常方便。函數(shù):
| 以下為引用的內(nèi)容: ’ -------------------------------- ’ 自動(dòng)創(chuàng)建指定的多級(jí)文件夾 ’ strPath為絕對(duì)路徑 Function AutoCreateFolder(strPath) ’ As Boolean On Error Resume Next Dim astrPath, ulngPath, i, strTmpPath Dim objFSO If InStr(strPath, "/") <=0 Or InStr(strPath, ":") <= 0 Then AutoCreateFolder = False Exit Function End If Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strPath) Then AutoCreateFolder = True Exit Function End If astrPath = Split(strPath, "/") ulngPath = UBound(astrPath) strTmpPath = "" For i = 0 To ulngPath strTmpPath = strTmpPath & astrPath(i) & "/" If Not objFSO.FolderExists(strTmpPath) Then ’ 創(chuàng)建 objFSO.CreateFolder(strTmpPath) End If Next Set objFSO = Nothing If Err = 0 Then AutoCreateFolder = True Else AutoCreateFolder = False End If End Function |
調(diào)用方法:
| 以下為引用的內(nèi)容: MyPath = "C:/a/b/c/" |
分享:ASP實(shí)例學(xué)習(xí):隨機(jī)生成文件名的函數(shù)以下為引用的內(nèi)容: <html> <meta http-equiv="Refresh" content="2"> <!-- Place this
新聞熱點(diǎn)
疑難解答
圖片精選