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

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