| 服务器的有关参数 | 组件支持有关参数 |
|---|
| 服务器名： |
<%=Request.ServerVariables("SERVER_NAME")%> |
ADO 数据对象： |
<%=Get_ObjInfo("adodb.connection", 1)%> |
| 服务器IP： |
<%=Request.ServerVariables("LOCAL_ADDR")%> |
FSO 文本文件读写： |
<%=Get_ObjInfo("scripting.filesystemobject", 0)%> |
| 服务器端口： |
<%=Request.ServerVariables("SERVER_PORT")%> |
Stream 文件流： |
<%=Get_ObjInfo("Adodb."&"Stream", 0)%> |
| 服务器时间： |
<%=Now()%> |
Microsoft.XMLHTTP： |
<%=Get_ObjInfo("Microsoft.XMLHTTP", 0)%> |
| IIS版本： |
<%=Request.ServerVariables("SERVER_SOFTWARE")%> |
Microsoft.XMLDOM： |
<%=Get_ObjInfo("Microsoft.XMLDOM", 0)%> |
| 服务器操作系统： |
<%=Request.ServerVariables("OS")%> |
CDONTS 虚拟SMTP发信： |
<%=Get_ObjInfo("CDONTS.NewMail", 1)%> |
| 脚本超时时间： |
<%=Server.ScriptTimeout%> 秒 |
LyfUpload 上传组件： |
<%=Get_ObjInfo("LyfUpload.UploadFile", 1)%> |
| 站点物理路径： |
<%=request.ServerVariables("APPL_PHYSICAL_PATH")%> |
AspUpload 上传组件： |
<%=Get_ObjInfo("Persits.Upload.1", 1)%> |
| 服务器CPU数量： |
<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个 |
SA-FileUp 上传组件： |
<%=Get_ObjInfo("SoftArtisans.FileUp", 1)%> |
| 服务器解译引擎： |
<%=ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion %> |
AspJpeg 图像处理组件： |
<%=Get_ObjInfo("Persits.Jpeg",1)%> |
<%
End Sub
Function Get_ObjInfo(obj, ver)
On Error Resume Next
Dim objTest, sTemp
Set objTest = Server.CreateObject(obj)
If Err.Number <> 0 Then
Err.Clear
Get_ObjInfo = "