| 服务器基本信息 |
| 服务器名： |
<%=Request.ServerVariables("SERVER_NAME")%> |
|
| 服务器IP： |
<%=Request.ServerVariables("LOCAL_ADDR")%> |
|
| 端口： |
<%=Request.ServerVariables("SERVER_PORT")%> |
|
| 服务器时间： |
<%=now%> |
|
| IIS版本： |
<%=Request.ServerVariables("SERVER_SOFTWARE")%> |
|
| 脚本解释引擎： |
<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> |
|
| 脚本超时时间： |
<%=Server.ScriptTimeout%> 秒 |
（默认90秒） |
| 本文件绝对路径： |
<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%> |
|
| 客户端IP： |
<%=Request.ServerVariables("REMOTE_ADDR")%> |
|
| 必须支持的组件 |
| ADODB.Connection： |
<%If IsObjInstalled("ADODB.Connection") Then%>
支持√ <%=Server.CreateObject("ADODB.Connection").version%>
<%else%>
不支持×
<%end if%> |
|
| Adodb.Recordset： |
<%If IsObjInstalled("Adodb.Recordset") Then%>
支持√
<%else%>
不支持×
<%end if%> |
|
| FSO组件： |
<%If IsObjInstalled("Scripting.FileSystemObject") then%>
支持√
<%else%>
不支持×
<%end if%> |
影响范围：1，图片重命名、删除；2，查看网站空间使用量
|
| adodb.stream组件： |
<%
on error resume next
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Open
if err.number <> 0 then
err.Clear
%>
不支持×
<%
else
%>
支持√
<%
end if
%> |
影响范围：1，图片上传；2，保存远程图片；3，网页生成静态 |
| MSXML2.XMLHTTP： |
<%If IsObjInstalled("MSXML2.XMLHTTP") Then%>
支持√
<%else%>
不支持×
<%end if%> |
影响范围：1，保存远程图片2，网页生成静态 |
| 建议支持的组件 |
| Aspjpeg组件： |
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Response.Write "到期时间："&Jpeg.Expires
if -2147221005=Err or Jpeg.Expires
不支持×
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from xiaoyuer_setup"
rs.open sql,conn,1,3
rs.update
rs("pic_aspjpeg")=0
rs("font_aspjpeg")=0
rs.update
rs.close
set rs=nothing
%>
<%
else
%>
支持√
<%
end if
Set Jpeg = nothing
%> |
影响范围：1，产品列表缩略图；2，产品图片文字水印 |
| Jmail邮箱组件： |
<%If IsObjInstalled("JMail.Message") Then%>
Jmail4.3邮箱组件 支持√
<%elseIf IsObjInstalled("JMail.SMTPMail") then%>
Jmail4.2邮箱组件 支持√
<%else%>
不支持×
<%end if%> |
影响范围：1，客户留言发邮件通知；2，客户询价发邮件通知 |
| 生成静态网页测试结果 |
|
<%
host="http://demo.shejifang.org"'前台动态地址
folder=""'文件夹
filename="www-shejifang-org.html"'生成静态文件名
Fso_info host,folder,filename
rs.close
set rs=nothing
%> |
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<%
'生成html
Function Fso_info(host,folder,filename)
if SaveFile(""&folder&filename&"",""&host&"") then
response.Write "