midp1_send.asp

来自「j2me lan 聊天 server 基于 servlet 使用向导： 」· ASP 代码 · 共 30 行

<%
fromuser=Request("user")
passWord=Request("pass")
touser=Request("to")
content=Request("ms")
	Set conn=Server.CreateObject("ADODB.connection")
	conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mssdata.mdb")
	conn.Open
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql="Select user,friend From sanchat_users where user='" & fromuser & "' and pass='" & passWord & "'"
	rs.open sql,Conn,3,3
	if rs.eof<>true then
		rs.close
		rs.open "sanchat_mss",conn,3,3
		rs.addnew
		rs("title")= Date() & " " & Time()
		rs("tou")=touser
		rs("fromu")=fromuser
		rs("content")=content
		rs.update
		response.write "1"
	else
		response.write "0"
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	session.abandon
%>