midp1_gethistory.asp

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

<%
userName=Request("user")
passWord=Request("pass")
friend=Request("fri")
	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='" &userName& "' and pass='" &passWord& "'"
	rs.open sql,Conn,3,3
	if rs.eof<>true then
		rs.close
		sql="Select top 10 id,title,content From sanchat_mss where tou='" &userName& "' and fromu='" &friend& "' and notread='0' order by id desc"
		rs.open sql,Conn,3,3
		if rs.eof<>true then
			rs.movefirst
			response.write "#"
			while rs.eof<>true
				response.write rs("id")
				response.write "#"
				Response.Write rs("content")
				response.write "--"
				response.write rs("title")
				response.write "#"
				rs.Movenext
			wend
		else
			response.write "#"
		end if
	else
		response.write "what are you doing?"
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	session.abandon
%>