chat_server.asp

简单的聊天程序.

<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1

Dim adInteger, adVarChar
adInteger = 3
adVarChar = 200

Dim dom, stream, datax
Set dom = Server.CreateObject("MSXML2.DOMDocument")
dom.async = False
Set stream = Server.CreateObject("ADODB.Stream")
Set datax = Server.CreateObject("DATAX2.GenericSQL")
datax.GetConnection "Develop\SQL\Local"

dom.load Request

Select Case Request.QueryString("action")
	Case "usr"
		Set stream = datax.RunSPReturnStream("get_handles", Array())
		stream.Position = 0
		Response.Write "<root>" & stream.ReadText(-1) & "</root>"
		stream.Close
	Case "msg"
		Dim handle_id
		handle_id = dom.selectSingleNode("//handle_id").text
		Set stream = datax.RunSPReturnStream("get_messages", Array(Array("@handle_id", adInteger, 4, handle_id)))
		stream.Position = 0
		Response.Write stream.ReadText(-1)
		stream.Close
	Case "snd"
		datax.RunSP "new_message", Array(Array("@xml_param", adVarChar, 2000, dom.xml))
	Case "out"
		datax.RunSP "do_logout", Array(Array("@xml_param", adVarChar, 2000, dom.xml))
End Select

Set stream = Nothing
Set dom = Nothing
Set datax = Nothing
%>