|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件将下文存为任一asp文件如lg.asp便可.
注释从***下入手下手
**************************************************
<formmethod="POST">
请输出域名:<inputtype="text"name="DomainName"size="20">
<inputtype="submit"value="提交"name="B1">
<inputtype="reset"value="全体重写"name="B2">
</form>
<%
ifisempty(request("domainname"))ortrim(request("domainname"))=""then
response.end
endif
DomainString=request("domainname")
onerrorresumenext
SetDomainObj=GetObject("WinNT://"&DomainString)
tmp=DomainObj.MinPasswordLengthverifythisisavaliddomain
iferr0then
response.write"<FontColor=Red>毗连域"&domainstring&"堕落!</Font><br>"
response.end
endif
%>
<Tableborder=1cellpadding=4width=90%bgcolor=ffffcc>
<TRAlign=Center>
<TDvalign=top><B><FontSize=5Color=Blue>域<%=DomainString%>内的一切组的列表</B></Font>
</td>
</tr>
</table>
<Tableborder=0cellpadding=5><TR><TD><B><FontSize=3>组名</Font></B></TD><TD><B><FontSize=3>描
述</Font></B></TD></TR>
<%
DomainObj.Filter=Array("group")
ForEachGroupObjInDomainObj
IfGroupObj.Class="Group"Then
strInfo=strInfo&"<TR><TD><B><FontSize=3>"&GroupObj.Name&"</Font></B></TD><TD><B><Font
Size=3>"&GroupObj.Description&"</Font></B></TD></TR>"
EndIf
Next
setDomainObj=Nothing
setGroupObj=Nothing
strInfo=strInfo&"</Table>"
response.writestrInfo&"<br>"
response.write"<fontsize=3><I>"&Now&"</I></Font>"
%>
转自:静态网制造指南www.ckuyun.com楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|