如何判断我的系统支持的ASP的版本？

可能我的提法有一些不妥，可是这是我目前能想到的词啦！呵呵
在ASP的新版本中总会加入一些新的特性。而我怎么知道我的系统是否支持这些新的特性呢？
例如：
98+pws4.0能支持什么版本？在哪儿查看？
2000+iis能支持什么版本？在哪儿查看？
或者说ASP的版本和这些无关？我想可能性较小。呵呵
有哪位大虾可以停下来帮帮我的！谢谢了先！

---------------------------------------------------------------

找到了
就是这东西

1@ Language="VBScript" 

1 Option Explicit 

 1   
 2'####################################   
 3'# #   
 4'# 阿江ASP探针 V1.3 #   
 5'# #   
 6'# 阿江守候 http://www.ajiang.net #   
 7'# 电子邮件 [email protected] #   
 8'# #   
 9'# 转载本程序时请保留这些信息 #   
10'# #   
11'####################################   
12  
13Dim theInstalledObjects(17)   
14theInstalledObjects(0) = "MSWC.AdRotator"   
15theInstalledObjects(1) = "MSWC.BrowserType"   
16theInstalledObjects(2) = "MSWC.NextLink"   
17theInstalledObjects(3) = "MSWC.Tools"   
18theInstalledObjects(4) = "MSWC.Status"   
19theInstalledObjects(5) = "MSWC.Counters"   
20theInstalledObjects(6) = "IISSample.ContentRotator"   
21theInstalledObjects(7) = "IISSample.PageCounter"   
22theInstalledObjects(8) = "MSWC.PermissionChecker"   
23theInstalledObjects(9) = "Scripting.FileSystemObject"   
24theInstalledObjects(10) = "adodb.connection"   
25  
26theInstalledObjects(11) = "SoftArtisans.FileUp"   
27theInstalledObjects(12) = "SoftArtisans.FileManager"   
28theInstalledObjects(13) = "JMail.SMTPMail"   
29theInstalledObjects(14) = "CDONTS.NewMail"   
30theInstalledObjects(15) = "Persits.MailSender"   
31theInstalledObjects(16) = "LyfUpload.UploadFile"   
32theInstalledObjects(17) = "Persits.Upload"   
33  
34'检查组件是否被支持   
35Function IsObjInstalled(strClassString)   
36On Error Resume Next   
37IsObjInstalled = False   
38Err = 0   
39Dim xTestObj   
40Set xTestObj = Server.CreateObject(strClassString)   
41If 0 = Err Then IsObjInstalled = True   
42Set xTestObj = Nothing   
43Err = 0   
44End Function   
45  
46'检查组件版本   
47Function getver(Classstr)   
48On Error Resume Next   
49getver=""   
50Err = 0   
51Dim xTestObj   
52Set xTestObj = Server.CreateObject(Classstr)   
53If 0 = Err Then getver=xtestobj.version   
54Set xTestObj = Nothing   
55Err = 0   
56End Function   

 1<html>
 2<head>
 3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 4<title>ASP探针V1.3－阿江http://www.ajiang.net</title>
 5<style>   
 6<!--   
 7A { COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: none}   
 8A:hover { COLOR: green; FONT-FAMILY: 宋体; TEXT-DECORATION: underline}   
 9.A2 { COLOR: green; FONT-FAMILY: 宋体; TEXT-DECORATION: none}   
