<% '****************************** '函数: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 %>
推荐阅读
asp代码实现检测组件是否安装的函数
<% '****************************** '函数:IsObjInstalled(strClassString) '参数:strClassString,组件对象名 '作者:阿里西西 '日期:2007/7/13 '描述:检测组件是否安装 '示例:<%=IsObjInstalled(strClassSt>>>详细阅读
本文标题:asp 实现显示所有的服务器变量值的函数
地址:http://www.17bianji.com/kaifa2/ASP/32493.html
1/2 1