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

　　%>