asp 实现显示所有的服务器变量值的函数
程序员文章站
2022-05-28 16:20:22
<% '****************************** '函数:showservervar(varname) '参数:varname,如提供变量名,则显...
<%
'******************************
'函数: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
%>
'******************************
'函数: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
%>
上一篇: 高压锅怎么煮红薯,这样煮红薯更好吃
下一篇: 吃素会瘦吗,吃什么会让自己瘦