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