请教高手帮忙给改一下,不胜感激!
这是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)&"</F><T>"&trim(T)&"</T><E>"&E&"</E><sC>"&trim(sC)&"</sC><cL>"&trim(cL)&"</cL><nC>"&nC&"</nC>"
else
Response.End
end if
dim c_talkinfo,c_Lid,c_Ip,c_Lid2,newLid,c_name,i,ubnum
Application.Lock
c_talkinfo=Application("c_roomtalkinfo"&cstr(session("c_userroomid")))
c_Lid=Application("c_roomLid"&cstr(session("c_userroomid")))+1
Application("c_roomLid"&cstr(session("c_userroomid")))=c_Lid
ubnum=ubound(c_talkinfo)
慕侠2389804
相关分类