我要评论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>"
%>
[1]
发表评论