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

% ''****************************** ''函数:ShowServerVar(VarName) ''参数:VarName,如提供变量名,则显示该变量值,如果参数为空则显示所有变量值 ''作者:阿里西西 ''日期:2007/7/13 ''描述:显示所有的服务器变量值,返回值:对应值的字符串 ''示例:%=ShowServerVar(VarName)% ''****************************** FunctionShowServerVar(VarN

作者: 来源: 时间: 17-11-23 15:27:12

<%
''******************************
''函数: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
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们