服务器操作系统 <%=Request.ServerVariables("OS")%><br />
服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%><br />
服务器端口<%=Request.ServerVariables("SERVER_PORT")%><br />
服务器时间<%=now%><br />
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> <br />
IIS版本<%=Request.ServerVariables("SERVER_SOFTWARE")%><br />
脚本超时时间<%=Server.ScriptTimeout%><br />
Application变量<%Response.Write(Application.Contents.Count & "个 ")<br />
遍历Application变量<br />
所有服务器参数<%Response.Write(Request.ServerVariables.Count&"个 ")<br />
本文件实际路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%><br />
<%<br />
On Error Resume Next<br />
dim Item,xTestObj,outstr<br />
if action="showapp" then<br />
Response.Write("<font face='Webdings'>4</font> 遍历Application变量")<br />
set xTestObj=Application.Contents<br />
elseif action="showSession" then<br />
Response.Write("<font face='Webdings'>4</font> 遍历Session变量")<br />
set xTestObj=Session.Contents<br />
elseif action="showvariables" then<br />
Response.Write("<font face='Webdings'>4</font> 遍历服务器参数")<br />
set xTestObj=Request.ServerVariables<br />
elseif action="showwsh" then<br />
Response.Write("<font face='Webdings'>4</font> 遍历环境变量")<br />
dim WshShell<br />
set WshShell = server.CreateObject("WScript.Shell")<br />
set xTestObj=WshShell.Environment<br />
end if<br />
Response.Write "(<a href=WM.Sys_Aspcheck.asp class=white>关闭</a>)"<br />
%><br />
<br />
<br />
<%<br />
If Err then<br />
outstr = "<tr bgcolor=#FFFFFF><td colspan=2>没有符合条件的变量</td></tr>"<br />
err.clear<br />
else<br />
dim w<br />
if action="showwsh" then<br />
for each Item in xTestObj<br />
w=split(Item,"=")<br />
outstr = outstr & "<tr class=td2>"<br />
outstr = outstr & "<td>" & w(0) & "</td>" <br />
outstr = outstr & "<td>" & w(1) & "</td>" <br />
outstr = outstr & "</tr>" <br />
next<br />
else<br />
dim i<br />
for each Item in xTestObj<br />
If Item = "DllConn" Then Item="ConnTypeStr"<br />
outstr = outstr & "<tr class=td2>"<br />
outstr = outstr & "<td>" & Item & "</td>" <br />
outstr = outstr & "<td>"<br />
if IsArray(xTestObj(Item)) then <br />
for i=0 to ubound(xTestObj(Item))-1<br />
outstr = outstr & Left(Replace(Replace(hx.formatvariables(xTestObj(Item)(i)),"<","&lt;"),vbCrLf,""),30) & "<br>"<br />
next<br />
else<br />
outstr = outstr & Left(Replace(Replace(hx.formatvariables(xTestObj(Item)),"<","&lt;"),vbCrLf,""),30)<br />
end if <br />
outstr = outstr & "</td>"<br />
outstr = outstr & "</tr>" <br />
next<br />
end if<br />
end if<br />
Response.Write(outstr) <br />
set xTestObj=nothing<br />
%>