10.A2:hover { COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: underline}   
11body { font-family: 宋体; font-size: 9pt}   
12td { font-family: 宋体; font-size: 9pt}   
13.input { BACKGROUND-COLOR: #ffffff;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt}   
14.backc { BACKGROUND-COLOR: #3F8805;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt;color:white}   
15\-->   
16</style>
17</head>
18<body>
19<a href="mailto:[email protected]">阿江</a>改写的ASP探针-<font color="green">V1.3</font><br/><br/>
20<font color="green">是否支持ASP</font>
21<br/>出现以下情况即表示您的空间不支持ASP：   
22<br/>1、访问本文件时提示下载。   
23<br/>2、访问本文件时看到类似“```
24@ Language="VBScript" 
25```”的文字。   
26<br/><br/>
27<font color="green">服务器的有关参数</font>
28<table bgcolor="#3F8805" border="0" cellpadding="0" cellspacing="0" width="450">
29<tr><td>
30<table border="0" cellpadding="0" cellspacing="1" width="450">
31<tr bgcolor="#EEFEE0" height="18">
32<td align="left"> 服务器名</td><td> ```
33=Request.ServerVariables("SERVER_NAME")
34```</td>
35</tr>
36<tr bgcolor="#EEFEE0" height="18">
37<td align="left"> 服务器IP</td><td> ```
38=Request.ServerVariables("LOCAL_ADDR")
39```</td>
40</tr>
41<tr bgcolor="#EEFEE0" height="18">
42<td align="left"> 服务器端口</td><td> ```
43=Request.ServerVariables("SERVER_PORT")
44```</td>
45</tr>
46<tr bgcolor="#EEFEE0" height="18">
47<td align="left"> 服务器时间</td><td> ```
48=now
49```</td>
50</tr>
51<tr bgcolor="#EEFEE0" height="18">
52<td align="left"> IIS版本</td><td> ```
53=Request.ServerVariables("SERVER_SOFTWARE")
54```</td>
55</tr>
56<tr bgcolor="#EEFEE0" height="18">
57<td align="left"> 脚本超时时间</td><td> ```
58=Server.ScriptTimeout
59``` 秒</td>
60</tr>
61<tr bgcolor="#EEFEE0" height="18">
62<td align="left"> 本文件路径</td><td> ```
63=server.mappath(Request.ServerVariables("SCRIPT_NAME"))
64```</td>
65</tr>
66<tr bgcolor="#EEFEE0" height="18">
67<td align="left"> 服务器CPU数量</td><td> ```
68=Request.ServerVariables("NUMBER_OF_PROCESSORS")
69``` 个</td>
70</tr>
71<tr bgcolor="#EEFEE0" height="18">
72<td align="left"> 服务器解译引擎</td><td> ```
73=ScriptEngine &amp;amp; "/"&amp;amp; ScriptEngineMajorVersion &amp;amp;"."&amp;amp;ScriptEngineMinorVersion&amp;amp;"."&amp;amp; ScriptEngineBuildVersion 
74```</td>
75</tr>
76<tr bgcolor="#EEFEE0" height="18">
77<td align="left"> 服务器操作系统</td><td> ```
78=Request.ServerVariables("OS")
79```</td>
80</tr>
81</table>
82</td></tr>
83</table>
84<br/>
85<font color="green">组件支持情况</font>

Dim strClass
strClass = Trim(Request.Form("classname"))
If "" &lt;&gt; strClass then
Response.Write "<br/>您指定的组件的检查结果："
If Not IsObjInstalled(strClass) then
Response.Write "<br/><font color="red">很遗憾，该服务器不支持" &amp; strclass &amp; "组件！</font>"
Else
Response.Write "<br/><font color="green">恭喜！该服务器支持" &amp; strclass &amp; "组件。该组件版本是：" &amp; getver(strclass) &amp; "</font>"
End If
Response.Write "<br/>"
end if

 1<br/>■ IIS自带的ASP组件   
 2<table bgcolor="#3F8805" border="0" cellpadding="0" cellspacing="0" width="450">
 3<tr><td>
 4<table border="0" cellpadding="0" cellspacing="1" width="450">
 5<tr align="center" height="18" style="color:#ffffff">
 6<td width="350">组 件 名 称</td><td width="100">支持及版本</td>
 7</tr>   
 8  
 9  
10\---------------------------------------------------------------   
11  
12IIS 3/PWS for Win95--ASP 1(又叫IDC)   
13IIS 4/PWS 4 for Win98--ASP 2   
14IIS 5--ASP 3</table></td></tr></table></body></html>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus