<% '查询指定用户的相关信息 Function GetUserInfo(UserName,FieldName) set GetUserInfoRs=server.CreateObject("adodb.recordset") GetUserInfoSql="select "&FieldName&" from PE_User where UserName='"&UserName&"'" GetUserInfoRs.open GetUserInfoSql,conn,3,1 GetUserInfo=GetUserInfoRs(FieldName) GetUserInfoRs.close set GetUserInfoRs=nothing End Function %>