仓酷云

标题: ASP教程之一个使用adsi失掉局域网信息的asp文件 [打印本页]

作者: 第二个灵魂 时间: 2015-1-16 22:30
标题: ASP教程之一个使用adsi失掉局域网信息的asp文件
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。<%@Language=VBScript%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
<title>ADSIDomainbrowser</title>
</HEAD>
<BODY>


<%
sDomain=Request("Domain")
sComputer=Request("Computer")
sGroup=Request("Group")
sUser=Request("User")

iflen(trim(sUser))>0then
SetobjGroup=GetObject("WinNT://"&sDomain&"/"&sComputer&"/"&sUser)
ForEachobjUserInobjGroup.Groups
Response.WriteobjUser.Name&"<br>"&vbCrLf
Next
Response.Write"</table><p><ahref=adsi.asp?Domain="&sDomain&"&Computer="&sComputer&">Backto"&sComputer&"</a></p>"
elseiflen(trim(sGroup))>0then
SetobjGroup=GetObject("WinNT://"&sDomain&"/"&sComputer&"/"&sGroup)
ForEachobjUserInobjGroup.Members
Response.WriteobjUser.Name&"<br>"&vbCrLf
Next
Response.Write"</table><p><ahref=adsi.asp?Domain="&sDomain&"&Computer="&sComputer&">Backto"&sComputer&"</a></p>"
elseiflen(trim(sComputer))>0then
SetobjComputer=GetObject("WinNT://"&sDomain&"/"&sComputer)
Response.Write"<tableborder=0>"
ForEachobjObjectInobjComputer
ifstrcomp(objObject.Class,"group",1)=0then
Response.Write"<tr><td>"&objObject.Class&"</td><td><ahref=adsi.asp?Domain="&sDomain&"&Computer="&sComputer&"&Group="&objObject.Name&">"&objObject.Name&"</a></td></tr>"&vbCrLf
elseifstrcomp(objObject.Class,"user",1)=0then
Response.Write"<tr><td>"&objObject.Class&"</td><td><ahref=adsi.asp?Domain="&sDomain&"&Computer="&sComputer&"&User="&objObject.Name&">"&objObject.Name&"</a></td></tr>"&vbCrLf
else
Response.Write"<tr><td>"&objObject.Class&"</td><td>"&objObject.Name&"</td></tr>"&vbCrLf
endif
Next
Response.Write"</table><p><ahref=adsi.asp?Domain="&sDomain&">Backto"&sDomain&"</a></p>"
elseiflen(trim(sDomain))>0then
SetobjDomain=GetObject("WinNT://"&sDomain)
ForEachobjComputerInobjDomain
ifstrcomp(objComputer.Class,"computer",1)=0then
Response.Write"<ahref=adsi.asp?domain="&sDomain&"&computer="&objComputer.Name&">"&objComputer.Name&"<br>"
endif
Next

Response.Write"<p><ahref=adsi.asp>Backtodomainlist</a></p>"
else
SetobjWinNT=GetObject("WinNT:")
ForEachobjDomainInobjWinNT
ifstrcomp(objDomain.Class,"domain",1)=0then
Response.Write"<ahref=adsi.asp?domain="&objDomain.Name&">"&objDomain.Name&"<br>"
endif
Next
endif
%>

</BODY>
</HTML>
ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。

作者: 再见西城 时间: 2015-1-19 15:50
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 简单生活 时间: 2015-1-25 17:31
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 飘灵儿 时间: 2015-2-3 12:07
那么，ASP.Net有哪些改进呢？

作者: 小魔女 时间: 2015-2-8 20:57
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 若相依 时间: 2015-2-26 10:55
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

作者: 兰色精灵 时间: 2015-3-8 13:47
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

作者: 莫相离 时间: 2015-3-16 01:48
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

作者: 海妖 时间: 2015-3-22 18:36
掌握asp的特性而且一定要知道为什么。

欢迎光临仓酷云 (http://ckuyun.com/)