user_function.asp

北京华信东方网络办公系统

<%
function GetUserLoginInfo()
sql=" SELECT n_ID, c_UserID, v_LoginName, v_LNEncode, v_LoginPwd, v_IdentityCard, "&_
    " v_PwdQuestion, v_PwdAnswer, c_State, "&_
    " (SELECT v_UserTrueName "&_
    " FROM hxdf_user_info "&_
    " WHERE c_UserID = hxdf_user_login.c_UserID) AS v_UserTrueName "&_
	" FROM hxdf_user_login "&_
	" ORDER BY c_UserID" 
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	rs.Open sql,conn,1,1
	if rs.EOF then
	temp=null
	else
	temp=rs.GetRows
	end if
	rs.Close: set rs=nothing
	GetUserLoginInfo=temp
end function
%>