利用xmlhttp无刷新聊天室,原创可用,精简版

-----t3.asp-----

 

<%@ Language = "VBScript" %>

   
   

   

something

---t5.asp---

<%

set conn=server.CreateObject("ADODB.Connection")
sql="Driver={sql server};server=YOURSERVER;uid=username;pwd=password;database=yourdatabase"
conn.open(sql)

set rs=server.CreateObject("adodb.recordset")
ss="select chat_message from chatmessage where chat_id=1 order by chat_id"
rs.open ss,conn,1,3
dim str
do while not rs.eof
 str=str+rs("chat_message")+"#@#"
rs.movenext
loop
response.write (escape(str))
rs.close
conn.close
%>

---t10.asp---

<%
message=request("message")
set conn=server.CreateObject("ADODB.Connection")
sql="Driver={sql server};server=YOURSERVER;uid=username;pwd=password;database=yourdatabase"
conn.open(sql)

ss="insert chatmessage(chat_id,chat_message) values('1','"+message+"')"
conn.execute ss
conn.close
%>