asp.net 双向探针:即看服务器又看自己

  1. <%@ Page Language="C#" ContentType="text/html" ResponseEncoding="gb2312" %>
  2. <html>
  3. <head>
  4. <title>asp.net 双向探针:即看服务器又看自己</title>
  5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  6. <style type="text/css">
  7. <!--
  8. .jjy {
  9.     font-size: 12px;
  10.     height:1;
  11.     filter:DropShadow(color=#000000,OffX=1,OffY=1,Positive=1);
  12. }
  13. -->
  14. </style>
  15. </head>
  16. <body topmargin="0">
  17. <div align="center"><form runat="server">
  18.   <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;">
  19.     <tr>
  20.       <td width="260"><div align="center" class="jjy"><font color="#FFFFFF">asp.net<br>
  21.           <font size="+4" face="楷体_GB2312">双向探针<br>
  22.             </font>NetInfo v1.0 Final One</font></div></td>
  23.       <td><div align="center">
  24.           <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;">
  25.             <tr>
  26.               <td valign="top" bgcolor="#6896ca"></td>
  27.             </tr>
  28.           </table>
  29.         </div></td>
  30.     </tr>
  31.   </table>
  32.   <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;">
  33.     <tr> 
  34.       <td width="40%" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">.NET 
  35.           服务器相关信息</font></div></td>
  36.       <td> </td>
  37.     </tr>
  38.     <tr> 
  39.       <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;">
  40.             <tr> 
  41.               <td width="20%" bgcolor="#6896ca"><font size="2">服务器名称:</font></td>
  42.               <td width="30%"><font size="2"
  43.                 <asp:label ID="servername" runat="server" />
  44.                 </font></td>
  45.               <td width="20%" bgcolor="#6896ca"><font size="2">服务器操作系统:</font></td>
  46.               <td width="30%"><font size="2"
  47.                 <asp:label ID="serverms" runat="server" />
  48.                 </font></td>
  49.             </tr>
  50.             <tr> 
  51.               <td width="20%" bgcolor="#6896ca"><font size="2">服务器IP地址:</font></td>
  52.               <td width="30%"><font size="2"
  53.                 <asp:label ID="serverip" runat="server" />
  54.                 </font></td>
  55.               <td width="20%" bgcolor="#6896ca"><font size="2">服务器域名:</font></td>
  56.               <td width="30%"><font size="2"
  57.                 <asp:label ID="server_name" runat="server" />
  58.                 </font></td>
  59.             </tr>
  60.             <tr> 
  61.               <td width="20%" bgcolor="#6896ca"><font size="2">服务器IIS版本:</font></td>
  62.               <td width="30%"><font size="2"
  63.                 <asp:label ID="serversoft" runat="server" />
  64.                 </font></td>
  65.               <td width="20%" bgcolor="#6896ca"><font size="2">.NET解释引擎版本:</font></td>
  66.               <td width="30%"><font size="2"
  67.                 <asp:label ID="servernet" runat="server" />
  68.                 </font></td>
  69.             </tr>
  70.             <tr> 
  71.               <td width="20%" bgcolor="#6896ca"><font size="2">HTTPS:</font></td>
  72.               <td width="30%"><font size="2"
  73.                 <asp:label ID="serverhttps" runat="server" />
  74.                 </font></td>
  75.               <td width="20%" bgcolor="#6896ca"><font size="2">HTTP访问端口:</font></td>
  76.               <td width="30%"><font size="2"
  77.                 <asp:label ID="serverport" runat="server" />
  78.                 </font></td>
  79.             </tr>
  80.             <tr> 
  81.               <td width="20%" bgcolor="#6896ca"><font size="2">服务端脚本执行超时:</font></td>
  82.               <td width="30%"><font size="2"
  83.                 <asp:label ID="serverout" runat="server" />
  84.                 秒</font></td>
  85.               <td width="20%" bgcolor="#6896ca"><font size="2">服务器现在时间:</font></td>
  86.               <td width="30%"><font size="2"
  87.                 <asp:label ID="servertime" runat="server" />
  88.                 </font></td>
  89.             </tr>
  90.             <tr> 
  91.               <td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录绝对路径:</font></td>
  92.               <td colspan="3"><font size="2"
  93.                 <asp:label ID="serverppath" runat="server" />
  94.                 </font><font size="2">  </font></td>
  95.             </tr>
  96.             <tr> 
  97.               <td bgcolor="#6896ca"><font size="2">执行文件绝对路径:</font></td>
  98.               <td colspan="3"><font size="2"
  99.                 <asp:label ID="servernpath" runat="server" />
  100.                 </font></td>
  101.             </tr>
  102.             <tr> 
  103.               <td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录Session总数:</font></td>
  104.               <td width="30%"><font size="2"
  105.                 <asp:label ID="servers" runat="server" />
  106.                 </font></td>
  107.               <td width="20%" bgcolor="#6896ca"><font size="2">虚拟目录Application总数:</font></td>
  108.               <td width="30%"><font size="2"
  109.                 <asp:label ID="servera" runat="server" />
  110.                 </font></td>
  111.             </tr>
  112.           </table></td>
  113.     </tr>
  114.     <tr> 
  115.       <td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">常见组件支持情况</font></div></td>
  116.       <td> </td>
  117.     </tr>
  118.     <tr> 
  119.       <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;">
  120.           <tr> 
  121.             <td width="20%" bgcolor="#6896ca"><font size="2">Access数据库:</font></td>
  122.             <td width="30%"><font size="2"
  123.               <asp:label ID="serveraccess" runat="server" />
  124.               </font></td>
  125.             <td width="20%" bgcolor="#6896ca"><font size="2">FSO:</font></td>
  126.             <td width="30%"><font size="2"
  127.               <asp:label ID="serverfso" runat="server" />
  128.               </font></td>
  129.           </tr>
  130.           <tr> 
  131.             <td width="20%" bgcolor="#6896ca"><font size="2">CDONTS邮件发送:</font></td>
  132.             <td width="30%"><font size="2"
  133.               <asp:label ID="servercdonts" runat="server" />
  134.               </font></td>
  135.             <td width="20%" bgcolor="#6896ca"><font size="2">JMail邮件收发:</font></td>
  136.             <td width="30%"><font size="2"
  137.               <asp:label ID="jmail" runat="server"></asp:label>
  138.               </font></td>
  139.           </tr>
  140.           <tr> 
  141.             <td width="20%" bgcolor="#6896ca"><font size="2">ASPemail发信:</font></td>
  142.             <td width="30%"><font size="2"
  143.               <asp:label ID="aspemail" runat="server"></asp:label>
  144.               </font></td>
  145.             <td width="20%" bgcolor="#6896ca"><font size="2">Geocel发信:</font></td>
  146.             <td width="30%"><font size="2"
  147.               <asp:label ID="geocel" runat="server"></asp:label>
  148.               </font></td>
  149.           </tr>
  150.           <tr> 
  151.             <td width="20%" bgcolor="#6896ca"><font size="2">SmtpMail发信:</font></td>
  152.             <td width="30%"><font size="2"
  153.               <asp:label ID="smtpmail" runat="server"></asp:label>
  154.               </font></td>
  155.             <td width="20%" bgcolor="#6896ca"><font size="2">ASPUpload文件上传:</font></td>
  156.             <td width="30%"><font size="2"
  157.               <asp:label ID="aspup" runat="server"></asp:label>
  158.               </font></td>
  159.           </tr>
  160.           <tr> 
  161.             <td width="20%" bgcolor="#6896ca"><font size="2">ASPCN文件上传:</font></td>
  162.             <td width="30%"><font size="2"
  163.               <asp:label ID="aspcnup" runat="server"></asp:label>
  164.               </font></td>
  165.             <td width="20%" bgcolor="#6896ca"><font size="2">刘云峰的文件上传组件:</font></td>
  166.             <td width="30%"><font size="2"
  167.               <asp:label ID="lyfup" runat="server"></asp:label>
  168.               </font></td>
  169.           </tr>
  170.           <tr> 
  171.             <td width="20%" bgcolor="#6896ca"><font size="2">SoftArtisans文件管理:</font></td>
  172.             <td width="30%"><font size="2"
  173.               <asp:label ID="soft" runat="server"></asp:label>
  174.               </font></td>
  175.             <td width="20%" bgcolor="#6896ca"><font size="2">Dimac文件上传:</font></td>
  176.             <td width="30%"><font size="2"
  177.               <asp:label ID="dimac" runat="server"></asp:label>
  178.               </font></td>
  179.           </tr>
  180.           <tr> 
  181.             <td width="20%" bgcolor="#6896ca"><font size="2">Dimac的图像读写组件:</font></td>
  182.             <td width="30%"><font size="2"
  183.               <asp:label ID="dimacimage" runat="server"></asp:label>
  184.               </font></td>
  185.             <td width="20%" bgcolor="#6896ca"><font size="2">自定义组件查询:</font></td>
  186.             <td width="30%"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
  187.                 <tr> 
  188.                   <td width="72%"><font size="2"
  189.                     <asp:textbox ID="zujian" Rows="1" runat="server" TextMode="SingleLine" style="border-style:solid;border-color:black;border-width:1px"/>
  190.                     </font></td>
  191.                   <td width="28%"><font size="2"
  192.                     <asp:button ID="ckzu" runat="server" Text="检测" OnClick="chkzujian"  style="background-color:#75c1ff;border-color:black;border-width:1px"/>
  193.                     </font></td>
  194.                 </tr>
  195.               </table></td>
  196.           </tr>
  197.           <tr> 
  198.             <td colspan="4"><font size="2">请正确输入你要检测的组件的ProgId或ClassId。<br>
  199.               <font color="#FF0000"
  200.               <asp:label ID="l001" runat="server" />
  201.               </font></font></td>
  202.           </tr>
  203.         </table></td>
  204.     </tr>
  205.     <tr> 
  206.       <td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">浏览者相关信息</font></div></td>
  207.       <td> </td>
  208.     </tr>
  209.     <tr> 
  210.       <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;">
  211.             <tr> 
  212.               <td width="20%" bgcolor="#6896ca"><font size="2">浏览者ip地址:</font></td>
  213.               <td width="30%"><font size="2"
  214.                 <asp:label ID="cip" runat="server"></asp:label>
  215.                 </font></td>
  216.               <td width="20%" bgcolor="#6896ca"><font size="2">浏览者操作系统:</font></td>
  217.               <td width="30%"><font size="2"
  218.                 <asp:label ID="ms" runat="server" /></font></td>
  219.             </tr>
  220.             <tr> 
  221.               <td width="20%" bgcolor="#6896ca"><font size="2">浏览器:</font></td>
  222.               <td width="30%"><font size="2"
  223.                 <asp:label ID="ie" runat="server" /></font></td>
  224.               <td width="20%" bgcolor="#6896ca"><font size="2">浏览器版本:</font></td>
  225.               <td width="30%"><font size="2"
  226.                 <asp:label ID="vi" runat="server" /></font></td>
  227.             </tr>
  228.             <tr> 
  229.               <td width="20%" bgcolor="#6896ca"><font size="2">JavaScript:</font></td>
  230.               <td width="30%"><font size="2"
  231.                 <asp:label ID="javas" runat="server" /></font></td>
  232.               <td width="20%" bgcolor="#6896ca"><font size="2">VBScript:</font></td>
  233.               <td width="30%"><font size="2"
  234.                 <asp:label ID="vbs" runat="server" /></font></td>
  235.             </tr>
  236.             <tr> 
  237.               <td width="20%" bgcolor="#6896ca"><font size="2">JavaApplets:</font></td>
  238.               <td width="30%"><font size="2"
  239.                 <asp:label ID="javaa" runat="server" /></font></td>
  240.               <td width="20%" bgcolor="#6896ca"><font size="2">Cookies:</font></td>
  241.               <td width="30%"><font size="2"
  242.                 <asp:label ID="cookies" runat="server" /></font></td>
  243.             </tr>
  244.             <tr> 
  245.               <td bgcolor="#6896ca"><font size="2">语言:</font></td>
  246.               <td><font size="2"
  247.                 <asp:label ID="cl" runat="server"></asp:label>
  248.                 </font></td>
  249.               <td bgcolor="#6896ca"><font size="2">Frames(分栏):</font></td>
  250.               <td><font size="2"
  251.                 <asp:label ID="frames" runat="server" /></font></td>
  252.             </tr>
  253.           </table></td>
  254.     </tr>
  255.     <tr> 
  256.       <td width="260" bgcolor="#2276b8"><div align="center" class="jjy"><font color="#FFFFFF">执行效率相关情况</font></div></td>
  257.       <td> </td>
  258.     </tr>
  259.     <tr> 
  260.       <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;">
  261.           <tr> 
  262.             <td width="20%" bgcolor="#6896ca"><font size="2">本页执行时间:</font></td>
  263.             <td width="30%"><font size="2"
  264.               <asp:label ID="runtime" runat="server" />
  265.               毫秒</font></td>
  266.             <td width="20%" height="21" bgcolor="#6896ca"><font size="2">1000万次加法循环测试:</font></td>
  267.             <td width="30%"><font size="2"
  268.                <asp:button ID="for1000" runat="server"  OnClick="turn_chk" Text="测试" style="background-color:#75c1ff;border-color:black;border-width:1px"/>
  269.               <asp:label ID="l1000" runat="server"></asp:label>
  270.               </font></td>
  271.           </tr>
  272.           <tr> 
  273.             <td height="34" colspan="4"></td>
  274.           </tr>
  275.         </table></td>
  276.     </tr>
  277.   </table>
  278.   <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;">
  279.     <tr>
  280.       <td height="60" bgcolor="#2276b8"><div align="center" class="jjy"></td>
  281.     </tr>
  282.   </table>
  283. </form>
  284. </div>
  285. </body>
  286. </html>
  287. <script language="C#" runat="server">
  288. public void Page_Load(Object sender,EventArgs e){
  289. Response.Expires = 0;
  290. Response.CacheControl = "no-cache";
  291. if (!Page.IsPostBack){
  292. //取得页面执行开始时间
  293.  DateTime stime=DateTime.Now;
  294. //取得服务器相关信息
  295.  servername.Text=Server.MachineName;
  296.  serverip.Text=Request.ServerVariables["LOCAL_ADDR"];
  297.  server_name.Text=Request.ServerVariables["SERVER_NAME"];
  298.  //以下就是取值不准的地方,因为用了HTTP_USER_AGENT当做服务器信息。
  299.  //1.0 final 使用Environment类属性,彻底解决了这一问题
  300.  //char[] de = {';'};
  301.  //string allhttp=Request.ServerVariables["HTTP_USER_AGENT"].ToString();
  302.  //string[] myFilename = allhttp.Split(de);
  303.  //servernet.Text=myFilename[myFilename.Length-1].Replace(")"," ");
  304. int build, major, minor,revision;
  305. build=Environment.Version.Build;
  306. major=Environment.Version.Major;
  307. minor=Environment.Version.Minor;
  308. revision=Environment.Version.Revision;
  309.  servernet.Text=".NET CLR  "+major +"."+ minor + "." + build+"."+revision;
  310.  serverms.Text=Environment.OSVersion.ToString();
  311.  //服务器端浏览器版本暂时不知道怎么取得,原有不准,故删除
  312.  //1.0 final 修改
  313.  //serverie.Text=myFilename[1];
  314.  serversoft.Text=Request.ServerVariables["SERVER_SOFTWARE"];
  315.  serverport.Text=Request.ServerVariables["SERVER_PORT"];
  316.  serverout.Text=Server.ScriptTimeout.ToString();
  317.  //语言应该是浏览者信息,1.0 final 修改
  318. cl.Text=Request.ServerVariables["HTTP_ACCEPT_LANGUAGE"];
  319.  servertime.Text=DateTime.Now.ToString();
  320.  serverppath.Text=Request.ServerVariables["APPL_PHYSICAL_PATH"];
  321.  servernpath.Text=Request.ServerVariables["PATH_TRANSLATED"];
  322.  serverhttps.Text=Request.ServerVariables["HTTPS"];
  323.  if (chkobj("ADODB.RecordSet")){
  324.  serveraccess.Text="支持";}
  325.  else {serveraccess.Text="不支持";}
  326.  if (chkobj("Scripting.FileSystemObject")){
  327.  serverfso.Text="支持";}
  328.  else {serverfso.Text="不支持";}
  329.  if (chkobj("CDONTS.NewMail")){
  330.  servercdonts.Text="支持";}
  331.  else {servercdonts.Text="不支持";}
  332.  servers.Text=Session.Contents.Count.ToString();
  333.  servera.Text=Application.Contents.Count.ToString();
  334. //0.1版添加的组件验证,原有组件并未转移过来,请原谅。 
  335.  if (chkobj("JMail.SmtpMail")){
  336.  jmail.Text="支持";}
  337.  else {jmail.Text="不支持";}
  338.  if (chkobj("Persits.MailSender")){
  339.  aspemail.Text="支持";}
  340.  else {aspemail.Text="不支持";}
  341.  if (chkobj("Geocel.Mailer")){
  342.  geocel.Text="支持";}
  343.  else {geocel.Text="不支持";}
  344.  if (chkobj("SmtpMail.SmtpMail.1")){
  345.  smtpmail.Text="支持";}
  346.  else {smtpmail.Text="不支持";}
  347.  if (chkobj("Persits.Upload.1")){
  348.  aspup.Text="支持";}
  349.  else {aspup.Text="不支持";}
  350.  if (chkobj("aspcn.Upload")){
  351.  aspcnup.Text="支持";}
  352.  else {aspcnup.Text="不支持";}
  353.  if (chkobj("LyfUpload.UploadFile")){
  354.  lyfup.Text="支持";}
  355.  else {lyfup.Text="不支持";}
  356.  if (chkobj("SoftArtisans.FileManager")){
  357.  soft.Text="支持";}
  358.  else {soft.Text="不支持";}
  359.  if (chkobj("w3.upload")){
  360.  dimac.Text="支持";}
  361.  else {dimac.Text="不支持";}
  362.  if (chkobj("W3Image.Image")){
  363.  dimacimage.Text="支持";}
  364.  else {dimacimage.Text="不支持";}
  365. //取得用户浏览器信息
  366.  HttpBrowserCapabilities bc= Request.Browser;
  367.  ie.Text = bc.Browser.ToString();
  368.  cookies.Text = bc.Cookies.ToString();
  369.  frames.Text = bc.Frames.ToString();
  370.  javaa.Text = bc.JavaApplets.ToString();
  371.  javas.Text = bc.JavaScript.ToString();
  372.  ms.Text = bc.Platform.ToString();
  373.  vbs.Text = bc.VBScript.ToString();
  374.  vi.Text = bc.Version.ToString();
  375.  //取得浏览者ip地址,1.0 final 加入
  376. cip.Text = Request.ServerVariables["REMOTE_ADDR"];
  377. //取得页面执行结束时间
  378.  DateTime etime=DateTime.Now;
  379. //计算页面执行时间
  380.   runtime.Text=((etime-stime).TotalMilliseconds).ToString();
  381. }
  382. }
  383. //组件支持验证代码
  384. bool chkobj(string obj){
  385.     try {
  386.         object meobj = Server.CreateObject(obj);
  387.         return(true);
  388.      }
  389.      catch (Exception objex) 
  390.      {
  391.         return(false);
  392.      }
  393. }
  394. //100万次循环测试,由0.1sn bulid 021203开始加入
  395. public void turn_chk(Object Sender,EventArgs e){
  396. DateTime ontime=DateTime.Now;
  397. int sum=0;
  398. for (int i=1;i<=10000000;i++){
  399. sum=sum+i;
  400. }
  401. DateTime endtime=DateTime.Now;
  402. l1000.Text=((endtime-ontime).TotalMilliseconds).ToString()+"毫秒";
  403. }
  404. //自定义组件检测0.1版加入
  405. public void chkzujian(Object Sender,EventArgs e){
  406. string obj=zujian.Text;
  407.  if (chkobj(obj)){
  408.  l001.Text="检测结果:支持组件"+obj;}
  409.  else {l001.Text="检测结果:不支持组件"+obj;}
  410. }
  411. </script>
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值