服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp 实现显示所有的服务器变量值的函数

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

2019-10-12 10:43阿里西西 ASP教程

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

  1. <%  
  2. '******************************  
  3. '函数:ShowServerVar(VarName)  
  4. '参数:VarName,如提供变量名,则显示该变量值,如果参数为空则显示所有变量值  
  5. '作者:阿里西西  
  6. '日期:2007/7/13  
  7. '描述:显示所有的服务器变量值,返回值:对应值的字符串  
  8. '示例:<%=ShowServerVar(VarName)%>  
  9. '******************************  
  10. Function ShowServerVar(VarName)  
  11.    dim dest  
  12.    if VarName="" then  
  13.       for each dest in Request.ServerVariables  
  14.          ShowServerVar=ShowServerVar&"<li>Request.ServerVariables("""&dest&""")="&Request.ServerVariables(dest)&"</li>"&vbcrlf  
  15.       next  
  16.    else  
  17.       ShowServerVar=Request.ServerVariables(VarName)  
  18.    end if  
  19. End function  
  20. %> 

延伸 · 阅读

精彩推荐