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

【编者按】：网学网ASP为您提供asp 实现显示所有的服务器变量值的函数参考，解决您在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
%>