当前文件：
jimmyNews/Admin/Detect/Default.aspx[20K，2009-6-12 11:45:38]，
打开代码结构图
1
<%...@ Page Language="JScript" ContentType="text/html" ResponseEncoding="UTF-8" Debug="true" aspcompat="true" %>
2
3<script language="JavaScript" runat="server">...
4
function getObjVer(objName)...{
5 try...{ var objTest = Server.CreateObject(objName);}
6 catch(e)...{ if(e.number==-2147221005) return ""; else return "N/A" }
7 try...{ var sObjVer = objTest.Version; }
8 catch(e)...{ return ""; }
9
if(isNaN(parseInt(sObjVer))) return "";
10 objTest = null;
11 return sObjVer;
12
}
13</script>
14<%...
15 Response.Expires = 0;
16 Response.Buffer = true;
17 var tPageStartTime = new Date();
18 var sTheFile, i, j, x, y;
19 sTheFile = Request.ServerVariables("SCRIPT_NAME");
20 var sObjName = Request.Form("sObjName")+"";
21
22 var bShowDetail = false;
23 if(Request.QueryString.ToString().indexOf("ServerDetail")>-1) bShowDetail = true;
24
25
26 var arrObj = new Array(
27 Array( "MSWC.AdRotator", "", 1 ),
28 Array( "MSWC.BrowserType", "", 1 ),
29 Array( "MSWC.NextLink", "", 1 ),
30 Array( "MSWC.Tools", "", 1 ),
31 Array( "MSWC.Status", "", 1 ),
32 Array( "MSWC.Counters", "", 1 ),
33 Array( "IISSample.ContentRotator", "", 1 ),
34 Array( "IISSample.PageCounter", "", 1 ),
35 Array( "MSWC.PermissionChecker", "", 1 ),
36 Array( "WScript.Shell", "", 1 ),
37 Array( "Scripting.FileSystemObject", "", 1 ),
38 Array( "ADODB.Connection", "ActiveX Data Object [ADO]", 1 ),
39 Array( "CDONTS.NewMail", "Collaboration Data Object [CDO]", 1 ),
40
41 Array( "SoftArtisans.FileUp", "SA-FileUp 文件上传", 2 ),
42 Array( "SoftArtisans.FileManager", "SA-FM 文件管理", 2 ),
43 Array( "LyfUpload.UploadFile", "LyfUpload 文件上传", 2 ),
44 Array( "Persits.Upload.1", "ASPUpload 文件上传", 2 ),
45 Array( "w3.upload", "w3 upload 文件上传", 2 ),
46
47 Array( "iismail.iismail.1", "IISemail", 3 ),
48 Array( "JMail.SMTPMail", "w3 Jmail", 3 ),
49 Array( "Persits.MailSender", "ASPemail", 3 ),
50 Array( "SMTPsvg.Mailer", "ASPmail", 3 ),
51 Array( "dkQmail.Qmail", "dkQmail", 3 ),
52 Array( "SmtpMail.SmtpMail.1", "SMTPmail", 3 ),
53 Array( "Geocel.Mailer", "Geocel", 3),
54
55 Array( "SoftArtisans.ImageGen", "SA 的图像读写组件", 4),
56 Array( "W3Image.Image", "Dimac 的图像读写组件", 4)
57 );
58 if(sObjName.length) arrObj[arrObj.length] = Array( sObjName, "", 99 );
59
60%>
61<HTML>
62
63<HEAD>
64<META http-equiv="Content-Type" content="text/HTML; charset=gb2312">
65<META http-equiv="Content-Type" content="text/HTML; charset=gb2312">
66<META http-equiv="Expires" CONTENT="0">
67<META http-equiv="Cache-Control" CONTENT="no-cache">
68<META http-equiv="Pragma" CONTENT="no-cache">
69<TITLE>ASP.net 探针</TITLE>
70<STYLE type=text/css>...
71 body{...}{
72 text-align:center;
73
}
74 BODY,tr {...}{ FONT-SIZE: 9pt; FONT-FAMILY: "Arial", "Helvetica", "sans-serif" }
75 a {...}{ COLOR: #000000; TEXT-DECORATION: none }
76 a:hover {...}{ COLOR: #ff0000; TEXT-DECORATION: none }
77 a.td1o2{...}{ border:3px #333 double; padding-left:5px; padding-right:5px; }
78 a.td2o2{...}{ border:3px #333 double; padding-left:5px; padding-right: 5px; }
79 .tbl1 {...}{
80 BORDER-RIGHT: #3f5294 1px solid;
81 BORDER-TOP: #3f5294 1px solid;
82 FONT-SIZE: 9pt;
83 BORDER-LEFT: #3f5294 1px solid;
84 BORDER-BOTTOM: #3f5294 1px solid;
85 word-break:break-all;
86 }
87 .td1 {...}{
88 border-top-width: 1px;
89 border-right-width: 0px;
90 border-bottom-width: 0px;
91 border-left-width: 1px;
92 border-top-style: solid;
93 border-right-style: solid;
94 border-bottom-style: solid;
95 border-left-style: solid;
96 border-top-color: #FFFFFF;
97 border-right-color: #FFFFFF;
98 border-bottom-color: #FFFFFF;
99 border-left-color: #FFFFFF;
100 }
101 .tbl1o1 {...}{ BACKGROUND-COLOR: #ABB6DC}
102 .td1o1 {...}{ BORDER-RIGHT: #ffffff 0px solid; BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 0px solid; BACKGROUND-COLOR: #E2E7F3}
103 .tr1 {...}{ BACKGROUND-COLOR: #5c72ba}
104 .td1o2 {...}{ BACKGROUND-COLOR: #FFF}
105 .tbl2 {...}{ BORDER: #50A0A0 1px solid; FONT-SIZE: 9pt; }
106 .td2 {...}{ BORDER-RIGHT: #50A0A0 0px solid; BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; COLOR: #308080; BORDER-BOTTOM: #ffffff 0px solid; BACKGROUND-COLOR: #ADCDC2 }
107 .tbl2o1 {...}{ BACKGROUND-COLOR: #50A0A0 }
108 .td2o1 {...}{ BORDER-RIGHT: #ffffff 0px solid; BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 0px solid; BACKGROUND-COLOR: #CDEDE2;}
109 .tr2 {...}{ BACKGROUND-COLOR: #50A0A0 }
110 .td2o2 {...}{ BACKGROUND-COLOR: #DDFDF2 }
111 .PicBar {...}{ background-color: #336699; border: 1px solid #000000; height: 12px;}
112.td1o21 {...}{BACKGROUND-COLOR: #EAEAEA}
113</STYLE>
114<SCRIPT language="JavaScript">...
115 var CCNS_program = "COCOON ASP.net Environment Probe";
116 var CCNS_version = "1.0";
117 document.title += CCNS_program + " v" + CCNS_version;
118</SCRIPT>
119<script language="JavaScript">...
120 window.onload = function()...{document.readyState = 'complete';}; //For netscape!!!
121 function showLoadingAnimation(sDivName,n)...{
122 var a,o;
123 var a = Array('-','\\','|','/');
124 if(!(o=document.getElementById(sDivName))) return ;
125 var i = (isNaN(n)?0:n%4);
126 o.innerHTML = a[i];
127 if(document.readyState=='complete') return ;
128 setTimeout('showLoadingAnimation("'+sDivName+'",'+(i+1)+')',1000);
129 }
130</script>
131<SCRIPT language="JavaScript">...
132 var sErrorMessage = "";
133 function getObjByID(n) ...{
134 //This function was re-written form DreamWeaver v4.01 by Sunrise_Chen.
135 var p,i,x;
136 var d=document;
137 if(!(x=d[n])&&d.all) x=d.all[n];
138 for(i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
139 for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=getObjByID(n,d.layers[i].document);
140 if(!x && d.getElementById) x=d.getElementById(n);
141 return x;
142 }
143
144 function pageInit()...{
145 document.title = CCNS_program + " v" + CCNS_version ;
146 if(!getObjByID("chkAspSupport"))...{
147 oDiv = getObjByID("divAspSupport");
148 if(oDiv)...{
149 oDiv.style.display="none";
150 oDiv.id="DisabledDiv";
151 }
152 oDiv = getObjByID("divNoASP");
153 if(oDiv)...{
154 oDiv.style.display="";
155 oDiv.id="divServer";
156 }
157 }
158
159 //if(oDiv=getObjByID("divStatus")) oDiv.innerHTML = "<font color=blue style='border:solid 1px blue;padding-top:1px;padding-left:5px;padding-right:5px;'>更新信息</font> 感谢你使用COCOON ASP<sup>.net</sup>系统环境探针。 [点这里可以下载本探针]";
160 }
161 window.onerror = new Function("return true");
162 </SCRIPT>
163</HEAD>
164 <BODY onError="return true;">
165 <DIV id="divServerSide">
166
167<DIV id="divAspSupport">
168 <table width="95%" border="0" cellpadding="1" cellspacing="1" class="tbl1" align="center">
169 <tr>
170 <td class="tr1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
171 <tr>
172 <td> <font color="#FFFFFF" face="webdings">8</font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">
173 <strong>服务器端基本信息 </strong>
174 <%... if(!bShowDetail){ %>
175 <!--
176 <a href="<%=sTheFile%>?ServerDetail" style="color:#ffffff">[ <u>更详细的信息</u> ]</a>
177 -->
178 <%... } %>
179 <strong>:::...</strong></font></td>
180 <td align="right"><font color="#D2D8EC">服务器当前时间: <%=DateTime.Now%> </font></td>
181 </tr>
182 </table></td>
183 </tr>
184 <tr>
185 <td bgcolor="#F8F9FC"> <table width="100%" border="0" cellpadding="3" cellspacing="1" class="tbl1o1">
186 <tr>
187 <td width="125" class="td1"><font color="#5C72BA"> </font>项目</td>
188 <td colspan="3" class="td1"><font color="#5C72BA"> </font>值</td>
189 </tr>
190 <tr>
191 <td width="125" nowrap class="td1o1"> 域名 / IP<br> <font color="#666666"> Domain
192 Name</font></td>
193 <td colspan="3" class="td1o2"> <%=Request.ServerVariables("SERVER_NAME")%>
194 / <%=Request.ServerVariables("LOCAL_ADDR")%> [ 端口:<%=Request.ServerVariables("SERVER_PORT")%>
195 ]</td>
196 </tr>
197 <tr>
198 <td width="125" nowrap class="td1o1"> 服务器名<br> <font color="#666666"> Machine
199 Name</font></td>
200 <td width="230" class="td1o2"> <%=Environment.MachineName%></td>
201 <td width="125" nowrap class="td1o1"> 服务器网络域名<br>
202 <font color="#666666"> Domain Name</font></td>
203 <td width="230" class="td1o2"> <span class="td1o21"><%=Environment.UserDomainName.ToString()%></span></td>
204 </tr>
205 <tr>
206 <td width="125" nowrap class="td1o1"> 操作系统<br> <font color="#666666"> Operating
207 System</font></td>
208 <td colspan="3" class="td1o2"> <%=Environment.OSVersion.ToString()%> </td>
209 </tr>
210 <tr>
211 <td width="125" nowrap class="td1o1"> 系统文件夹<br> <font color="#666666"> System
212 Directory</font></td>
213 <td class="td1o2"> <%=Environment.SystemDirectory.ToString()%></td>
214 <td nowrap class="td1o1"> 运行时长<br>
215 <font color="#666666"> TickCount</font></td>
216 <td class="td1o2"> <%=Math.round(Environment.TickCount/600/60)/100%> 小时</td>
217 </tr>
218 <tr>
219 <td width="125" nowrap class="td1o1"> 信息服务软件<br> <font color="#666666"> Server
220 Software</font></td>
221 <td colspan="3" class="td1o2"> <%=Request.ServerVariables("SERVER_SOFTWARE")%>
222 ( .NET RTL 版本: <%=Environment.Version%> ) </td>
223 </tr>
224 <tr>
225 <td width="125" nowrap class="td1o1"> 当前用户<br>
226 <font color="#666666"> Current User</font></td>
227 <td class="td1o2"> <span class="td1o21"><%=Environment.UserName%></span></td>
228 <td nowrap class="td1o1"> 当前文件夹<br> <font color="#666666"> Current
229 Directory</font></td>
230 <td class="td1o2"> <%=Environment.CurrentDirectory.ToString()%></td>
231 </tr>
232 <tr>
233 <td width="125" nowrap class="td1o1"> 完整地址<br> <font color="#666666"> URL
234 & Path</font></td>
235 <td colspan="3" class="td1o2">
236 <%...
237 var sHostName = Request.ServerVariables("HTTP_HOST")
238 var sPostNo = Request.ServerVariables("SERVER_PORT ")
239 var sUrl = Request.ServerVariables("URL")
240 Response.Write("http://" + sHostName + (sPostNo=='80'?'':sPostNo) + sUrl)
241 %>
242 <br> <%=Request.ServerVariables("PATH_TRANSLATED")%> </td>
243 </tr>
244 <tr>
245 <td width="125" nowrap class="td1o1"> 相对路径<br> <font color="#666666"> Path
246 Info</font></td>
247 <td class="td1o2"> <span style="width:230px;height:16px;overflow-y:auto;word-break:break-all">
248 <%=Request.ServerVariables("PATH_INFO")%> </span> </td>
249 <td nowrap class="td1o1"> 物理路径<br> <font color="#666666"> Physical
250 Path</font></td>
251 <td class="td1o2"> <span style="width:230;height:18;overflow-y:auto;">
252 <%=Request.ServerVariables("APPL_PHYSICAL_PATH")%> </span>
253 </td>
254 </tr>
255 <tr>
256 <td width="125" nowrap class="td1o1"> 脚本引擎<br> <font color="#666666"> ScriptEngine</font></td>
257 <td colspan="3" nowrap class="td1o2" id="divScriptEngine"> JScript
258 / <%=ScriptEngineMajorVersion() +"." + ScriptEngineMinorVersion() +"." + ScriptEngineBuildVersion() + " "%></td>
259 </tr>
260 <tr>
261 <td width="125" nowrap class="td1o1"> 脚本超时<br> <font color="#666666"> Script
262 Timeout</font></td>
263 <td nowrap class="td1o2"> <%=Server.ScriptTimeout%> 秒</td>
264 <td nowrap class="td1o1"> 当前会话编号<br>
265 <font color="#666666"> Session ID</font></td>
266 <td class="td1o2"> <%=Session.SessionID%></td>
267 </tr>
268 <tr>
269 <td width="125" nowrap class="td1o1"> 本页命令行<br> <font color="#666666"> Command Line</font></td>
270 <td colspan="3" class="td1o2"> <span style="width:590px;word-break:break-all"><%=Environment.CommandLine%></span>
271 </td>
272 </tr>
273 <tr>
274 <td nowrap class="td1o1"> 服务器变量数<br>
275 <font color="#666666"> Application Count</font></td>
276 <td nowrap class="td1o2"> <%=Application.Contents.Count%></td>
277 <td nowrap class="td1o1"> 会话变量数<br>
278 <font color="#666666"> Session Count</font></td>
279 <td class="td1o2"> <%=Session.Contents.Count%> </td>
280 </tr>
281 </table></td>
282 </tr>
283 <tr>
284 <td height="5" class="tr1"></td>
285 </tr>
286</table><br>
287 <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" class="tbl1">
288 <tr>
289 <td class="tr1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
290 <tr>
291 <td> <font color="#FFFFFF" face="webdings">8</font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">
292 <strong>服务器组件信息 :::...</strong></font></td>
293 <td align="right"> </td>
294 </tr>
295 </table></td>
296 </tr>
297 <tr>
298 <td bgcolor="#F8F9FC"> <table width="100%" border="0" cellpadding="3" cellspacing="1" class="tbl1o1">
299 <tr>
300 <td width="80%" class="td1"> 组件名</td> <td width="10%" align="center" class="td1">支持</td>
301 <td width="10%" align="center" class="td1">版本</td>
302 </tr>
303 <%...
304 var iIndex, sObjName, sObjDetail, sObjType, iIndexCount, bShowUnSupport;
305 var sObjVersion,bObjInstalled;
306 iIndex = 0;
307 iIndexCount = -1;
308 bShowUnSupport = false;
309 for(var i=0;;i++){
310 if(i>=arrObj.length||iIndex!=arrObj[i][2]){
311 if(iIndexCount==0&&iIndex<99){
312 Response.Write(
313 '<tr>\n'+
314 '<td width="80%" bgcolor="#E2E7F7" style="color:#666666;" colspan="3"> <i>( 服务器暂不支持该类组件 )</i></td>\n'+
315 '</tr>\n'
316 );
317 }
318 if(i>=arrObj.length) break;
319 iIndex=arrObj[i][2];
320 iIndexCount=0;
321 switch(iIndex){
322 case 1: sObjType = "IIS自带组件"; break;
323 case 2: sObjType = "常见的第三方文件上传和管理组件"; break;
324 case 3: sObjType = "常见的第三方文件邮件发送组件"; break;
325 case 4: sObjType = "常见的图像处理组件"; break;
326 default: sObjType = "自定义组件"; break;
327 }
328 Response.Write(
329 '<tr>\n'+
330 '<td colspan="3" class="td1o1"> ■<b> '+sObjType+'</b></td>\n'+
331 '</tr>\n'
332 );
333 }
334 sObjName = arrObj[i][0]
335 sObjDetail = arrObj[i][1];
336 bObjInstalled = true;
337 sObjVersion = getObjVer(sObjName);
338 if(sObjVersion=="N/A"){
339 bObjInstalled = false;
340 sObjVersion = "";
341 }
342
343 if(bObjInstalled||iIndex==99){
344 iIndexCount++;
345 Response.Write(
346 '<tr>\n'+
347 '<td width="80%" bgcolor="#E2E7F7">'+
348 ' ' + sObjName + (sObjDetail?' <font color="#666666">( ' + sObjDetail + ' )</font>':'') + '\n' +
349 '</td>\n'+
350 '<td width="10%" align="center" class="td1o2">' + (bObjInstalled?"√":"×") + '</td>\n' +
351 '<td width="10%" align="center" class="td1o2"><span style="width:100%;height:18;overflow-y:auto;">' + sObjVersion + '</span></td>\n' +
352 '</tr>\n'
353 );
354 }
355 }
356 %>
357 <tr>
358 <form method="post" action="<%=sTheFile%>">
359 <td colspan="3" class="td1o2"> 检测其他组件
360 <input name="sObjName" type="text" class="tbl1" id="sObjName" style="border:1px solid #999999;background-color:#eeeeee;width:400px">
361 <input name="Submit" type="submit" value="提交" style="border:1px;background-color:#666666;color:#eeeeee;padding-top:1px;width:70px">
362 </td>
363 </form>
364 </tr>
365 </table></td>
366 </tr>
367 <tr>
368 <td height="5" class="tr1"></td>
369 </tr>
370</table>
371<br>
372 <%... //if(bShowDetail){ %>
373 <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" class="tbl1">
374 <tr>
375 <td class="tr1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
376 <tr>
377 <td> <font color="#FFFFFF" face="webdings">8</font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">
378 <strong>服务器端环境变量列表 :::...</strong></font></td>
379 <td align="right"> </td>
380 </tr>
381 </table></td>
382 </tr>
383 <tr>
384 <td bgcolor="#F8F9FC">
385 <table width="100%" border="0" cellpadding="3" cellspacing="1" class="tbl1o1">
386 <tr>
387 <td width="200" class="td1"><font color="#5C72BA"> </font>项目</td>
388 <td class="td1"><font color="#5C72BA"> </font>值</td>
389 </tr>
390 <%...
391 try{
392 var WshShell;
393 WshShell = Server.CreateObject("WScript.Shell");
394 %>
395 <%... for(x in WshShell.Environment){ %>
396 <tr>
397 <td class="td1o1"> <%=x.substr(0,x.indexOf("="))%>
398 </td>
399 <td class="td1o2" style="padding: 7px;"><%=x.substr(x.indexOf("=")+1)%></td>
400 </tr>
401 <%... } %>
402 <%... }catch(e){}%>
403 <%... for(x in Request.ServerVariables){ %>
404 <tr>
405 <td class="td1o1"> <%=x%>
406 </td>
407 <td class="td1o2" style="padding: 7px;"><%=Request.ServerVariables(x)%></td>
408 </tr>
409 <%... } %>
410 </table></td>
411 </tr>
412 <tr>
413 <td height="5" class="tr1"></td>
414 </tr>
415 </table><br>
416 <%... //} %>
417</DIV>
418
419<table width="750" border="0" cellpadding="3" cellspacing="1" class="tbl1" id="divNoASP" style="display:none">
420 <tr>
421 <td class="tr1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
422 <tr>
423 <td> <font color="#FFFFFF" face="webdings">8</font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">
424 <strong>其它信息 :::...</strong></font></td>
425 <td align="right"><font color="#FFFAF7">Coding by Sunrise_Chen. </font></td>
426 </tr>
427 </table></td>
428 </tr>
429 <tr>
430 <td bgcolor="#F8F9FC"> <table width="100%" border="0" cellpadding="3" cellspacing="1" class="tbl1o1">
431 <tr>
432 <td width="60%" class="td1"> 信息描述</td>
433 </tr>
434 <tr>
435 <td width="60%" class="td1o1" id="divErrorMessage"></td>
436 </tr>
437 </table></td>
438 </tr>
439 <tr>
440 <td height="5" class="tr1"></td>
441 </tr>
442</table>
443
444</DIV>
445
446<!--测试是否支持服务器脚本-->
447<%="<div id='chkAspSupport'></div>"%>
448<SCRIPT language="JavaScript">...
449 pageInit();
450 if(!getObjByID("chkAspSupport"))
451 sErrorMessage += "当前服务器不支持ASP.NET！<A HREF='aspSysCheck.asp'>是否启用COCOON ASP版探针</A>？<br>\n";
452</SCRIPT>
453
454<SCRIPT language="JavaScript">...pageInit();</SCRIPT>
455<SCRIPT id="divOperFrame"></SCRIPT>
456<SCRIPT language="JavaScript">...
457 var i=1;
458 var bOper = false;
459 var timScript=setInterval("getScriptInfomation()",250);
460
461 function getScriptInfomation()...{
462 var oDiv = getObjByID("divOperFrame");
463 if(oDiv.readyState.toLowerCase()!='complete') return;
464 switch(i)...{
465 case 2 :
466 oDiv.src="ccDotNetCheckvbPlugin.aspx";
467 --i;
468 break;
469 case 1 :
470 oDiv.src="ccDotNetCheckvbPlugin.aspx";
471 --i
472 break;
473 case 0 :
474 clearInterval(timScript);
475 break;
476 }
477 }
478</SCRIPT>
479<div style="width:95%;">
480 <hr size="1">
481 <%="本页面执行所需内存：<font color='#990000'><b>" + (Math.round(Environment.WorkingSet/1024/1024*100)/100).ToString() + "</b></FONT> KB."%>
482 <%... var tPageEndTime = new Date(); %>
483 <%="执行时间：约 <font color='#990000'><b>"+((tPageEndTime-tPageStartTime)/1000)+"</b></font> 秒"%>
484</div>
485 </BODY>
486</HTML>
487
打包下载该项目完整源码：jimmyNews(Asp.net新闻系统)1.0源码