国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

詳解asp之FileSystemObject對象_ASP教程

2024-05-04 11:04:17
字體:
來源:轉載
供稿:網友

推薦:解讀asp調用子程序教程
ASP程序可通過VBScript和其他方式調用子程序。 調用使用VBScript的子程序,示例代碼: html head % subvbproc(num1,num2) response.write(num1*num2) endsub % /head body p您可以像這樣調用一個程序:/p p結果:%callvbproc(3,4)%/p p或者,像這樣:/p p結果

指定的驅動器存在嗎? 
本例演示如何使用DriveExists方法來探測某個驅動器是否存在。
代碼如下:
<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.driveexists("c:") = true then
      Response.Write("驅動器 c: 存在。")
Else
      Response.Write("驅動器 c: 不存在。")
End If
Response.write("<br>")
if fs.driveexists("g:") = true then
      Response.Write("驅動器 g: 存在。")
Else
      Response.Write("驅動器 g: 不存在。")
End If
set fs=nothing
%>
</body>
</html>
 

本實例運行結果如下: 
驅動器 c: 存在。
驅動器 g: 存在。

取得某個指定驅動器的名稱 
本例演示如何使用GetDriveName方法來取得某個指定的驅動器的名稱。 
代碼如下:
<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetDriveName("c:/windows/cursors/abc.cur")
Response.Write("驅動器名稱是:" & p)
set fs=nothing
%>
</body>
</html>

本實例運行結果如下: 
驅動器名稱是:c: 

指定的文件存在嗎? 
本例演示如何首先創建FileSystemObject對象,然后使用FileExists方法來探測某文件是否存在。 
代碼如下:
<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists("c:/windows/cursors/xxx.cur"))=true Then 
Response.Write("文件 c:/windows/cursors/xxx.cur 存在。")
Else
      Response.Write("文件 c:/windows/cursors/xxx.cur 不存在。")
End If
set fs=nothing
%>
</body>
</html>

本實例運行結果如下: 
文件 c:/windows/cursors/xxx.cur 不存在。

指定的文件夾存在嗎? 
本例演示如何使用FolderExists方法探測某文件夾是否存在。 
本示例代碼如下:
<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:/temp") = true Then
      Response.Write("文件夾 c:/temp 存在。")
Else
      Response.Write("文件夾 c:/temp 不存在。")
End If
set fs=nothing
%>
</body>
</html>

本實例運行結果如下: 
文件夾 c:/temp 不存在。

取得某個指定路徑的父文件夾的名稱 
本例演示如何使用GetParentFolderName方法來取得某個指定的路徑的父文件夾的名稱。 
代碼如下:
 <html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetParentFolderName("c:/winnt/cursors/3dgarro.cur")
Response.Write("c:/windows/cursors/abc.cur 的父文件夾名稱是:" & p)
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:
c:/windows/cursors/abc.cur 的父文件夾名稱是:c:/winnt/cursors 

取得文件夾擴展名
本例演示如何使用GetExtensionName方法來取得指定的路徑中的最后一個成分的文件擴展名。 
代碼如下:
<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write("文件 3dgarro 的文件擴展名是:")
Response.Write(fs.GetExtensionName("c:/windows/cursors/abc.cur"))
set fs=nothing
%>
</body>
</html>

本實例運行結果如下: 
文件 3dgarro 的文件擴展名是:cur 

取得文件名 
本例演示如何使用GetFileName方法來取得指定的路徑中的最后一個成分的文件名。 
代碼如下:
 <html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write("這個文件名的最后一個成分是:")
Response.Write(fs.GetFileName("c:/windows/cursors/abc.cur"))
set fs=nothing
%>
</body>
</html>

本實例運行結果如下: 
這個文件名的最后一個成分是:abc.cur 

取得文件或文件夾的基名稱 
本例演示如何使用GetBaseName方法來返回在指定的路徑中文件或者文件夾的基名稱。 
代碼如下:
<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fs.GetBaseName("c:/windows/cursors/abc.cur"))
Response.Write("<br />")
Response.Write(fs.GetBaseName("c:/windows/cursors/"))
Response.Write("<br />")
Response.Write(fs.GetBaseName("c:/windows/"))
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:
abc
cursors
windows 

分享:解析ASP日期格式的數據加減計算方法
在ASP中為我們提供了專門的日期加減函數。 1.日期相加 DateAdd函數 返回已添加指定時間間隔的日期。 DateAdd(interval,number,date) DateAdd函數的語法有以下參數 (1)interval必選項。字符串表達式,表示要添加的時間間隔。有關數值,請參閱“設置”部分。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 五莲县| 碌曲县| 耒阳市| 万源市| 崇义县| 离岛区| 汉川市| 大英县| 公主岭市| 北安市| 远安县| 湟中县| 治多县| 永寿县| 安化县| 阳东县| 古交市| 淮南市| 垣曲县| 绥棱县| 定边县| 南江县| 诏安县| 沽源县| 会泽县| 安丘市| 孙吴县| 高安市| 尉犁县| 鹤岗市| 无棣县| 习水县| 花莲市| 嵊州市| 吕梁市| 肃宁县| 万州区| 金坛市| 林芝县| 北宁市| 申扎县|