<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
< http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>iisAdmin</title>
</head>
<body>
<%
Dim xmlFile
xmlFile = server.MapPath("data/1.xml")
Dim objAtr
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=true
xml.ValidateOnParse=False
xml.Load(xmlFile)
If xml.ReadyState>2 Then
if xml.parseError.errorCode <> 0 then
response.write "错误：读取数据失败 <br />"
response.write xml.parseerror.errorcode & "<br />"
response.write xml.parseerror.reason & "<br />"
response.End()
else
end if
Set UserData=xml.getElementsByTagName("IIsWebServer")
number = UserData.length
for i = 1 to number-1
set objAtr = UserData.item(i)
Response.write "<font color=blue >"
IF len(i)=1 Then
Response.write "0" & i
else
response.write i
end IF
Response.write ".</font>"
for ifor = 0 to objAtr.Attributes.length-1
N = objAtr.Attributes.item(ifor).nodeName
IF N = "ServerComment" Then
response.Write " 站点名称：" & objAtr.Attributes.item(ifor).Text
ElseIF N = "ServerAutoStart" Then
Response.Write " 站点状态："
IF objAtr.Attributes.item(ifor).Text = "TRUE" Then
Response.Write "正常"
Else
Response.Write "<font color=red >停止</font>"
End IF
ElseIF N = "ServerBindings" Then
response.Write " 主机头：" & objAtr.Attributes.item(ifor).Text
End IF
Next
Response.Write "<br /> <br />"
Next
End IF
%>
</body>
</html>
