|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。JSON(ObjectNotation)我想这个名字人人已不生疏了,它是一种轻量级的数据互换格局,是由服务间接天生语句,客户端猎取后间接用eval办法来取得这个工具,如许就能够省往剖析XML剖析带来的功能成绩和兼容性成绩,并且关于来讲十分简单利用,能够便利的经由过程遍历数组和会见工具属性来猎取数据,其可读性也不错,基础具有了却构化数据的性子。不能不说是一个很好的举措,比方googlemaps就没有接纳XML传送数据,而是接纳了JSON计划。
这里我给人人举一个ASP挪用Json的例子,起到一个举一反三的感化吧.....
以下是tset.asp代码片断
<!--#includefile="jsonParse.asp"-->
<%
DimstrTest
strTest="{name:""alonely"",age:24,email:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""],family:{parents:[""父亲"",""母亲""],toString:function(){return""家庭成员"";}}}"
DimobjTest
InitScriptControl
SetobjTest=getJSONObject(strTest)
%>
<%=objTest.name%>的邮件地点是<%=sc4Json.Eval("jsonObject.email[0]")%><BR>
共有邮件地点<%=objTest.email.length%>个<BR>
<%
Dimfather
getJSArrayItemfather,objTest.family.parents,0
Response.Writefather
%>以下是jsonParse.asp代码片断
<%
OptionExplicit
Dimsc4Json
SubInitScriptControl
Setsc4Json=Server.CreateObject("MSScriptControl.ScriptControl")
sc4Json.Language=""
sc4Json.AddCode"varitemTemp=null;functiongetJSArray(arr,index){itemTemp=arr[index];}"
EndSub
FunctiongetJSONObject(strJSON)
sc4Json.AddCode"varjsonObject="&strJSON
SetgetJSONObject=sc4Json.CodeObject.jsonObject
EndFunction
SubgetJSArrayItem(objDest,objJSArray,index)
OnErrorResumeNext
sc4Json.Run"getJSArray",objJSArray,index
SetobjDest=sc4Json.CodeObject.itemTemp
IfErr.number=0Then
ExitSub
EndIf
objDest=sc4Json.CodeObject.itemTemp
EndSub
%>帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|