二进制连接函数VBSCRIPT

最新推荐文章于 2020-12-27 12:31:15 发布

最新推荐文章于 2020-12-27 12:31:15 发布 · 87 阅读

文章标签：

#VBScript #C #C++ #C#

博客展示了一段VBScript代码，定义了ConvertAsc函数用于将输入字符串转换为特定编码格式。通过遍历字符串每个字符，根据ASCII码范围进行不同处理，最后将转换后的字符拼接。代码还对英文和中文示例字符串进行转换并输出。

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