二进制连接函数VBSCRIPT

二进制连接函数VBSCRIPT

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 二进制连接函数VBSCRIPT (http://www.webasp.net/article/20/19949.htm)

-- 作者：未知
-- 发布日期： 2005-04-29

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

webasp.net