六狼论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博账号登陆

只需一步,快速开始

搜索
查看: 43|回复: 0

二进制连接函数VBSCRIPT

[复制链接]

升级  16.15%

427

主题

427

主题

427

主题

探花

Rank: 6Rank: 6

积分
1323
 楼主| 发表于 2013-2-1 11:44:27 | 显示全部楼层 |阅读模式
Public Function ConvertAsc(strIn)
Dim i
ConvertAsc = ""
For i=1 to Len(strIn)
Dim c: c = Asc(Mid(strIn, i, 1))
If Abs(c)<128 Then
ConvertAsc = ConvertAsc & ChrB(c)
Else
Dim h: h = Hex(c)
ConvertAsc = ConvertAsc & ChrB(Int("&H" & Mid(h, 1, 2)))
ConvertAsc = ConvertAsc & ChrB(Int("&H" & Mid(h, 3, 2)))
End If
Next
End Function
Dim a: a = ConvertAsc("hello world!")
Dim b: b = ConvertAsc("世界你好!")
Response.BinaryWrite a + b
您需要登录后才可以回帖 登录 | 立即注册 新浪微博账号登陆

本版积分规则

快速回复 返回顶部 返回列表