以下函数为自定义组件 bluec.bluecData2 的代码:
function execSql(pSql, params)
{
var result = -3;
formDoc = "<sqls>\n" +
"<sql>" + pSql + "</sql>\n" +
"</sqls>";
var oXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
oXmlHttp.Open("POST", "../util/execsql.asp", false);
oXmlHttp.setRequestHeader("Content-Type", "text/xml");
oXmlHttp.setRequestHeader("charset", "utf-8");
oXmlHttp.Send(formDoc);
if (oXmlHttp.status == 200)
{
var rText = oXmlHttp.responseText;
if (rText.substring(0,1) == "0")
{
return true;
}
else
{
return false;
}
}
return false;
}
调用 bluec.bluecData2 组件的页面内容:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
var errMsg = "0";
obj = new ActiveXObject("bluec.bluecData2");
errMsg = obj.execSql(Request);
Response.Charset = "utf-8";
Response.ContentType = "text/xml";
Response.Write(errMsg);
obj = null;
%>
当errMsg包含中文时，oXmlHttp.responseText 返回的值是乱码，怪了，在 jsp 中同样的实现方法居然没有问题。
在网上搜索，发现解决最重要的解决办法是写一个函数来转换 oXmlHttp.responseText 的编码格式。
该 VBScript 函数是 byte2sBSTR，但是我的代码全部是 JavaScript，据说 JavaScript 也可以直接调用 VBScript 函数，心里好不舒服，这些小问题好花时间。
继续搜索吧，看有没有纯 JavaScript 的解决办法，在一个论坛上发现一个高手对此问题的回复:
unescape
真是简单之至，点到为止。unescape 有什么用，通过实验：
var rText = oXmlHttp.responseText; 改成 var rText = unescape(oXmlHttp.responseText);
且
Response.Write(errMsg); 改成 Response.Write(escape(errMsg));
居然OK了，太棒了。
