实例：Ajax开发页面聊天系统

八、呢称修改功能

为了聊天方便，有时系统自动生成的呢称并不能直观明了，这就要求我们对系统进行呢称修改,呢称修改必须注意的是当系统中存在同一呢称时，将会提示呢称重复，而且无法修改。

客户端：

function modifyNc()

{

     if(objTimeronline) window.clearTimeout( objTimeronline)

     var newnc=document.getElementById("nc").value

     loadXML("get","modifync.asp?frompage="+frompage+"a&b="+b+"&nc="+nc+"a&newnc="+newnc+"a",modifyNcOk);

     }

function modifyNcOk(xmlDom) 

{

     if(xmlDom.responseText=="提示:改名成功")

     {

     nc=document.getElementById("nc").value;

     }

     OnlineNum();

     document.getElementById("minmain").innerHTML=xmlDom.responseText;

}

服务器端：modifync.asp

<% Response.Charset="gb2312" %>

<% Session.CodePage=936 %>

<!--#include file="conn.asp"-->

<%

Response.addHeader "pragma", "no-cache"

Response.addHeader "cache-control", "private"

Response.CacheControl = "no-cache"

b=request("b")

if instr(b,"Netscape") then

nc=trim(StreamToStr(request("nc")))

newnc=trim(StreamToStr(request("newnc")))

frompage=trim(StreamToStr(request("frompage")))

else

nc=del1(trim(request("nc")))

newnc=del1(trim(request("newnc")))

frompage=del1(trim(request("frompage")))

end if

set rs=server.CreateObject("adodb.recordset")

sql="select * from online where frompage='"&frompage&"' and nc='"&newnc&"'"

rs.open sql,conn,1,1

if  rs.bof and rs.eof then

conn.execute "update online set nc='"&newnc&"' where nc='"&nc&"' and frompage='"&frompage&"'"

conn.execute "update chatroom set nc='"&newnc&"' where nc='"&nc&"' and frompage='"&frompage&"'"  '更新聊天记录中的呢称

session(newnc)=session(nc)  '控制获得旧呢称的聊天记录

set rsx=server.CreateObject("adodb.recordset")   '添加信息提示

sql="select * from msg where frompage='"&frompage&"'"

rsx.open sql,conn,1,3

rsx.addnew

rsx("frompage")=frompage

rsx("msg")=nc&"改名为"&newnc

rsx.update

rsx.close

response.Write("提示:改名成功")

else

response.Write("提示:呢称已存在")

end if

rs.close

set rs=nothing

conn.close

set conn=nothing

%>