在ASP中，Sub函數是一種可以在程序中定義的子過程。這個子過程可以完成特定的任務，并且可以在程序的其他地方調用和復用。通過使用Sub函數，我們可以把程序分解為更小的、可重用的代碼塊，從而提高代碼的可讀性和可維護性。

舉一個例子來說明Sub函數的用法。假設我們正在開發一個在線商店的網站，我們需要計算每個顧客購物車中商品的總價格。在這個場景下，我們可以定義一個名為CalculateTotalPrice的Sub函數。這個函數接受商品價格的數組作為參數，然后返回這些商品價格的總和。

Sub CalculateTotalPrice(arrPrices)
Dim totalPrice
totalPrice = 0
For Each price In arrPrices
totalPrice = totalPrice + price
Next
Response.Write "總價格為：" & totalPrice
End Sub

在上面的例子中，我們定義了一個Sub函數CalculateTotalPrice，它接受一個名為arrPrices的數組作為參數。在函數內部，我們使用一個循環遍歷該數組，并將所有價格累加到totalPrice變量中。最后，我們通過使用Response.Write語句將總價輸出到網頁上。

一旦我們定義了這個Sub函數，我們可以在程序的其他地方通過調用它來計算購物車的總價格。假設我們在網頁上顯示了一個購物車的界面，當用戶點擊“計算總價”按鈕時，我們可以調用CalculateTotalPrice函數來計算總價格并顯示在屏幕上。

Dim arrPrices(3)
arrPrices(0) = 10
arrPrices(1) = 20
arrPrices(2) = 30
CalculateTotalPrice arrPrices

在上面的代碼中，我們創建了一個包含3個商品價格的數組arrPrices，并初始化這些價格。然后，我們調用CalculateTotalPrice函數并將arrPrices傳遞給它，從而計算購物車的總價格。在執行這段代碼后，屏幕上將會顯示出“總價格為：60”。

通過使用Sub函數，我們可以避免重復編寫計算總價格的代碼，提高了程序的可重用性和可維護性。如果以后需要在程序的其他地方計算總價格，我們只需要調用CalculateTotalPrice函數即可。

總而言之，ASP中的Sub函數是一種有助于提高代碼可讀性和可維護性的重要工具。通過定義和調用Sub函數，我們可以將大型代碼分解為更小的、可重用的代碼塊，從而提高代碼的可重用性和可維護性。