ppjoke.asp

ajax＋asp在线聊天,非常小巧,适合大部分地方使用.

<!--#include file="database.asp" -->
<% 

Dim act
act = Request("act")

Call access_connection("ppjoke.mdb")

If act = "sendMsg" Then
	username = my_replace(Request("name"))
	email =  my_replace(Request("email"))
	msg =  my_replace(Request("talk"))
	color =  my_replace(Request("color"))
	Session("nowuser") = username
	If Session("username") = username Then
		sql="insert into ppjoke(username,email,msg,member,rndid,color) values ('"&username&"','"&email&"','"&msg&"',true,"&Session.SessionID&",'"&color&"')"
	Else
		sql="insert into ppjoke(username,email,msg,member,rndid,color) values ('"&username&"','"&email&"','"&msg&"',false,"&Session.SessionID&",'"&color&"')"
	End If
	conn.execute sql
End If

If act = "getMsg" Then
	If isEmpty(session("id")) Then
		getsql="select * from ppjoke where id in (select top 5 id from ppjoke order by id desc) order by id asc "
	Else
		getsql="select * from ppjoke where id > "&Session("id")&" and rndid<>"&Session.SessionID&" order by id asc "
	End If
	Dim newMsg
	newMsg="{'msg':["
	Set rs=server.createobject("adodb.recordset")
	rs.open getsql,conn,3,2
	Do while not rs.eof
		If rs("id")<>Session("metalk") Then
	newMsg=newMsg+"{'u':'"&rs("username")&"','m':'"&rs("msg")&"','e':'"&email&"','v':'"&rs("member")&"','t':'"&FormatDateTime(rs("talkdate"),4)&"','c':'"&rs("color")&"'}"+","
		End If
	Session("id")=rs("id")
    rs.MoveNext
	Loop
	If Len(newMsg)>9 Then newMsg=Left(newMsg,Len(newMsg)-1)	End If
	newMsg=newMsg+"]}"
	Response.Write(newMsg)
	rs.close
	Set rs = Nothing
End If

If act = "login" Then
	oname = Request("regname")
	opass =  Request("regpass")
	checksql="select * from ouser where oname='"&oname&"' and opass='"&opass&"'"
	Set rs=server.createobject("adodb.recordset")
	rs.open checksql,conn,3,2
	If not rs.eof Then
	Response.Write("ok")
	Session("username")=oname
	Else
	Response.Write("erro")
	End If
	rs.close
	Set rs = Nothing
End If

If act = "reg" Then
	oname = Request("regname")
	opass =  Request("regpass")
	checksql="select * from ouser where oname='"&oname&"'"
	Set rs=server.createobject("adodb.recordset")
	rs.open checksql,conn,3,2
	If not rs.eof Then
		Response.Write("regged")
		rs.close
		Set rs = Nothing
	Else
		regsql="insert into ouser(oname,opass) values ('"&oname&"','"&opass&"')"
		data_operation(regsql)
		Response.Write("ok")
		Session("username")=oname
	End If
End If

If act = "logout" Then
	Session.Abandon()
	Response.Write("ok")
End If

Call close_data_connection()
%>