6.2.10  Tools組件
       Tools組件提供了一些有用的方法，可在頁面中檢查文件是否存在、處理一個HTML窗體、以及產(chǎn)生一個隨機整數(shù)，還有用于Macintosh計算機的一些方法，還可以檢查是否存在某個服務(wù)器插件以及檢查用戶是否是網(wǎng)站的擁有者。
1．  Tools組件的成頁
Tools組件提供了五個方法，其中兩個依賴于操作系統(tǒng)，如表6-8所示：
表6-8  Tools組件的方法及說明
方 法
說 明

FileExists(relative_url)
如果relative_url指定的文件存在，返回值為True，否則為False。必須給出虛擬相對路徑及文件名，并且文件必須存在于發(fā)布的Web網(wǎng)站目錄中。

Random()
產(chǎn)生一個位于-32768~32767之間的隨機整數(shù)。使用ABS函數(shù)（VBScript）或Math.abs（JScript）得到在0~32768之間的正整數(shù)。使用Mod運算符（VBScript）或%運算符（JScript）得到指定范圍內(nèi)的一個數(shù)值。例如：
intRand = (objTools.Random Mod 76) + 25
得到一個在25~100之間的整數(shù)。

ProcessForm(output_url,
template_url,[insertion_point])
通過template_url指定的文件處理一個HTML窗體，并且插入來自窗體中已提交給當(dāng)前頁面的數(shù)值。結(jié)果寫進(jìn) output_url指定的文件，如果指定了可選項insertion_point（字符串）參數(shù)的話，組件可在已存在的輸出文件中找到這個字符串，并在該位置插入新的內(nèi)容。如果insertion_point參數(shù)沒有指定，任何已存在的 output_url文件則被新的輸出取代

Owner
僅適用于Macintosh機，如果當(dāng)前用戶帳戶是Web網(wǎng)站的擁有者，返回值為True，否則返回值為False

PluginExists(plugin_name)
僅適用于Macintosh機，如果指定的服務(wù)器plugin_name安裝在機器上，返回值為True，否則為 False

2．  使用FileExists方法
在允許用戶訪問之前，可以使用FileExists方法檢查某些文件是否存在于服務(wù)器中（注意這個方法和 FileSystemObject.FileExists以同樣的方式工作）。
下面的例子中，用戶提供了網(wǎng)頁的相對URL，如果用戶想通過在名為txtURL的文本框中鍵入URL打開網(wǎng)頁，在重新定向之前可以檢查其是否存在。
       <% // in Jscript:
       var objTools = Server.CreateObject('MSWC.Tools');
       var strURL = Request.Form ('txtURL');         // collect the page URL they entered
       if (objTools.FileExists(strURL))                  // see if it exists
              Server.Transfer(strURL)                    ;      // if it does, transfer to it
       Else          & nbsp;                                     ;           // or if not display a message
              Response.Write('Sorry, the page you requested does not exist');
       %>
       這里提供了一個示例頁面（使用VBScript）來演示組件的三種方法（非 Macintosh），可以從ASP Installable Components主菜單中運行，如圖6-16所示：

圖6-16  運行Tools組件的方法的頁面
       網(wǎng)頁的第一部分允許輸入一個文件的相對URL，并告訴用戶該文件是否存在。示例提供的缺省值是查看網(wǎng)站的根目錄中是否有g(shù)lobal.asa文件。點擊按鈕時，說明該文件是否可找到的信息將放在頁面的頂部，如圖6-17所示：

圖6-17  運行FileExists方法的結(jié)果
       把頁面的所有控件放在<FORM>中，提交回本頁面，這已經(jīng)成為一種規(guī)范。在頁面的開始，查看點擊了哪個按鈕。如果是FileExists的按鈕，就調(diào)用組件的FileExists方法并顯示合適的信息。
       'look for a command sent from the FORM section buttons
If Len(Request.Form("cmdExists")) Then
  strFile = Request.Form("txtFile")
  If objTools.FileExists(strFile) Then
    Response.Write "The file '<B>" & strFile & "</B>' does exist.<P>"
  Else
    Response.Write "The file '" & strFile & "' <B>does not</B> exist.<P>"
  End If
End If
3．使用Tools.Random方法
在ASP頁面中，有時需要一個隨機數(shù)來完成某些任務(wù)，例如，把用戶重新定位到一個隨機網(wǎng)頁、選擇顏色或顯示每日提示。可以使用VBScript中的Rnd函數(shù)，但要把所得數(shù)值轉(zhuǎn)變成指定范圍內(nèi)的整數(shù)。Tools組件的Random方法更易于使用，因為能夠直接提供整數(shù)值。
Random方法的結(jié)果是一個在-32768~32767范圍中的整數(shù)值，為了獲得一個指定范圍的整數(shù)，可以使用腳本語言中的Abs函數(shù)并對下一個最大的整數(shù)取模。例如為了用VBScript語言創(chuàng)建0~20的正整數(shù)，可以使用下列語句：
intRandom = Abs(objTools.Random) Mod 21
為了得到在50~100之間的數(shù)值，可以用：
intRandom = (Abs(objTools.Random) Mod 51) + 50
示例網(wǎng)頁使用這項技術(shù)生成隨機數(shù)時，首先需要檢查由用戶輸入的數(shù)值，以保證這些數(shù)值既是有效正整數(shù)又有正確的相對關(guān)系。
If Len(Request.Form("cmdRandom")) Then
  intMin = -1  'preset to illegal values and then
  intMax = -1  'only set if a valid number is entered
  strMin = Request.Form("txtMinimum")
  strMax = Request.Form("txtMaximum")
  If IsNumeric(strMin) Then intMin = CStr(strMin)
  If IsNumeric(strMax) Then intMax = CStr(strMax)
  If (intMin >= 0) And (intMax > intMin) Then
    intRandom = (Abs(objTools.Random) Mod (intMax - intMin + 1)) + intMin
    Response.Write "Your random value is: <B>" & intRandom & "</B><P>"
  Else
    Response.Write "<B>The numbers you entered are not valid.</B><P>"
  End If
