-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathAspxCheck.aspx
424 lines (348 loc) · 12.5 KB
/
AspxCheck.aspx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
<%
'乘风asp.net探针
'作者QQ：178575
'作者EMail：[email protected]
'作者网站：http://www.qqcf.com
%>
<%Response.ContentEncoding = System.Text.Encoding.GetEncoding("gb2312")%>
<%@ 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()
If Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" And Request.ServerVariables("SERVER_PORT")<>80 Then
ServerIp.text = Request.ServerVariables("LOCAL_ADDR") & " [共享IP,对外IP实际是 "&Request.ServerVariables("REMOTE_ADDR")&" 通过端口映射实现服务器端口和Url里的端口不一样]"
Else
ServerIp.text = Request.ServerVariables("LOCAL_ADDR") & " [独立IP]"
End if
ServerDomain.text=Request.ServerVariables("SERVER_NAME")
ServerPort.text = Request.ServerVariables("SERVER_PORT")
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
If Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" Then
Brower_IP.text=Request.ServerVariables("REMOTE_ADDR")
Else
Brower_IP.text=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
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/down.htm' 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>"
System.IO.File.Delete(System.Web.HttpContext.Current.Server.MapPath("AspxCheck_Temp.htm"))
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.2</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.2</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="ServerPort" 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>