<% '乘风asp.net探针 '作者QQ:178575 '作者EMail:yliangcf@163.com '作者网站:http://www.qqcf.com %> <%@ Import Namespace="System" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="Microsoft.VisualBasic.CompilerServices" %> <Script Language="VB" Runat="Server"> Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Sw As StreamWriter Dim Bc as HttpBrowserCapabilities Dim Flag as Boolean Dim DownStr As String ServerName.text= Server.MachineName.ToString() ServerVer.text=Environment.OSVersion.ToString() ServerIp.text=Request.ServerVariables("LOCAL_ADDR") ServerDomain.text=Request.ServerVariables("SERVER_NAME") ServerOutTime.text=Server.ScriptTimeout.ToString() ServerNow.text=DateTime.Now.ToString() ServerSessionTotal.text=Session.Contents.Count.ToString() ServerApplicationTotal.text=Application.Contents.Count.ToString() NetVer.text= System.Environment.Version.ToString() IISVer.text= Request.ServerVariables("SERVER_SOFTWARE") ProPath.text= Request.ServerVariables("PATH_INFO") ProPath_2.text= Request.ServerVariables("APPL_PHYSICAL_PATH") ServerRunTime.text=Math.round(Environment.TickCount/600/60)/100 Bc= Request.Browser Brower_IP.text=Request.ServerVariables("REMOTE_ADDR") Brower_OSVer.text=Bc.Platform.ToString() Brower_Brower.text=Bc.Browser.ToString() Brower_BrowerVer.text=Bc.Version.ToString() Brower_Javscript.text=Bc.JavaScript.ToString() Brower_VBScript.text=Bc.VBScript.ToString() Brower_JavaApplets.text=Bc.JavaApplets.ToString() Brower_Cookies.text=Bc.Cookies.ToString() Brower_Language.text=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") Brower_Frame.text=Bc.Frames.ToString() DownStr=" [<a href="http://www.qqcf.com/?action=down" mce_href="http://www.qqcf.com/?action=down" target=_blank style="font-size:12px;color:#ff0000;text-decoration:underline" mce_style="font-size:12px;color:#ff0000;text-decoration:underline">下载</a>]" If ObjCheck("ADODB.RecordSet") Then Obj_Access.Text="支持" & ObjVer("ADODB.RecordSet") Else Obj_Access.Text="不支持" End If If ObjCheck("Scripting.FileSystemObject") Then Obj_Fso.Text="支持" Else Obj_Fso.Text="不支持" End If If ObjCheck("JMail.SmtpMail") Then Obj_Jmail.Text="支持,版本:" & ObjVer("JMail.SmtpMail") & DownStr Else Obj_Jmail.Text="不支持" & DownStr End If If ObjCheck("CDONTS.NewMail") Then Obj_Cdonts.Text="支持,版本:" & ObjVer("CDONTS.NewMail") Else Obj_Cdonts.Text="不支持" End If If ObjCheck("Persits.Jpeg") Then Obj_AspJpeg.Text="支持,版本:" & ObjVer("Persits.Jpeg") & DownStr Else Obj_AspJpeg.Text="不支持" & DownStr End If If ObjCheck("Persits.Upload.1") Then Obj_AspUpload.Text="支持,版本:" & ObjVer("Persits.Upload.1") & DownStr Else Obj_AspUpload.Text="不支持" & DownStr End If If ObjCheck("ADODB.RecordSet") Then Obj_Access.Text="支持" Else Obj_Access.Text="不支持" End If Try Sw = New StreamWriter(Server.MapPath("AspxCheck_Temp.htm"), False, System.Text.Encoding.GetEncoding("GB2312")) Sw.WriteLine(Now()) Sw.Close() Flag = True Catch ex As Exception Flag = False End Try If Flag=True Then Obj_Write.Text="<b>支持</b>" Else Obj_Write.Text="<font color='ff0000'><b>不支持</b></font>" End If systitle.text=" <strong style="font-size:18pt" mce_style="font-size:18pt">乘风ASP<SUP><font size='2' style="font-size:12pt" mce_style="font-size:12pt">.net</font></SUP> 探针 V1.1</strong><br><a href="http://www.qqcf.com" mce_href="http://www.qqcf.com" target=_blank style="font-size:12px;color:#ff0000;text-decoration:underline" mce_style="font-size:12px;color:#ff0000;text-decoration:underline">Powered By CF</a>" End Sub Private Sub SelfObjChk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim ObjName As String ObjName = Trim(SelObj.value) If ObjCheck(ObjName) Then Obj_SelfObj.Text="支持,版本:" & ObjVer(ObjName) Else Obj_SelfObj.Text="不支持" End If End Sub Private Function ObjCheck(ByVal a As String) As Boolean Dim b As Boolean Try Dim c = Server.CreateObject(a) b = True Catch exception1 As Exception ProjectData.SetProjectError(exception1) b = False ProjectData.ClearProjectError End Try Return b End Function Private Function ObjVer(ByVal a As String) As string Dim b As string Try Dim c = Server.CreateObject(a) b = c.version Catch exception1 As Exception ProjectData.SetProjectError(exception1) ProjectData.ClearProjectError End Try Return b End Function </Script> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"> <html><head><title>乘风asp.net探针 V1.1</title> <meta http-equiv=content-type content="text/html; charset=gb2312"> <mce:style type="text/css"><!-- body {text-align: left; font-family:Arial; margin:0; padding:0; background: #FFF; font-size:12px; color:#333333;} table{font-size:12px;} .tb_1{ background-color:#ffffff; border:1px solid #C9DDF0; margin:5px 0px 5px 5px; width:768px; float:left; } .tb_2{ width:980px; background-color:#ffffff; border:1px solid #C9DDF0; margin:15px auto; clear:both; } .tb_2 td{border-bottom: 1px dotted #C9DDF0;padding-left:6px;} .tb_2_b{ width:980px; background-color:#ffffff; border:1px solid #C9DDF0; margin:0px auto; clear:both; } .tb_3{ background-color:#ffffff; border:1px solid #C9DDF0; margin:15px auto; padding:5px; clear:both; } .tr_1{ padding-left:5px; padding-top:5px; font-weight:bold; font-size:14px; height:24px; text-align:center; background-color:#F3F9FE; } .tr_2{ text-align:center; } .td_1{ text-align:left; } .td_2{ text-align:center; } .td_3{ text-align:right; } .right{ display:inline; float:right } .clear{ clear:both; height:0px; } .wrap{ width:950px;; margin:0 auto; } .bord{ border:#b0bec7 1px solid; } --></mce:style><style type="text/css" mce_bogus="1">body {text-align: left; font-family:Arial; margin:0; padding:0; background: #FFF; font-size:12px; color:#333333;} table{font-size:12px;} .tb_1{ background-color:#ffffff; border:1px solid #C9DDF0; margin:5px 0px 5px 5px; width:768px; float:left; } .tb_2{ width:980px; background-color:#ffffff; border:1px solid #C9DDF0; margin:15px auto; clear:both; } .tb_2 td{border-bottom: 1px dotted #C9DDF0;padding-left:6px;} .tb_2_b{ width:980px; background-color:#ffffff; border:1px solid #C9DDF0; margin:0px auto; clear:both; } .tb_3{ background-color:#ffffff; border:1px solid #C9DDF0; margin:15px auto; padding:5px; clear:both; } .tr_1{ padding-left:5px; padding-top:5px; font-weight:bold; font-size:14px; height:24px; text-align:center; background-color:#F3F9FE; } .tr_2{ text-align:center; } .td_1{ text-align:left; } .td_2{ text-align:center; } .td_3{ text-align:right; } .right{ display:inline; float:right } .clear{ clear:both; height:0px; } .wrap{ width:950px;; margin:0 auto; } .bord{ border:#b0bec7 1px solid; }</style> </HEAD> <BODY> <form id="Form1" method="post" runat="server"> <table class="tb_2_b"> <tr class="tr_1"> <td><asp:label ID="systitle" runat="server" /></td> </tr> </table> <table class="tb_2"> <tr class="tr_1"> <td colspan="2">写入权限</td> </tr> <tr> <td>空间是否支持写入:</td> <td><asp:label ID="obj_write" runat="server" /><br /> <br /> 写入权限说明: 有些空间商的空间看起来用一些asp.net探针运行正常,其实只是验证了asp.net对空间的读取权限,asp.net的写入权限可能没有的,要是不支持差不多所有使用的Access数据库的asp.net程序用不了,也生成不了静态页面。。如果写入权限为支持的话基本这个空间才可以正常使用。</td> </tr> <tr class="tr_1"> <td colspan="2">基本信息</td> </tr> <tr> <td >服务器名称:</td> <td><asp:label ID="ServerName" runat="server" /></td> </tr> <tr> <td width="150" >操作系统 :</td> <td><asp:label ID="ServerVer" runat="server" /></td> </tr> <tr> <td >服务器IP:</td> <td><asp:label ID="ServerIP" runat="server" /></td> </tr> <tr> <td >服务器域名:</td> <td><asp:label ID="ServerDomain" runat="server" /></td> </tr> <tr> <td >服务端脚本执行超时:</td> <td><asp:label ID="ServerOutTime" runat="server" />秒</td> </tr> <tr> <td >服务器现在时间:</td> <td><asp:label ID="ServerNow" runat="server" /></td> </tr> <tr> <td >Session总数:</td> <td><asp:label ID="ServerSessionTotal" runat="server" /></td> </tr> <tr> <td >Application总数:</td> <td><asp:label ID="ServerApplicationTotal" runat="server" /></td> </tr> <tr> <td>IIS版本 :</td><td><asp:label ID="IISVer" runat="server" /></td> </tr> <tr> <td>.NET Framework 版本 :</td><td><asp:label ID="NetVer" runat="server" /></td> </tr> <tr> <td>相对路径 :</td><td><asp:label ID="ProPath" runat="server" /></td> </tr> <tr> <td>物理路径 :</td><td><asp:label ID="ProPath_2" runat="server" /></td> </tr> <tr> <td>运行时间 :</td><td><asp:label ID="ServerRunTime" runat="server" />小时</td> </tr> <tr class="tr_1"> <td colspan="2">系统组件信息</td> </tr> <tr> <td>Access数据库组件 :</td><td><asp:label ID="Obj_Access" runat="server" /></td> </tr> <tr> <td>FSO文件操作组件 :</td><td><asp:label ID="Obj_Fso" runat="server" /></td> </tr> <tr class="tr_1"> <td colspan="2">邮件组件信息</td> </tr> <tr> <td>JMAIL邮件发送组件 :</td><td><asp:label ID="Obj_Jmail" runat="server" /></td> </tr> <tr> <td>CDONTS邮件发送组件 :</td><td><asp:label ID="Obj_Cdonts" runat="server" /></td> </tr> <tr class="tr_1"> <td colspan="2">图像组件</td> </tr> <tr> <td>AspJpeg组件 :</td><td><asp:label ID="Obj_AspJpeg" runat="server" /></td> </tr> <tr class="tr_1"> <td colspan="2">文件上传组件</td> </tr> <tr><td>ASPUpload上传组件 :</td><td><asp:label ID="obj_aspupload" runat="server" /></td> </tr> <tr class="tr_1"> <td colspan="2">自定义组件</td> </tr> <tr><td>自定义组件查询:</td><td><INPUT TYPE="text" NAME="SelObj" id="SelObj" runat="server"> <asp:button id="SelfObjChk" runat="server" Text="检测" OnClick="SelfObjChk_Click"></asp:button><asp:label ID="Obj_SelfObj" runat="server" /> 此处必须使用组件的ProgId或ClassId来检测</td> </tr> <tr class="tr_1"> <td colspan="2">浏览者信息</td> </tr> <tr><td>浏览者ip地址:</td> <td> <asp:label ID="Brower_IP" runat="server" /> </td> </tr> <tr><td>浏览者操作系统:</td> <td> <asp:label ID="Brower_OSVer" runat="server" /> </td> </tr> <tr><td>浏览器:</td> <td> <asp:label ID="Brower_Brower" runat="server" /> </td> </tr> <tr><td>浏览器版本:</td> <td> <asp:label ID="Brower_BrowerVer" runat="server" /> </td> </tr> <tr><td>JavaScript:</td> <td> <asp:label ID="Brower_Javscript" runat="server" /> </td> </tr> <tr><td>VBScript:</td> <td> <asp:label ID="Brower_VBScript" runat="server" /> </td> </tr> <tr><td>JavaApplets:</td> <td> <asp:label ID="Brower_JavaApplets" runat="server" /> </td> </tr> <tr><td>Cookies:</td> <td> <asp:label ID="Brower_Cookies" runat="server" /> </td> </tr> <tr><td>语言:</td> <td> <asp:label ID="Brower_Language" runat="server" /> </td> </tr> <tr><td>Frames(分栏):</td> <td> <asp:label ID="Brower_Frame" runat="server" /> </td> </tr> </table> </form>