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

上一个：asp下去除数组中重复的项的方法
下一个：asp Chr 函数 数字转字母的方法