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