Public Function   UserInfo(U)
Set rs=server.CreateObject("adodb.recordset")
  sql="select *"
  sql=sql&" from User_Info,User_MoreInfo where User_Info.UserID='"+U+"'"
  rs.open sql,conn,1,1
  if not (rs.bof or rs.eof) then
     '基本信息
     Nike=rs("Nike")
  Birth= rs("Birth")
  Town=rs("Town")
  College=rs("College")
  Special=rs("Special")
  Grade=rs("Grade")
  ConSite=rs("ConSite")
  '把基本信息存放到数组中
  dim Uinfos:Uinfos=Array(UserID,Nike,Birth,Town,College,Special,Grade,ConSite)
 '''''''''''''''''''''''''''''''''''''略了
End Function
以上代码是对的，可是有点长了看了不顺眼。。。。。。。。。
最初我是这样的：
  dim Uinfos:Uinfos=Array(UserID,rs("Nike"),rs("Birth"),等等),提示：参数不再有效
 WHY？？？？？？？？？？？？？？？？？？？？？