<%
'乘风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' target=_blank 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'>乘风ASP<SUP><font size='2' style='font-size:12pt'>.net</font></SUP> 探针 V1.1</strong><br><a href=http://www.qqcf.com target=_blank 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">
<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;
}
</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>
评论