UC知道input页面—sendMsg()函数发生错误
来源：百度知道 编辑：UC知道 时间：2024/06/18 17:04:18
我现在从网上下了一个聊天室的源码，在我本地电脑上测试的是正常的，可是当我上传到网的时时候就出现了问题：input页面----sendMsg()函数发生错误 不知道怎么修改，那面的整个源码在网上也有，地址是：http://blog.csdn.net/zelonggao/archive/2005/08/19/459072.aspx#459588 请教高手帮忙给改一下，不胜感激！
这是say.asp页面的内容：
<%
dim F,T,sC,cL,E,W,nC
Response.ContentType="text/xml"
F=Request.Form ("F")
T=Request.Form ("T")
sC=Request.Form ("sC")
cL=Request.Form ("cL")
E=Request.Form("E")
nC=request.Form("nC")
rem 开始不文明词语和禁止词汇的过滤
for i=0 to ubound(filarray)
sC=Replace(sC,filarray(i),"#%^$*@#")
next
for i=0 to ubound(forbidword)
sC=Replace(sC,forbidword(i),"#%^$*@#")
next
if Request.ServerVariables("REQUEST_METHOD")="POST" then
sC="<F>"&trim(F)
这是say.asp页面的内容：
<%
dim F,T,sC,cL,E,W,nC
Response.ContentType="text/xml"
F=Request.Form ("F")
T=Request.Form ("T")
sC=Request.Form ("sC")
cL=Request.Form ("cL")
E=Request.Form("E")
nC=request.Form("nC")
rem 开始不文明词语和禁止词汇的过滤
for i=0 to ubound(filarray)
sC=Replace(sC,filarray(i),"#%^$*@#")
next
for i=0 to ubound(forbidword)
sC=Replace(sC,forbidword(i),"#%^$*@#")
next
if Request.ServerVariables("REQUEST_METHOD")="POST" then
sC="<F>"&trim(F)
在本地电脑上测试的是正常的?
总的意思是:前台post数据，后台生成xml,然后前台ajax调用xml更新页面
这里只是前台代码，没有后台say.asp代码.
sendMsg()使用ajax.post方法提交数据
body=bytes2BSTR(oSend.responseBody);
oDom.loadXML(body);
oDom.parseError.errorCode //说明body不是一个标准的格式的xml数据.
问题出在后台生成的xml数据上.仔细检查后台say.asp返回的数据.
///////////////////////////
sC="<F>"&trim(F)&"</F><T>"&trim(T)&"</T><E>"&E&"</E><sC>"&trim(sC)&"</sC><cL>"&trim(cL)&"</cL><nC>"&nC&"</nC>"
我估计say.asp的代码没有贴完吧，
关键是生成xml数据,关于asp动态生成xml数据，网上有许多例子.
with reponse
.write "<?xml version="1.0" encoding="utf-8"?>"
.write "<root>"
.write sC
.write "</root>"
end with
建议你查查xml标准格式.
应该是asp生成xml格式错误，这需要你自己多测试.
var oDom=new ActiveXObject("Microsoft.XMLDOM");
oDom.async=false;
b