ASP中的BinaryToString是一個函數，它允許我們將二進制數據轉換為字符串。在許多情況下，我們可能需要將二進制數據轉換為可讀的字符串，或者在網絡數據傳輸中將二進制數據進行編碼和解碼。BinaryToString函數為我們提供了一個方便易用的方法。

假設我們有一個保存圖像文件的二進制數據流，我們想要顯示該圖像文件的名稱。我們可以使用BinaryToString函數將二進制數據轉換為字符串，然后通過在網頁上輸出這個字符串來顯示圖像文件的名稱。

<%<
Dim binaryData
binaryData = GetImageData() ' 這個函數返回圖像文件的二進制數據流
Dim imageFileName
imageFileName = BinaryToString(binaryData)
Response.Write("圖像文件名稱：" & imageFileName)
%>

在上面的例子中，函數GetImageData返回了一個圖像文件的二進制數據流。我們將這個二進制數據流傳遞給BinaryToString函數，并將返回的字符串賦值給變量imageFileName。最后，我們通過Response.Write函數將圖像文件的名稱輸出到網頁上。

BinaryToString函數的實現如下：

Function BinaryToString(binaryData)
Dim oXML
Set oXML = Server.CreateObject("Microsoft.XMLDOM") ' 創建一個XML DOM對象
Dim oNode
Set oNode = oXML.CreateElement("binaryData") ' 創建一個XML節點
oNode.dataType = "bin.base64" ' 設置節點的數據類型為Base64編碼
oNode.text = binaryData ' 將二進制數據賦值給XML節點的text屬性
BinaryToString = oNode.nodeTypedValue ' 返回XML節點的字符串值
Set oNode = Nothing
Set oXML = Nothing
End Function

在函數內部，我們首先創建了一個XML DOM對象，并創建了一個名為binaryData的XML節點。然后，我們將節點的數據類型設置為Base64編碼，并將二進制數據賦值給節點的text屬性。最后，我們返回節點的字符串值。

除了將二進制數據轉換為字符串外，我們還可以使用BinaryToString函數將字符串編碼為二進制數據。

<%<
Dim strData
strData = "Hello, World!" ' 需要編碼的字符串
Dim binaryData
binaryData = StringToBinary(strData)
Response.Write("編碼后的二進制數據：" & binaryData)
%>

在上面的例子中，我們將字符串"Hello, World!"傳遞給StringToBinary函數，并將返回的二進制數據賦值給變量binaryData。最后，我們通過Response.Write函數將編碼后的二進制數據輸出到網頁上。

StringToBinary函數的實現如下：

Function StringToBinary(strData)
Dim oXML
Set oXML = Server.CreateObject("Microsoft.XMLDOM") ' 創建一個XML DOM對象
Dim oNode
Set oNode = oXML.CreateElement("binaryData") ' 創建一個XML節點
oNode.dataType = "bin.base64" ' 設置節點的數據類型為Base64編碼
oNode.text = strData ' 將字符串賦值給XML節點的text屬性
StringToBinary = oNode.nodeTypedValue ' 返回XML節點的字節數組
Set oNode = Nothing
Set oXML = Nothing
End Function

在函數內部，我們使用相同的方法創建了一個XML DOM對象和一個名為binaryData的XML節點。然后，我們將節點的數據類型設置為Base64編碼，并將字符串賦值給節點的text屬性。最后，我們返回節點的字節數組。

通過BinaryToString和StringToBinary函數，我們可以在ASP中方便地實現二進制數據和字符串之間的轉換。無論是將二進制數據轉換為字符串，還是將字符串編碼為二進制數據，這些函數提供了一種簡單、可靠的解決方案。