content.asp

AJAX聊天室 可以实现刷新 AJAX

<%
Response.Addheader "Content-Type","text/html; charset=UTF-8"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
xh_mdb_server="/data/#joke.mdb"
dim conn,connstr
'on error resume next
connstr="DBQ="+server.mappath(""&xh_mdb_server&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
W=request("W")
if W<>"" then Sql&" where xh_title like '%"&W&"%'"
set rs=server.createobject("adodb.recordset")
rs.open "select * from xh_artlist"&Sql&" order by rnd(-1*ID + time() + right(timer(),2))",conn,1,1
if not(rs.eof) then
xh_content="<a class='Lcss1'>"&rs("xh_title")&"</a><br>"&rs("xh_content")&"<br><a style='color:#0000ff' onclick=""SendOther('joke','joke')"">[再来一条]</a>"
RobotMsg=xh_content
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write RobotMsg
%>