开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > .net编程 > 查看源码
user.aspx
资源名称：论坛源码.rar　[点击查看]
上传用户：scene123
上传日期：2010-02-19
资源大小：3311k
文件大小：11k
源码类别：

.net编程

开发平台：

C#

user.aspx：源码内容
  1. <% @ Page Language="C#" %>
  2. <% @ Import Namespace="System.Text" %>
  3. <script runat="server">
  4. public void Page_Load(Object sender,EventArgs e)
  5. {
  6.         Response.Expires = 0;
  7.         Response.CacheControl = "no-cache";
  9.    if (!Page.IsPostBack)
  10.    {
  11.      DateTime nowtime=DateTime.Now;
  12.      SERVER_NAME.Text=Request.ServerVariables["SERVER_NAME"];
  13.      MachineName.Text=Server.MachineName;
  14.      LOCAL_ADDR.Text=Request.ServerVariables["LOCAL_ADDR"];
  15.      SERVER_PORT.Text=Request.ServerVariables["SERVER_PORT"];
  16.      ServerDateTime.Text= DateTime.Now.ToString();
  17.      SERVER_SOFTWARE.Text=Request.ServerVariables["SERVER_SOFTWARE"];
  18.      ScriptTimeout.Text=Server.ScriptTimeout.ToString();
  19.      APPL_PHYSICAL_PATH.Text=Request.ServerVariables["APPL_PHYSICAL_PATH"];
  21.      char[] de = {';'};
  22.      string allhttp=Request.ServerVariables["HTTP_USER_AGENT"].ToString();
  23.      string[] myFilename = allhttp.Split(de);
  24.      runtime.Text=myFilename[myFilename.Length-1].Replace(")"," ");
  25.      OS.Text=myFilename[2];
  26.      ServerView.Text=myFilename[1];
  27.      PATH_TRANSLATED.Text=Request.ServerVariables["PATH_TRANSLATED"];
  29.      if (checkobj("ADODB.RecordSet")){
  30.         access.Text="已安装";
  31.      }
  32.      else {
  33.         access.Text="未安装";
  34.      }
  36.      if (checkobj("Scripting.FileSystemObject")){
  37.         fso.Text="已安装";
  38.      }
  39.      else {
  40.         fso.Text="未安装";
  41.      }
  42.      
  43.      if (checkobj("CDONTS.NewMail")){
  44.         sendmail.Text="已安装";
  45.      }
  46.      else {
  47.         sendmail.Text="未安装";
  48.      }
  50.     if (checkobj("JMail.SMTPMail")){
  51.         jmail.Text="已安装";
  52.      }
  53.      else {
  54.         jmail.Text="未安装";
  55.      }
  57.      if (checkobj("LyfUpload.UploadFile")){
  58.         lyupload.Text="已安装";
  59.      }
  60.      else {
  61.         lyupload.Text="未安装";
  62.      }
  64.      if (checkobj("Persits.Upload")){
  65.         aspupload.Text="已安装";
  66.      }
  67.      else {
  68.         aspupload.Text="未安装";
  69.      }
  70.      
  71.      if (checkobj("Persits.MailSender")){
  72.         aspemail.Text="已安装";
  73.      }
  74.      else {
  75.         aspemail.Text="未安装";
  76.      }
  78.      if (checkobj("aspcn.Upload")){
  79.         aspcn.Text="已安装";
  80.      }
  81.      else {
  82.         aspcn.Text="未安装";
  83.      }
  84.      
  85.      sessioncount.Text=Session.Contents.Count.ToString();
  86.      appcount.Text=Application.Contents.Count.ToString();
  88.      DateTime passtime=DateTime.Now;
  90.      fast.Text=((passtime-nowtime).TotalMilliseconds).ToString();
  91.    } 
  92. }
  94. bool checkobj(string obj)
  95. {
  96.      try {
  97.         object meobj = Server.CreateObject(obj);
  98.         return(true);
  99.      }
  100.      catch (Exception objex) 
  101.      {
  102.         return(false);
  103.      }
  104. }
  106. public void checkinput(Object sender,EventArgs e)
  107. {
  108.      try {
  109.         string obj =other.Text;
  110. object meobj = Server.CreateObject(obj);
  111.         checkok.Text="检测结果："+obj+" 组件存在";
  112.      }
  113.      catch (Exception objex) 
  114.      {
  115.         checkok.Text="检测结果："+other.Text+" 组件不存在";
  116.      }
  117. }
  119. </script>
  120. <html>
  121. <head>
  122. <title>[互动.NET]ASP.NET探针1.0</title>
  123. <meta http-equiv="Content-Type" content="text/html;charset=gb2312">
  124. <style>
  125. <!--
  126. A       { COLOR: #000000;    FONT-FAMILY: 宋体;    TEXT-DECORATION: none}
  127. A:hover { COLOR: green;    FONT-FAMILY: 宋体;    TEXT-DECORATION: underline}
  128. .A2       { COLOR: green;    FONT-FAMILY: 宋体;    TEXT-DECORATION: none}
  129. .A2:hover { COLOR: #000000;    FONT-FAMILY: 宋体;    TEXT-DECORATION: underline}
  130. body    { font-family: 宋体; font-size: 9pt}
  131. td      { font-family: 宋体; font-size: 9pt}
  132. .input  { BACKGROUND-COLOR: #ffffff;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt}
  133. .backc  { BACKGROUND-COLOR: #3F8805;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt;color:white}
  134. -->
  135. </style>
  136. </head>
  137. <body bgcolor="#EAEAEA" text="#000000">
  138. <div align="center"><font color="#FF0000">[.NET服务器常用参数]</font><br>
  139.   <br>
  140. </div>
  141. <table width=46% height="186" border=0 align="center" cellpadding=0 cellspacing=0 bgcolor="#000000">
  142.   <tr>
  143.     <td> 
  144. <table width=461 height="255" border=0 cellpadding=0 cellspacing=1>
  145. <tr bgcolor="#99CC00" height=18> 
  146.           <td width="146" align=left>&nbsp;服务器名称：</td>
  147.           <td width="329" height="18">&nbsp; 
  148.             <asp:label id="MachineName" runat="server"/></td>
  149.         </tr>
  150.         <tr bgcolor="#99CC00" height=18> 
  151.           <td align=left>&nbsp;服务器IP地址：</td>
  152.           <td height="18">&nbsp; 
  153.             <asp:label id="LOCAL_ADDR" runat="server" /></td>
  154.         </tr>
  155.         <tr bgcolor="#99CC00" height=18> 
  156.           <td align=left>&nbsp;服务器域名：</td>
  157.           <td height="18">&nbsp; 
  158.             <asp:label id="SERVER_NAME" runat="server" />
  159.           </td>
  160.         </tr>
  161. <tr bgcolor="#99CC00" height=18> 
  162.           <td align=left>&nbsp;HTTP访问端口：</td>
  163.           <td height="18">&nbsp; 
  164.             <asp:label id="SERVER_PORT" runat="server" />
  165.           </td>
  166.         </tr>
  167.         <tr bgcolor="#99CC00" height=18> 
  168.           <td align=left>&nbsp;服务器本机时间：</td>
  169.           <td height="18">&nbsp; 
  170.             <asp:label id="ServerDateTime" runat="server" /></td>
  171.         </tr>
  172.         <tr bgcolor="#99CC00" height=18> 
  173.           <td align=left>&nbsp;服务器IIS版本：</td>
  174.           <td height="18">&nbsp; 
  175.             <asp:label id="SERVER_SOFTWARE" runat="server"/></td>
  176.         </tr>
  177.         <tr bgcolor="#99CC00" height=18> 
  178.           <td align=left>&nbsp;服务端脚本执行超时：</td>
  179.           <td height="18">&nbsp; 
  180.             <asp:label id="ScriptTimeout" runat="server"/>
  181.             秒</td>
  182.         </tr>
  183.         <tr bgcolor="#99CC00" height=18> 
  184.           <td align=left>&nbsp;虚拟目录绝对路径：</td>
  185.           <td height="18">&nbsp; 
  186.             <asp:label id="APPL_PHYSICAL_PATH" runat="server"/></td>
  187.         </tr>
  188.         <tr bgcolor="#99CC00" height=18> 
  189.           <td align=left>&nbsp;执行文件绝对路径：</td>
  190.           <td height="18">&nbsp; 
  191.             <asp:label id="PATH_TRANSLATED" runat="server"/></td>
  192.         </tr>
  193.         <tr bgcolor="#99CC00" height=18> 
  194.           <td align=left>&nbsp;服务器浏览器版本：</td>
  195.           <td height="18">&nbsp;
  196.             <asp:label id="ServerView" runat="server" /></td>
  197.         </tr>
  198.         <tr bgcolor="#99CC00" height=18>
  199.           <td align=left>&nbsp;.NET解释引擎版本：</td>
  200.           <td height="18">&nbsp;
  201.             <asp:label id="runtime" runat="server" /></td>
  202.         </tr>
  203.         <tr bgcolor="#99CC00" height=18>
  204.           <td align=left>&nbsp;服务器操作系统：</td>
  205.           <td height="18">&nbsp;
  206.             <asp:label ID="OS" runat="server"/></td>
  207.         </tr>
  208.       </table>
  209.     </td>
  210.   </tr>
  211. </table>
  212. <div align="center"><font color="#FF0000"><br>
  213.   [.NET服务器常用组件]<br>
  214.   <br>
  215.   </font></div>
  216. <table width=46% border=0 align="center" cellpadding=0 cellspacing=0 bgcolor="#000000">
  217.   <tr> 
  218.     <td> 
  220.     <table width=461 height="229" border=0 cellpadding=0 cellspacing=1>
  221.         <form runat="server" >
  222.           <tr bgcolor="#99CC00" height=18> 
  223.             <td width="146" height="18" align=left>&nbsp;Access数据库组件：</td>
  224.             <td width="312" height="18">&nbsp; <asp:label id="access" runat="server" /></td>
  225.           </tr>
  226.           <tr bgcolor="#99CC00" height=18> 
  227.             <td height="18" align=left>&nbsp;FSO文件操作组件：</td>
  228.             <td height="18">&nbsp; <asp:label id="fso" runat="server"/> </td>
  229.           </tr>
  230.           <tr bgcolor="#99CC00" height=18> 
  231.             <td height="18" align=left>&nbsp;CDONTS邮件发送组件：</td>
  232.             <td height="18">&nbsp; <asp:label id="sendmail" runat="server" /></td>
  233.           </tr>
  234.           <tr bgcolor="#99CC00" height=18> 
  235.             <td height="18" align=left>&nbsp;JMAIL邮件发送组件：</td>
  236.             <td height="18">&nbsp; <asp:label id="jmail" runat="server" /></td>
  237.           </tr>
  238.           <tr bgcolor="#99CC00" height=18> 
  239.             <td height="18" align=left>&nbsp;ASPEmail邮件发送组件：</td>
  240.             <td height="18">&nbsp; <asp:label id="aspemail" runat="server" /></td>
  241.           </tr>
  242.           <tr bgcolor="#99CC00" height=18> 
  243.             <td height="18" align=left>&nbsp;LyfUpload上传组件：</td>
  244.             <td height="18">&nbsp; <asp:label id="lyupload" runat="server" /></td>
  245.           </tr>
  246.           <tr bgcolor="#99CC00" height=18> 
  247.             <td height="18" align=left>&nbsp;ASPUpload上传组件：</td>
  248.             <td height="18">&nbsp; <asp:label id="aspupload" runat="server" /></td>
  249.           </tr>
  250.           <tr bgcolor="#99CC00" height=18> 
  251.             <td height="18" align=left>&nbsp;ASPCN上传组件：</td>
  252.             <td height="18">&nbsp; <asp:label id="aspcn" runat="server" /></td>
  253.           </tr>
  254.           <tr bgcolor="#99CC00" height=18> 
  255.             <td height="18" align=left>&nbsp;其他组件安装检测：</td>
  256.             <td height="18">&nbsp; <asp:TextBox id="other" OnTextChanged="checkinput" cssclass="input" runat="server" /> <asp:button id="submit" text="检 测" cssclass="input" runat="server"/></td>
  257.           </tr>
  258.           <tr bgcolor="#99CC00" height=18> 
  259.             <td height="18" colspan="2" align="center"> <font color="#FF0000"><asp:label ID="checkok" runat="server" /></font></td>
  260.           </tr>
  261.         </form>
  262.       </table></td>
  263.   </tr>
  264. </table>
  265. <div align="center"><font color="#FF0000"><br>
  266.   [当前虚拟目录资源状况]</font> <br>
  267.   <br>
  268.   <table width=46% border=0 align="center" cellpadding=0 cellspacing=0 bgcolor="#000000">
  269. <tr> 
  270.       <td> 
  271. <table width=461 height="29" border=0 cellpadding=0 cellspacing=1>
  272. <tr bgcolor="#99CC00" height=18> 
  273.             <td width="158" height="18" align=left>&nbsp;虚拟目录Session总数：</td>
  274.             <td width="300" height="18">&nbsp; <asp:label id="sessioncount" runat="server" />
  275.               个</td>
  276.           </tr>
  277.           <tr bgcolor="#99CC00" height=18> 
  278.             <td height="18" align=left>&nbsp;虚拟目录Application总数：</td>
  279.             <td height="18">&nbsp; <asp:label id="appcount" runat="server"/>
  280.               个</td>
  281.           </tr>
  282.         </table></td>
  283.     </tr>
  284.   </table>
  285.   <br>
  286.   <font color="#FF0000">[.NET虚拟主机速度测试]</font> <br>
  287.   <br>
  288.   <table width=46% border=0 align="center" cellpadding=0 cellspacing=0 bgcolor="#000000">
  289.     <tr> 
  290.       <td> <table width=461 height="29" border=0 cellpadding=0 cellspacing=1>
  291.           <tr bgcolor="#99CC00" height=18> 
  292.             <td width="158" height="18" align=left>&nbsp;执行本页.NET代码时间：</td>
  293.             <td width="300" height="18">&nbsp; <font color="#FF0000">
  294.               <asp:label id="fast" runat="server" />
  295.               </font> 毫秒</td>
  296.           </tr>
  297.           <tr bgcolor="#99CC00" height=18> 
  298.             <td height="18" colspan="2" align=left><br>
  299.               *以下是在各ASP.NET空间探针测试的速度，仅作参考，各位请以实测作准。<br>
  300.               <br>
  301.               [<a href="http://aspx.chinagz.net" target="_blank">互动.NET</a>] 第一次运行速度：240.3456 
  302.               毫秒 平均运行速度：20.55 毫秒<br>
  303.               <br>
  304.               [<a href="http://www.aspx.net.cn" target="_blank">先锋科技免费空间</a>] 
  305.               第一次运行速度：328.125 毫秒 平均运行速度：31.25 毫秒<br>
  306.               <br>
  307.               [<a href="http://www.brinkster.com" target="_blank">brinkster免费空间</a>] 
  308.               第一次运行速度：609.14 毫秒 平均运行速度：50.62 毫秒<br>
  309.               <br>
  310.             </td>
  311.           </tr>
  312.         </table></td>
  313.     </tr>
  314.   </table>
  315.   <br>
  316.   &copy;版权所有2002 <a href="http://aspx.chinagz.net">互动.NET</a> 探针制作：<a href="mailto:webmaster@chinagz.net">小宝.NET</a> 
  317.   QQ：3538150 MSN:webmaster@chinagz.net<br>
  318. </div>
  319. </body>
  320. </html>