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

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/2732.html