midp1_acceptf.asp

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

<%
userName=Request("user")
passWord=Request("pass")
id=Request("wid")
	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
		newf=rs("friend")
		rs.close
		sql="Select fromu From sanchat_wantf where id=" &id
		rs.open sql,Conn,3,3
		f=rs("fromu")
		newf=newf & f & "#"
		rs.close
		sql="update sanchat_mss set fromu='-521',tou='"&f&"',content='"&userName&"' where fromu='-874' and tou='" &userName& "'"
		conn.execute(sql)
		sql="Delete from sanchat_wantf where id=" &id
		conn.execute(sql)
		sql="update sanchat_users set friend='"&newf&"' where user='" &userName& "' and pass='" &passWord& "'"
		conn.execute(sql)
		response.write "1"
	else
		rs.close
		response.write "0"
	end if
	conn.close
	set rs=nothing
	set conn=nothing
	session.abandon
%>