怎么在ASP2DLL中使用escape跟unescape？？

[z109876543210]

怎么在ASP2DLL中使用escape跟unescape？？

[wanghr100]

escape和unescape是JavaScript的方法.
如果你的ASP是用JavaScript做脚本的话,就可以使用.

[z109876543210]

我直接在ASP(vbscript,javascript)脚本里是可以正常使用的，可是asp2dll编译为DLL后就出现空值或乱码或类型不匹配！

[z109876543210]

dll里面的代码是定义为privat escape

[z109876543210]

打包成DLL就差这一点，用过asp2dll的朋友帮我！

[to_be_or_not_to_be]

<script language="vbscript">
Function isalnum(ByVal strIn)
Dim c: c = Asc(LCase(Mid(strIn, 1, 1)))
If c>=Asc("0") And c<=Asc("9") Then
isalnum = True
ElseIf c>=Asc("a") And c<=Asc("z") Then
isalnum = True
Else
isalnum = False
End If
End Function

Function escape(ByVal strIn)
Dim i
For i=1 To Len(strIn)
Dim c: c = Mid(strIn, i, 1)
Dim a: a = AscW(c)
If isalnum(c) Then
escape = escape & c
ElseIf abs(a)<=128 Then
escape = escape & "%" & Hex(a)
Else
escape = escape & "%u" & Hex(a)
End If
Next
End Function

Function unescape(ByVal strIn)
Dim i
For i=1 To Len(strIn)
Dim c: c = Mid(strIn, i, 1)
If c = "%" Then
i = i + 1
c = Mid(strIn, i, 1)
If c = "u" Then
i = i + 1
c = Mid(strIn, i, 4)
i = i + 3
Else
c = Mid(strIn, i, 2)
i = i + 1
End If
unescape = unescape & ChrW("&H" & c)
Else
unescape = unescape & c
End If
Next
End Function

Dim a: a = escape("你好啊！hello world!")
Alert a
Alert unescape(a)

</script>

[z109876543210]

我把to_be_or_not_to_be(to be)的函数放到DLL模块，可是会有一些不通用。escape转化后的字符串要用下面这个函数过滤一下，才能在javascript里用unescape转换成功！
那个%D%A是什么字符啊？？

21458 Set RegEx = New RegExp
21459 RegEx.global = True
21460 RegEx.Pattern = "%D%A"
21461 myStr = RegEx.Replace(myStr, "%20")

[z109876543210]

是啊，那些出现%D%A地方好像原来就没有回车，我换成空格后显示正常啊！

[to_be_or_not_to_be]

%D = Chr(13)
%A = Chr(10)

%D%A = vbCrLf

你这个正则是不是要把vbCrLf替换成空格(%20)？