<% '****************************** '函數：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 %>
