代码如下
Response.Write "<SCRIPT language=JavaScript>"
Response.Write "OutBarFolder1=new Array("
Response.Write "'Online("&Application("OfficeOnlineUserCount")&")',"     '*****************************
    user=split(application("OfficeOnlineUser"),",") '&raquo;&ntilde;&micro;&Atilde;&Ocirc;&Uacute;&Iuml;&szlig;&Oacute;&Atilde;&raquo;§&Aacute;&ETH;±í
    for i=1 to ubound(user)-1 '&raquo;&ntilde;&micro;&Atilde;·&Ccedil;&iquest;&Otilde;&micro;&Auml;&Ocirc;&Uacute;&Iuml;&szlig;&Oacute;&Atilde;&raquo;§&Aacute;&ETH;±í
     UserFace=GetUserFace(user(i))
     UserName=GetUserName(user(i))
      Response.Write "'face/"&UserFace&".gif','"&UserName&"','SendInfo.asp?UserId="&user(i)&"','',1,"
    next
        UserFace=GetUserFace(user(i))
     UserName=GetUserName(user(i))
      Response.Write "'face/"&UserFace&".gif','"&UserName&"','SendInfo.asp?UserId="&user(i)&"','',1);"
    '********************