asp BinToText 함수

' =========================== 

'  Function to BinToText 

' =========================== 

Function BinToText(varBinData, intDataSizeInBytes)    ' as String 

Const adFldLong = &H00000080 

Const adVarChar = 200 

Set objRS = Server.CreateObject("ADODB.Recordset") 

objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong 

objRS.Open 

objRS.AddNew 

objRS.Fields("txt").AppendChunk varBinData 

BinToText = objRS("txt").Value 

objRS.Close 

Set objRS = Nothing 

End Function