<%

'******************************

'函数：ShowServerVar(VarName)

'参数：VarName，如提供变量名，则显示该变量值，如果参数为空则显示所有变量值

'作者：阿里西西

'日期：2007/7/13

'描述：显示所有的服务器变量值，返回值:对应值的字符串

'示例：<%=ShowServerVar(VarName)%>

'******************************

FunctionShowServerVar(VarName)

dimdest

ifVarName=""then

foreachdestinRequest.ServerVariables

ShowServerVar=ShowServerVar&"<li>Request.ServerVariables("""&dest&""")="&Request.ServerVariables(dest)&"</li>"&vbcrlf

next

else

ShowServerVar=Request.ServerVariables(VarName)

endif

Endfunction

%>