在ASP中用VBS对汉字进行网址编码解决FLASH图表的中文乱码问题

昨天(其实是2010年3月1日，老博文了，搬过来)使用了一下OPEN-FLASH-CHART，输出图表还不错，但就是设置参数中有汉字的时候竟然无法显示，只出来一个个方框。

顺手搜索了一下，很多人都说是没有对汉字进行URL编码，于是使用Server.URLEncode对汉字编码后作为参数传递给FLASH，但是还是不正常，似乎编码是错误的，着实郁闷了半天。

于是继续搜索，偶见一篇文章提到，百度和古狗的汉字参数URL编码结果是不一样的，而且FLASH图表接受的编码正好和古狗的编码一样，文中提到JS有个函数encodeURIComponent可以把汉字转换成这个正确的编码。

但是ASP中调用JS比较麻烦，因为要声明JS代码必须用SCRIPT标签，而且INCLUDE功能无法包含带有SCRIPT标签的ASP文件，于是再继续搜......

终于找到了一个说明，Server.URLEncode在不同的CODEPAGE设置下得到的编码不一致，于是就变通一下了，当需要把汉字编码时，调整CODEPAGE，编码结束之后就再还原CODEPAGE，就可以既能得到所需的编码，又不影响整体的CODEPAGE设置，代码如下：

Function encodeURIComponent(vstrIn)
dim CodePage,strURI
CodePage = Response.CodePage
Response.CodePage = 65001
strURI = Server.URLEncode(vstrIn)
Response.CodePage = CodePage
encodeURIComponent = strURI
End Function

需要说明的是，这个编码只能用来对汉字编码，如果包含字母的话，很多原本不会被encodeURIComponent编码的字符也会被编进去，那就会造成问题了，所以最好这个函数只接受汉字作为参数来使用。