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
%>