End If
當(dāng)頁面重新調(diào)入時，結(jié)果顯示在網(wǎng)頁的頂部，如圖6-18所示：

圖6-18  運行Random方法的結(jié)果
4．使用Tools.ProcessForm方法
Tools組件中最復(fù)雜的方法是ProcessForm，用來讀取存在磁盤上的臨時文件，并在其中插入創(chuàng)建的信息（可能來自當(dāng)前頁面的Request.Form集合的內(nèi)容），然后把結(jié)果作為一個文件輸出到磁盤，這個方法的語法是：
ProcessForm (output_url, template_url, [insertion_point])
臨時文件和輸出文件相對于當(dāng)前頁面使用相對URL來定義。輸出文件可以是ASP網(wǎng)頁，如果這樣，當(dāng)其在瀏覽器打開時，將正常處理。臨時文件可以包含普通的ASP代碼，但不運行，僅簡單地拷貝輸出文件。然而，如果把臨時文件中的ASP代碼放在<%%…%%>限定符中，當(dāng)臨時文件調(diào)入時代碼將被執(zhí)行，這允許動態(tài)生成的數(shù)值（諸如進(jìn)行處理的時間和日期）插入到輸出頁面中。
下面是示例文件template.asp（在chapter06目錄的Tools子目錄中）：
This file was created by the ASP Tools component
------------------------------------------------
The content of the request was:

Output file name: <%% = Request.Form("txtOutput") %%>
Template file name: <%% = Request.Form("txtTemplate") %%>
Insertion point text: <%% = Request.Form("txtInsert") %%>

------------------------------------------------
Created <%% = Now() %%>
示例頁面包含著預(yù)定使用這個臨時文件的控件，這些控件創(chuàng)建一個和臨時文件在同一個文件夾中的名為output.asp的輸出文件，如圖6-19所示：

圖6-19  運行Tools.ProcessForm方法的界面
點擊按鈕時，將運行一部分ASP代碼，從文本框中采集數(shù)據(jù)并調(diào)用ProcessForm方法：
If Len(Request.Form("cmdProcess")) Then
  strTemplate = Request.Form("txtTemplate")
  strOutput = Request.Form("txtOutput")
  strInsertPoint = Request.Form("txtInsert")
  '…
  ' we display the template contents here
  '…

  ' process the form contents
  objTools.ProcessForm strOutput, strTemplate, strInsertPoint

  '…
  ' we display the output file contents here
  '…
End If
(1)    設(shè)置輸出文件的訪問權(quán)限
如果得到一個“MSWC.Tools error 80004005 Couldn’t open output file”錯誤信息，這意味著IIS不允許向指定的目錄中寫入輸出文件。解決這個問題最快捷的方法是，在Properties對話框中的Security選項卡中，將相應(yīng)的Tools目錄以及存放output.asp的目錄的Everyone組的Full Control設(shè)置成允許，如圖6-20所示：

圖6-20  設(shè)置輸出文件訪問權(quán)限的界面
(2)    查看文件內(nèi)容
圖6-21顯示了上面代碼用缺省值運行缺省值運行的結(jié)果，可以看到原來的臨時文件內(nèi)容，以及使用ProcessForm方法插入到輸出文件中的內(nèi)容。

圖6-21  輸出文件的內(nèi)容
這里省略了顯示來自前面見過的文件內(nèi)容的程序代碼。顯示內(nèi)容的方法與ASP Installable Components主菜單頁面中用于顯示內(nèi)容鏈接列表文件的方法相同。使用FileSystemObject和TextStream對象的實例把整個文件讀入到一個字符串中，然后將其插入網(wǎng)頁中（記住要使用Server.HTMLEncode方法，以便把字符“<”和“>”轉(zhuǎn)換成可用于顯示的字符）。
QUOT = Chr(34)   'double-quote character
…
'create a FileSytemObject object to display the template file contents
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Response.Write "The content of the template file <B>" & _
               strTemplate & "</B> is:"

Set objTStream = objFSO.OpenTextFile(Server.MapPath(strTemplate), ForReading)
strContent = Server.HTMLEncode(objTStream.ReadAll)   'read whole file
objTStream.Close

Response.Write "<DIV CLASS=" & QUOT & "showcode" & QUOT & "><PRE>" & _
               strContent & "</PRE></DIV>"
…
(3)    關(guān)于插入點參數(shù)
ProcessForm方法可選的insertion_point參數(shù)能用來在文件中的特定點插入文本，這個方法是先查找輸出文件中特定字符串的第一個實例，然后在該位置插入創(chuàng)建的新內(nèi)容，在輸出文件中通過把星號（*）放在insertion_point字符串前面來放置新內(nèi)容。如果省略了insertion_point參數(shù)，新的內(nèi)容會取代整個輸出文件。
注意insertion_point參數(shù)在Tools.ProcessForm方法的早期版本中不能使用。