<% '****************************** '函数：ShowServerVar(VarName) '参数：VarName，如提供变量名，则显示该变量值，如果参数为空则显示所有变量值 '作者：阿里西西 '日期：2007/7/13 '描述：显示所有的服务器变量值，返回值:对应值的字符串 '示例：<%=ShowServerVar(VarName)%> '****************************** Function ShowServerVar(VarName)    dim dest    if VarName="" then       for each dest in Request.ServerVariables          ShowServerVar=ShowServerVar&"<li>Request.ServerVariables("""&dest&""")="&Request.ServerVariables(dest)&"</li>"&vbcrlf       next    else       ShowServerVar=Request.ServerVariables(VarName)    end if End function %>