2007年10月11日
摘要: '将二进制文件转换成base64编码 Public Function ConvertFileToBase64(ByVal fileName) As String Dim file_length As Long Dim fnum As Integer Dim bytes() As Byte Dim txt As String Dim i As Integer ... 阅读全文
posted @ 2007-10-11 21:14 自由港 阅读(1171) 评论(0) 推荐(0)