midp1_getchatserver.asp

j2me lan 聊天 server 基于 servlet 使用向导： ◆数据库管理 访问mssdataadmin目录的 default.asp ◆手机wap下载java客户程序的连接 mi

<%

	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 addr From sanchat_chatservers"
	rs.open sql,Conn,3,3
	if rs.eof<>true then
		response.write rs("addr")
	else
		response.write "3mn.net/wap/mspf/"
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	session.abandon

%>