页面导航： 首页 → 网络编程 → ASP编程 → 应用技巧 → 正文内容

发布：dxy 发布日期：2007-8-1 19:52:05 字体：[增加 减小] 类型：转载

若需要utf-8格式，请自行将下面的GB2312改成utf-8。
' 二进制转字符串，否则会出现乱码的！ 
Function sTb(vin)
        Const adTypeText = 2
        Dim BytesStream,StringReturn
        Set BytesStream = Server.CreateObject("ADODB.Stream")
 With BytesStream
       .Type = adTypeText
       .Open
       .WriteText vin
       .Position = 0
       .Charset = "GB2312"
       .Position = 2
        StringReturn = .ReadText
       .Close
   End With
Set BytesStream = Nothing
sTb = StringReturn
End Function 

文章评论

共有 位脚本之家网友发表了评论我来说两句