<%@ Page Language="C#" ContentType="text/html" ResponseEncoding="gb2312" %>
<%
//---------------------------------------
//程序名称:asp.net双向探针
//File:netinfo.aspx
//Version:0.1 Build:030503
//Written by redwolf
//Copyright (C) 2000-2003 吹雪(TM)创新工作室 All rights reserved.
//Homepage:bbsnow.126.com Email:jpwar@163.com
//本程序代码完全免费,您可以任意复制,修改和传播。但请保留以上信息谢谢合作。
//---------------------------------------
//修改请注明由本程序修改而来,谢谢合作。
//注意:本程序谢绝用于任何商业领域,修改版本不得以任何名义收费。
//虚拟主机商使用本程序请先联系 jpwar@163.com。我将把你的链接加入列表,并第一时间提供最新版本。
//---------------------------------------
//了解本程序最新版本及工作室其他作品情况,请访问:bbsnow.126.com
//---------------------------------------
%>
<html>
<head>
<title>asp.net 双向探针:即看服务器又看自己</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.jjy {
font-size: 12px;
height:1;
filter:DropShadow(color=#000000,OffX=1,OffY=1,Positive=1);
}
-->
</style>
</head>
<body topmargin="0">
<div align="center"><form runat="server">
<table width="760" height="80" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#2276b8" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="260"><div align="center" class="jjy"><font color="#FFFFFF">asp.net<br>
<font size="+4" face="楷体_GB2312">双向探针<br>
</font>NetInfo v1.0 Final One</font></div></td>
<td><div align="center">
<table width="468" height="60" border="0" cellpadding="0" cellspacing="0" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td valign="top" bgcolor="#6896ca"><font size="2">感谢您选择asp.net双向探针。我们会为您提供最好的服务。<br>
您可以从吹雪™工作室(bbsnow.126.com)或其他相关网站获得本程序代码<br>
本位置为预留广告位,使用者可以自行替换内容 </font></td>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="760" border="0" cellpadding="1" cellspacing="1" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="40%" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">.NET
服务器相关信息</font></div></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器名称:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servername" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器操作系统:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverms" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器IP地址:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverip" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器域名:</font></td>
<td width="30%"><font size="2">
<asp:label ID="server_name" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器IIS版本:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serversoft" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">.NET解释引擎版本:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servernet" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">HTTPS:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverhttps" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">HTTP访问端口:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverport" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">服务端脚本执行超时:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverout" runat="server" />
秒</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器现在时间:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servertime" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录绝对路径:</font></td>
<td colspan="3"><font size="2">
<asp:label ID="serverppath" runat="server" />
</font><font size="2"> </font></td>
</tr>
<tr>
<td bgcolor="#6896ca"><font size="2">执行文件绝对路径:</font></td>
<td colspan="3"><font size="2">
<asp:label ID="servernpath" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录Session总数:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servers" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录Application总数:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servera" runat="server" />
</font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">常见组件支持情况</font></div></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">Access数据库:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serveraccess" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">FSO:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverfso" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">CDONTS邮件发送:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servercdonts" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">JMail邮件收发:</font></td>
<td width="30%"><font size="2">
<asp:label ID="jmail" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">ASPemail发信:</font></td>
<td width="30%"><font size="2">
<asp:label ID="aspemail" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">Geocel发信:</font></td>
<td width="30%"><font size="2">
<asp:label ID="geocel" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">SmtpMail发信:</font></td>
<td width="30%"><font size="2">
<asp:label ID="smtpmail" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">ASPUpload文件上传:</font></td>
<td width="30%"><font size="2">
<asp:label ID="aspup" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">ASPCN文件上传:</font></td>
<td width="30%"><font size="2">
<asp:label ID="aspcnup" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">刘云峰的文件上传组件:</font></td>
<td width="30%"><font size="2">
<asp:label ID="lyfup" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">SoftArtisans文件管理:</font></td>
<td width="30%"><font size="2">
<asp:label ID="soft" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">Dimac文件上传:</font></td>
<td width="30%"><font size="2">
<asp:label ID="dimac" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">Dimac的图像读写组件:</font></td>
<td width="30%"><font size="2">
<asp:label ID="dimacimage" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">自定义组件查询:</font></td>
<td width="30%"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="72%"><font size="2">
<asp:textbox ID="zujian" Rows="1" runat="server" TextMode="SingleLine" style="border-style:solid;border-color:black;border-width:1px"/>
</font></td>
<td width="28%"><font size="2">
<asp:button ID="ckzu" runat="server" Text="检测" OnClick="chkzujian" style="background-color:#75c1ff;border-color:black;border-width:1px"/>
</font></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4"><font size="2">请正确输入你要检测的组件的ProgId或ClassId。<br>
<font color="#FF0000">
<asp:label ID="l001" runat="server" />
</font></font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">浏览者相关信息</font></div></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">浏览者ip地址:</font></td>
<td width="30%"><font size="2">
<asp:label ID="cip" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">浏览者操作系统:</font></td>
<td width="30%"><font size="2">
<asp:label ID="ms" runat="server" /></font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">浏览器:</font></td>
<td width="30%"><font size="2">
<asp:label ID="ie" runat="server" /></font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">浏览器版本:</font></td>
<td width="30%"><font size="2">
<asp:label ID="vi" runat="server" /></font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">JavaScript:</font></td>
<td width="30%"><font size="2">
<asp:label ID="javas" runat="server" /></font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">VBScript:</font></td>
<td width="30%"><font size="2">
<asp:label ID="vbs" runat="server" /></font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">JavaApplets:</font></td>
<td width="30%"><font size="2">
<asp:label ID="javaa" runat="server" /></font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">Cookies:</font></td>
<td width="30%"><font size="2">
<asp:label ID="cookies" runat="server" /></font></td>
</tr>
<tr>
<td bgcolor="#6896ca"><font size="2">语言:</font></td>
<td><font size="2">
<asp:label ID="cl" runat="server"></asp:label>
</font></td>
<td bgcolor="#6896ca"><font size="2">Frames(分栏):</font></td>
<td><font size="2">
<asp:label ID="frames" runat="server" /></font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">执行效率相关情况</font></div></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="Black" rules="all" class="ty" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">本页执行时间:</font></td>
<td width="30%"><font size="2">
<asp:label ID="runtime" runat="server" />
毫秒</font></td>
<td width="20%" height="21" bgcolor="#6896ca"><font size="2">1000万次加法循环测试:</font></td>
<td width="30%"><font size="2">
<asp:button ID="for1000" runat="server" OnClick="turn_chk" Text="测试" style="background-color:#75c1ff;border-color:black;border-width:1px"/>
<asp:label ID="l1000" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td height="34" colspan="4"><font size="2">欢迎提供其他主机的执行时间做参考。请写信给我,谢谢!</font></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td height="60" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF" size="2">程序名称:asp.net双向探针
版本:v1.0 Final<br>
版权所有 © 吹雪™创新工作室 bbsnow.126.com 程序制作:正天 EMIAL:jpwar@163.com<br>
如果您要转载或使用本程序,请不要删除以上版权信息,谢谢合作! </font></div></td>
</tr>
</table>
</form>
</div>
</body>
</html>
<script language="C#" runat="server">
public void Page_Load(Object sender,EventArgs e){
Response.Expires = 0;
Response.CacheControl = "no-cache";
if (!Page.IsPostBack){
//取得页面执行开始时间
DateTime stime=DateTime.Now;
//取得服务器相关信息
servername.Text=Server.MachineName;
serverip.Text=Request.ServerVariables["LOCAL_ADDR"];
server_name.Text=Request.ServerVariables["SERVER_NAME"];
//以下就是取值不准的地方,因为用了HTTP_USER_AGENT当做服务器信息。
//1.0 final 使用Environment类属性,彻底解决了这一问题
//char[] de = {';'};
//string allhttp=Request.ServerVariables["HTTP_USER_AGENT"].ToString();
//string[] myFilename = allhttp.Split(de);
//servernet.Text=myFilename[myFilename.Length-1].Replace(")"," ");
int build, major, minor,revision;
build=Environment.Version.Build;
major=Environment.Version.Major;
minor=Environment.Version.Minor;
revision=Environment.Version.Revision;
servernet.Text=".NET CLR "+major +"."+ minor + "." + build+"."+revision;
serverms.Text=Environment.OSVersion.ToString();
//服务器端浏览器版本暂时不知道怎么取得,原有不准,故删除
//1.0 final 修改
//serverie.Text=myFilename[1];
serversoft.Text=Request.ServerVariables["SERVER_SOFTWARE"];
serverport.Text=Request.ServerVariables["SERVER_PORT"];
serverout.Text=Server.ScriptTimeout.ToString();
//语言应该是浏览者信息,1.0 final 修改
cl.Text=Request.ServerVariables["HTTP_ACCEPT_LANGUAGE"];
servertime.Text=DateTime.Now.ToString();
serverppath.Text=Request.ServerVariables["APPL_PHYSICAL_PATH"];
servernpath.Text=Request.ServerVariables["PATH_TRANSLATED"];
serverhttps.Text=Request.ServerVariables["HTTPS"];
if (chkobj("ADODB.RecordSet")){
serveraccess.Text="支持";}
else {serveraccess.Text="不支持";}
if (chkobj("Scripting.FileSystemObject")){
serverfso.Text="支持";}
else {serverfso.Text="不支持";}
if (chkobj("CDONTS.NewMail")){
servercdonts.Text="支持";}
else {servercdonts.Text="不支持";}
servers.Text=Session.Contents.Count.ToString();
servera.Text=Application.Contents.Count.ToString();
//0.1版添加的组件验证,原有组件并未转移过来,请原谅。
if (chkobj("JMail.SmtpMail")){
jmail.Text="支持";}
else {jmail.Text="不支持";}
if (chkobj("Persits.MailSender")){
aspemail.Text="支持";}
else {aspemail.Text="不支持";}
if (chkobj("Geocel.Mailer")){
geocel.Text="支持";}
else {geocel.Text="不支持";}
if (chkobj("SmtpMail.SmtpMail.1")){
smtpmail.Text="支持";}
else {smtpmail.Text="不支持";}
if (chkobj("Persits.Upload.1")){
aspup.Text="支持";}
else {aspup.Text="不支持";}
if (chkobj("aspcn.Upload")){
aspcnup.Text="支持";}
else {aspcnup.Text="不支持";}
if (chkobj("LyfUpload.UploadFile")){
lyfup.Text="支持";}
else {lyfup.Text="不支持";}
if (chkobj("SoftArtisans.FileManager")){
soft.Text="支持";}
else {soft.Text="不支持";}
if (chkobj("w3.upload")){
dimac.Text="支持";}
else {dimac.Text="不支持";}
if (chkobj("W3Image.Image")){
dimacimage.Text="支持";}
else {dimacimage.Text="不支持";}
//取得用户浏览器信息
HttpBrowserCapabilities bc= Request.Browser;
ie.Text = bc.Browser.ToString();
cookies.Text = bc.Cookies.ToString();
frames.Text = bc.Frames.ToString();
javaa.Text = bc.JavaApplets.ToString();
javas.Text = bc.JavaScript.ToString();
ms.Text = bc.Platform.ToString();
vbs.Text = bc.VBScript.ToString();
vi.Text = bc.Version.ToString();
//取得浏览者ip地址,1.0 final 加入
cip.Text = Request.ServerVariables["REMOTE_ADDR"];
//取得页面执行结束时间
DateTime etime=DateTime.Now;
//计算页面执行时间
runtime.Text=((etime-stime).TotalMilliseconds).ToString();
}
}
//组件支持验证代码
bool chkobj(string obj){
try {
object meobj = Server.CreateObject(obj);
return(true);
}
catch (Exception objex)
{
return(false);
}
}
//100万次循环测试,由0.1sn bulid 021203开始加入
public void turn_chk(Object Sender,EventArgs e){
DateTime ontime=DateTime.Now;
int sum=0;
for (int i=1;i<=10000000;i++){
sum=sum+i;
}
DateTime endtime=DateTime.Now;
l1000.Text=((endtime-ontime).TotalMilliseconds).ToString()+"毫秒";
}
//自定义组件检测0.1版加入
public void chkzujian(Object Sender,EventArgs e){
string obj=zujian.Text;
if (chkobj(obj)){
l001.Text="检测结果:支持组件"+obj;}
else {l001.Text="检测结果:不支持组件"+obj;}
}
</script>
<%
//---------------------------------------
//程序名称:asp.net双向探针
//File:netinfo.aspx
//Version:0.1 Build:030503
//Written by redwolf
//Copyright (C) 2000-2003 吹雪(TM)创新工作室 All rights reserved.
//Homepage:bbsnow.126.com Email:jpwar@163.com
//本程序代码完全免费,您可以任意复制,修改和传播。但请保留以上信息谢谢合作。
//---------------------------------------
//修改请注明由本程序修改而来,谢谢合作。
//注意:本程序谢绝用于任何商业领域,修改版本不得以任何名义收费。
//虚拟主机商使用本程序请先联系 jpwar@163.com。我将把你的链接加入列表,并第一时间提供最新版本。
//---------------------------------------
//了解本程序最新版本及工作室其他作品情况,请访问:bbsnow.126.com
//---------------------------------------
%>
<html>
<head>
<title>asp.net 双向探针:即看服务器又看自己</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.jjy {
font-size: 12px;
height:1;
filter:DropShadow(color=#000000,OffX=1,OffY=1,Positive=1);
}
-->
</style>
</head>
<body topmargin="0">
<div align="center"><form runat="server">
<table width="760" height="80" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#2276b8" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="260"><div align="center" class="jjy"><font color="#FFFFFF">asp.net<br>
<font size="+4" face="楷体_GB2312">双向探针<br>
</font>NetInfo v1.0 Final One</font></div></td>
<td><div align="center">
<table width="468" height="60" border="0" cellpadding="0" cellspacing="0" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td valign="top" bgcolor="#6896ca"><font size="2">感谢您选择asp.net双向探针。我们会为您提供最好的服务。<br>
您可以从吹雪™工作室(bbsnow.126.com)或其他相关网站获得本程序代码<br>
本位置为预留广告位,使用者可以自行替换内容 </font></td>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="760" border="0" cellpadding="1" cellspacing="1" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="40%" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">.NET
服务器相关信息</font></div></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器名称:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servername" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器操作系统:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverms" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器IP地址:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverip" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器域名:</font></td>
<td width="30%"><font size="2">
<asp:label ID="server_name" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器IIS版本:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serversoft" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">.NET解释引擎版本:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servernet" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">HTTPS:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverhttps" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">HTTP访问端口:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverport" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">服务端脚本执行超时:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverout" runat="server" />
秒</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">服务器现在时间:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servertime" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录绝对路径:</font></td>
<td colspan="3"><font size="2">
<asp:label ID="serverppath" runat="server" />
</font><font size="2"> </font></td>
</tr>
<tr>
<td bgcolor="#6896ca"><font size="2">执行文件绝对路径:</font></td>
<td colspan="3"><font size="2">
<asp:label ID="servernpath" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录Session总数:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servers" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录Application总数:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servera" runat="server" />
</font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">常见组件支持情况</font></div></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">Access数据库:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serveraccess" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">FSO:</font></td>
<td width="30%"><font size="2">
<asp:label ID="serverfso" runat="server" />
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">CDONTS邮件发送:</font></td>
<td width="30%"><font size="2">
<asp:label ID="servercdonts" runat="server" />
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">JMail邮件收发:</font></td>
<td width="30%"><font size="2">
<asp:label ID="jmail" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">ASPemail发信:</font></td>
<td width="30%"><font size="2">
<asp:label ID="aspemail" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">Geocel发信:</font></td>
<td width="30%"><font size="2">
<asp:label ID="geocel" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">SmtpMail发信:</font></td>
<td width="30%"><font size="2">
<asp:label ID="smtpmail" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">ASPUpload文件上传:</font></td>
<td width="30%"><font size="2">
<asp:label ID="aspup" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">ASPCN文件上传:</font></td>
<td width="30%"><font size="2">
<asp:label ID="aspcnup" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">刘云峰的文件上传组件:</font></td>
<td width="30%"><font size="2">
<asp:label ID="lyfup" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">SoftArtisans文件管理:</font></td>
<td width="30%"><font size="2">
<asp:label ID="soft" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">Dimac文件上传:</font></td>
<td width="30%"><font size="2">
<asp:label ID="dimac" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">Dimac的图像读写组件:</font></td>
<td width="30%"><font size="2">
<asp:label ID="dimacimage" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">自定义组件查询:</font></td>
<td width="30%"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="72%"><font size="2">
<asp:textbox ID="zujian" Rows="1" runat="server" TextMode="SingleLine" style="border-style:solid;border-color:black;border-width:1px"/>
</font></td>
<td width="28%"><font size="2">
<asp:button ID="ckzu" runat="server" Text="检测" OnClick="chkzujian" style="background-color:#75c1ff;border-color:black;border-width:1px"/>
</font></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4"><font size="2">请正确输入你要检测的组件的ProgId或ClassId。<br>
<font color="#FF0000">
<asp:label ID="l001" runat="server" />
</font></font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">浏览者相关信息</font></div></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">浏览者ip地址:</font></td>
<td width="30%"><font size="2">
<asp:label ID="cip" runat="server"></asp:label>
</font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">浏览者操作系统:</font></td>
<td width="30%"><font size="2">
<asp:label ID="ms" runat="server" /></font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">浏览器:</font></td>
<td width="30%"><font size="2">
<asp:label ID="ie" runat="server" /></font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">浏览器版本:</font></td>
<td width="30%"><font size="2">
<asp:label ID="vi" runat="server" /></font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">JavaScript:</font></td>
<td width="30%"><font size="2">
<asp:label ID="javas" runat="server" /></font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">VBScript:</font></td>
<td width="30%"><font size="2">
<asp:label ID="vbs" runat="server" /></font></td>
</tr>
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">JavaApplets:</font></td>
<td width="30%"><font size="2">
<asp:label ID="javaa" runat="server" /></font></td>
<td width="20%" bgcolor="#6896ca"><font size="2">Cookies:</font></td>
<td width="30%"><font size="2">
<asp:label ID="cookies" runat="server" /></font></td>
</tr>
<tr>
<td bgcolor="#6896ca"><font size="2">语言:</font></td>
<td><font size="2">
<asp:label ID="cl" runat="server"></asp:label>
</font></td>
<td bgcolor="#6896ca"><font size="2">Frames(分栏):</font></td>
<td><font size="2">
<asp:label ID="frames" runat="server" /></font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">执行效率相关情况</font></div></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="Black" rules="all" class="ty" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td width="20%" bgcolor="#6896ca"><font size="2">本页执行时间:</font></td>
<td width="30%"><font size="2">
<asp:label ID="runtime" runat="server" />
毫秒</font></td>
<td width="20%" height="21" bgcolor="#6896ca"><font size="2">1000万次加法循环测试:</font></td>
<td width="30%"><font size="2">
<asp:button ID="for1000" runat="server" OnClick="turn_chk" Text="测试" style="background-color:#75c1ff;border-color:black;border-width:1px"/>
<asp:label ID="l1000" runat="server"></asp:label>
</font></td>
</tr>
<tr>
<td height="34" colspan="4"><font size="2">欢迎提供其他主机的执行时间做参考。请写信给我,谢谢!</font></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" style="border-color:Black;border-width:1px;border-style:solid;font-family:Verdana;border-collapse:collapse;">
<tr>
<td height="60" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF" size="2">程序名称:asp.net双向探针
版本:v1.0 Final<br>
版权所有 © 吹雪™创新工作室 bbsnow.126.com 程序制作:正天 EMIAL:jpwar@163.com<br>
如果您要转载或使用本程序,请不要删除以上版权信息,谢谢合作! </font></div></td>
</tr>
</table>
</form>
</div>
</body>
</html>
<script language="C#" runat="server">
public void Page_Load(Object sender,EventArgs e){
Response.Expires = 0;
Response.CacheControl = "no-cache";
if (!Page.IsPostBack){
//取得页面执行开始时间
DateTime stime=DateTime.Now;
//取得服务器相关信息
servername.Text=Server.MachineName;
serverip.Text=Request.ServerVariables["LOCAL_ADDR"];
server_name.Text=Request.ServerVariables["SERVER_NAME"];
//以下就是取值不准的地方,因为用了HTTP_USER_AGENT当做服务器信息。
//1.0 final 使用Environment类属性,彻底解决了这一问题
//char[] de = {';'};
//string allhttp=Request.ServerVariables["HTTP_USER_AGENT"].ToString();
//string[] myFilename = allhttp.Split(de);
//servernet.Text=myFilename[myFilename.Length-1].Replace(")"," ");
int build, major, minor,revision;
build=Environment.Version.Build;
major=Environment.Version.Major;
minor=Environment.Version.Minor;
revision=Environment.Version.Revision;
servernet.Text=".NET CLR "+major +"."+ minor + "." + build+"."+revision;
serverms.Text=Environment.OSVersion.ToString();
//服务器端浏览器版本暂时不知道怎么取得,原有不准,故删除
//1.0 final 修改
//serverie.Text=myFilename[1];
serversoft.Text=Request.ServerVariables["SERVER_SOFTWARE"];
serverport.Text=Request.ServerVariables["SERVER_PORT"];
serverout.Text=Server.ScriptTimeout.ToString();
//语言应该是浏览者信息,1.0 final 修改
cl.Text=Request.ServerVariables["HTTP_ACCEPT_LANGUAGE"];
servertime.Text=DateTime.Now.ToString();
serverppath.Text=Request.ServerVariables["APPL_PHYSICAL_PATH"];
servernpath.Text=Request.ServerVariables["PATH_TRANSLATED"];
serverhttps.Text=Request.ServerVariables["HTTPS"];
if (chkobj("ADODB.RecordSet")){
serveraccess.Text="支持";}
else {serveraccess.Text="不支持";}
if (chkobj("Scripting.FileSystemObject")){
serverfso.Text="支持";}
else {serverfso.Text="不支持";}
if (chkobj("CDONTS.NewMail")){
servercdonts.Text="支持";}
else {servercdonts.Text="不支持";}
servers.Text=Session.Contents.Count.ToString();
servera.Text=Application.Contents.Count.ToString();
//0.1版添加的组件验证,原有组件并未转移过来,请原谅。
if (chkobj("JMail.SmtpMail")){
jmail.Text="支持";}
else {jmail.Text="不支持";}
if (chkobj("Persits.MailSender")){
aspemail.Text="支持";}
else {aspemail.Text="不支持";}
if (chkobj("Geocel.Mailer")){
geocel.Text="支持";}
else {geocel.Text="不支持";}
if (chkobj("SmtpMail.SmtpMail.1")){
smtpmail.Text="支持";}
else {smtpmail.Text="不支持";}
if (chkobj("Persits.Upload.1")){
aspup.Text="支持";}
else {aspup.Text="不支持";}
if (chkobj("aspcn.Upload")){
aspcnup.Text="支持";}
else {aspcnup.Text="不支持";}
if (chkobj("LyfUpload.UploadFile")){
lyfup.Text="支持";}
else {lyfup.Text="不支持";}
if (chkobj("SoftArtisans.FileManager")){
soft.Text="支持";}
else {soft.Text="不支持";}
if (chkobj("w3.upload")){
dimac.Text="支持";}
else {dimac.Text="不支持";}
if (chkobj("W3Image.Image")){
dimacimage.Text="支持";}
else {dimacimage.Text="不支持";}
//取得用户浏览器信息
HttpBrowserCapabilities bc= Request.Browser;
ie.Text = bc.Browser.ToString();
cookies.Text = bc.Cookies.ToString();
frames.Text = bc.Frames.ToString();
javaa.Text = bc.JavaApplets.ToString();
javas.Text = bc.JavaScript.ToString();
ms.Text = bc.Platform.ToString();
vbs.Text = bc.VBScript.ToString();
vi.Text = bc.Version.ToString();
//取得浏览者ip地址,1.0 final 加入
cip.Text = Request.ServerVariables["REMOTE_ADDR"];
//取得页面执行结束时间
DateTime etime=DateTime.Now;
//计算页面执行时间
runtime.Text=((etime-stime).TotalMilliseconds).ToString();
}
}
//组件支持验证代码
bool chkobj(string obj){
try {
object meobj = Server.CreateObject(obj);
return(true);
}
catch (Exception objex)
{
return(false);
}
}
//100万次循环测试,由0.1sn bulid 021203开始加入
public void turn_chk(Object Sender,EventArgs e){
DateTime ontime=DateTime.Now;
int sum=0;
for (int i=1;i<=10000000;i++){
sum=sum+i;
}
DateTime endtime=DateTime.Now;
l1000.Text=((endtime-ontime).TotalMilliseconds).ToString()+"毫秒";
}
//自定义组件检测0.1版加入
public void chkzujian(Object Sender,EventArgs e){
string obj=zujian.Text;
if (chkobj(obj)){
l001.Text="检测结果:支持组件"+obj;}
else {l001.Text="检测结果:不支持组件"+obj;}
}
</script>