當前位置: 首頁 > 技術筆記 > 正文

技術筆記(ASP)

 
 
 
======寫入文字檔案=======
'宣告變數
Dim objFSO, objTextFile,objTextFile2
Dim sRead, sReadLine, sReadAll
Const ForReading = 1, ForWriting = 2, ForAppending = 8
filename=檔案存放路徑(相對於網站根目錄,亦可是磁碟機實體目錄)
'宣告FSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
BB=Server.MapPath(filename)'若是磁碟機實體目錄,則可不需使用MapPath方法
Set objTextFile = objFSO.CreateTextFile(BB, True)'使用FSO創建一個文字檔案
'寫入一行字
objTextFile.WriteLine("此行內容")
'將目前時間寫入新的一行
objTextFile.WriteLine(DATE)
'將Rs資料寫入新的一行
objTextFile.WriteLine(Rs("欄位名稱"))
'寫入文字
objTextFile.Write ("直接寫入文字,不產生新行")
'增加一個空行
objTextFile.WriteBlankLines(1)
'寫入結束
objTextFile.Close

======自文字檔案讀出內容=======
'使用FSO讀一個檔案
set txt= objFSO.opentextfile("路徑+檔名",1,true)
While Not txt2.AtEndOfStream '若不是檔案最後一行
'讀取文字檔案,並將此行文字寫入AA變數
AA=txt.ReadLine
wend'迴圈
txt.close

=====透過網頁運用ASPExec執行本機檔案=======
'需先註冊ASPExec.dll
'方式:下載並執行Regsvr32 ASPEXEC
'程式碼:
'這是建立物件名稱的語法
Set Executor = Server.CreateObject("ASPExec.Execute")
'應用程式的檔名與路徑
Executor.Application = "notepad.exe"
'執行的應用程式的參數
Executor.Parameters = "c:\autoexec.bat"
TimeOut
'這是執行的應用程式的等待時間(ms)
Executor.TimeOut = "6000"
'這是執行的應用程式時是否要顯示視窗
Executor.ShowWindow = Ture
'若要執行DOS應用程式則如下
Executor.ExecuteDosApp
'若要執行視窗應用程式則如下
Executor.ExecuteWinApp
'可輸出執行結果
RESPONSE.WRITE(strResult)
'結束ASPExec
Set Executor = Nothing

=========時間有關===========
'回傳當下日期,格式yyyy/mm/dd
date
'兩天後的日期
date+2

'只回傳月份
month(date)
'只回傳日期
day(date)
'只回傳年份
year(date)

'若要補零而不使用IF判斷,例1/9/2009==>01/09/2009
right("0"&month(date),2)&"/"&right("0"&day(date),2)&"/"&right(year(date),4)

歷史上的今天..

本文固定鏈結: http://blueghost.net/blog/archives/633 | blueghost's blog

按此">
該日誌由 blueghost 於2009年01月09日發表在 技術筆記 分類下, 你可以發表評論,並在保留原文位址及作者的情況下引用到你的網站或博客。
原創文章轉載請注明: 技術筆記(ASP) | blueghost's blog
關鍵字: ,