第二个灵魂 发表于 2015-1-16 22:30:35

ASP教程之一个使用adsi失掉局域网信息的asp文件

ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。<%@Language=VBScript%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
<title>ADSIDomainbrowser</title>
</HEAD>
<BODY>
<!--Author:AdrianForbes-->

<%
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:20

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

简单生活 发表于 2015-1-25 17:31:42

学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:

飘灵儿 发表于 2015-2-3 12:07:40

那么,ASP.Net有哪些改进呢?

小魔女 发表于 2015-2-8 20:57:02

ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。

若相依 发表于 2015-2-26 10:55:11

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

兰色精灵 发表于 2015-3-8 13:47:49

ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:

莫相离 发表于 2015-3-16 01:48:56

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

海妖 发表于 2015-3-22 18:36:56

掌握asp的特性而且一定要知道为什么。
页: [1]
查看完整版本: ASP教程之一个使用adsi失掉局域网信息的asp文件