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

九、信息发送功能

客户端：

function sendMessage() 

{

     var fscontent=document.getElementById("fscontent").value;

     if(fscontent=="")

     {

            alert("内容不可为空！");

            return false;

     }

     document.getElementById("minmain").innerHTML="正在发送…";

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

loadXML("get","sendmessage.asp?frompage="+frompage+"a&nc="+nc+"a&b="+b+"&fscontent="+fscontent+"a",sendMessageOk);

}

function sendMessageOk(xmlDom) 

{

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

}

服务器端：sendMessage.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

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

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

fscontent=StreamToStr(trim(request("fscontent")))

else

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

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

fscontent=del1(trim(request("fscontent")))

end if

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

sql="select * from chatroom"

rs.open sql,conn,1,3

rs.addnew

rs("frompage")=frompage

rs("nc")=nc

rs("dateandtime")=now()

rs("chatmsg")=fscontent

rs.update

rs.close

set rs=nothing

response.Write("提示：发送成功!")

%>

为了方便发送信息，在输入信息的文本框中添加按键事件onkeydown="keypress();"

function keypress()   //按键为alt+s

{          

      var keycode = event.keyCode?event.keyCode:event.which?event.which:event.charCode;

      if((keycode==83)&&(event.altKey)){

      sendMessage();}

}