<%
'查询指定用户的相关信息
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
%>