gusucode.com > CRM源码带手机版ASP源码程序 > Plugin/WebIM/Data/GetUserInfo.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file = "config.asp"-->
<!--#include file = "function.asp"-->
<!--#include file = "cmd.asp"-->
<%
	Response.Expires = WebCachTime
	Response.ContentType = "text/xml"
	Response.Charset="utf-8"
	id = Request.QueryString("id")
	If id = "" Then Response.End
	Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>")
	Response.Write("<list>")
	Call CheckLogin()
	Call DataBegin()
	sql = "select a.isblocked,a.groupid as gid,a.customname as cname,b.* from userfriend a inner join [user] b on a.friendid = b.userid where b.userid ="&id&" and a.userid = "&Session("userid")
	oRs.Open sql,oConn,1,1
	If Not(oRs.Bof And oRs.Eof) Then
		Response.Write("<item>")
		Call OutNode("f",oRs("userface"))
		Call OutNode("id",oRs("userid"))
		Call OutNode("n",oRs("username"))
		Call OutNode("e",oRs("useremail"))
		Call OutNode("sn",oRs("usersign"))
		Call OutNode("s",oRs("userstatus"))
		Call OutNode("g",oRs("gid"))
		Call OutNode("b",oRs("isblocked"))
		Call OutNode("cn",oRs("cname"))
		Call OutNode("u",oRs("usergender"))
		Response.Write("</item>")
	End If
	oRs.Close()
	Set oRs = Nothing
	Call DataEnd()
	Response.Write("</list>")
%>