亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

domainname.asp

<form method="POST">

請輸入域名:<input type="text" name="DomainName" size="20">

<input type="submit" value="提交" name="B1">

<input type="reset" value="重寫" name="B2">

</form>

<%

if isempty(request("domainname")) or trim(request("domainname"))="" then

response.end

end if

DomainString =request("domainname")

on error resume next

Set DomainObj = GetObject("WinNT://" & DomainString)

tmp= DomainObj.MinPasswordLength

' 校驗有效域.

if err<>0 then

response.write "<Font Color=Red>噢,連接域"&domainstring&"出錯!</Font><br>"

response.end

end if

%>

<Table border=1 cellpadding=4 width=90% bgcolor=ffffcc>

<tr Align=Center>

<td valign=top><B><Font Size=5 Color=Blue>域<%=DomainString%>內的所有組的列表</B></Font>

</td>

</tr>

</table>

<Table border=0 cellpadding=5><tr><td><B><Font Size=3>組名</Font></B></td><td><B><Font Size=3>描述</Font></B></td></tr>

<%

DomainObj.Filter = Array("group")

For Each GroupObj In DomainObj

If GroupObj.Class = "Group" Then

strInfo=strInfo&"<tr><td><B><Font Size=3>"&GroupObj.Name&"</Font>

</B></td><td><B><Font Size=3>"&GroupObj.Description&"</Font>

</B></td></tr>"

End If

Next

set DomainObj = Nothing

set GroupObj = Nothing

strInfo=strInfo & "</Table>"

response.write strInfo & "<br>"

response.write "<font size=3><I>" & Now & "</I></Font>"

%>

更多信息請查看IT技術專欄