asp 二进制字符串转换为普通字符串

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  
 
  • 0
    点赞
  • 0
    收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值