您现在的位置是：网站首页> 编程资料编程资料
asp 实现显示所有的服务器变量值的函数_应用技巧_
2023-05-25
197人已围观
简介 asp 实现显示所有的服务器变量值的函数_应用技巧_
<%
'******************************
'函数：ShowServerVar(VarName)
'参数：VarName，如提供变量名，则显示该变量值，如果参数为空则显示所有变量值
'作者：阿里西西
'日期：2007/7/13
'描述：显示所有的服务器变量值，返回值:对应值的字符串
'示例：<%=ShowServerVar(VarName)%>
'******************************
Function ShowServerVar(VarName)
dim dest
if VarName="" then
for each dest in Request.ServerVariables
ShowServerVar=ShowServerVar&"Request.ServerVariables("""&dest&""")="&Request.ServerVariables(dest)&" "&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&"
next
else
ShowServerVar=Request.ServerVariables(VarName)
end if
End function
%>
