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

2018-09-06 11:55

阅读:464

  <%
******************************
函数: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
%>


评论


亲,登录后才可以留言!