ASP网站制作之获得服务器上用户组列表剧本之VBS版
ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。groups.vbs工夫:2001.2.5
版本:1.0
作者:沧海笑一声
别的:此剧本原作者写于2000岁首,沧海用事后以为不是很好用.
它本来的显现体例是wsh的办法,常常要多屏显现,并且不克不及保留了局
我将之改成IE显现的办法,用起来便利些.:)
OnErrorResumeNext
dimwshell
dimie,doc
setie=createobject("internetexplorer.application")
ie.navigate"about:blank"
ie.visible=true
setdoc=ie.document
CRLF=CHR(13)+CHR(10)
DomainString=inputbox("请输出一个域名:")
msgbox"域名是:"&DomainString
write"<Tableborder=1cellpadding=4width=90%bgcolor=ffffcc><TRAlign=Center><TDvalign=top><B><Font
Size=5Color=Blue>"&UCASE(DomainString)&"内的一切组的列表</B></Font></td></tr></table>"
doc.title=UCASE(DomainString)&"-组"
SetDomainObj=GetObject("WinNT://"&DomainString)
tmp=DomainObj.MinPasswordLengthverifythisisavaliddomain
iferr.number0then
write"<FontColor=Red>Therewasanerrorconnectingto"&domainname&"</Font>!<br>"
setie=Nothing
wscript.quit
endif
DomainObj.Filter=Array("group")
strInfo="<Tableborder=0cellpadding=5><TR><TD><B><FontSize=3>组名</Font></B></TD><TD><B><FontSize=3>形貌
</Font></B></TD></TR>"
ie.StatusText="正在搜集信息,请稍候......"
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>"
writestrInfo&"<br>"
write"<fontsize=1><I>"&Now&"</I></Font>"
setie=Nothing
setdoc=Nothing
wscript.quit
******************
subwrite(str)
doc.body.insertAdjacentHTML"beforeend",str
endsub
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了， 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 那么，ASP.Net有哪些改进呢？ 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) Session:这个存储跟客户端会话过程的数据，默认20分钟失效
页:
[1]