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

只看该作者 · 发表于 2015-1-16 22:30:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

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: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的特性而且一定要知道为什么。

		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子