asp 实现显示所有的服务器变量值的函数

<%
'******************************
'函数：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
%>