马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。函数函数完成小数转分数
PublicFunctionXtoF(strAsCurrency,OptionalfenmAsInteger=32)AsString只限于整除分数
DimCfmAsCurrency
DimcfmmodAsInteger
OnErrorGoToErroreof
Cfm=1/fenm
XtoF=""
Ifstr=0ThenXtoF="":ExitFunction
DimpointAsInteger
DimdIntAsString
DimdPointAsCurrency
Dimfint,fint1,fint2AsInteger
Ifstr0Then
Ifstr>1Then
point=InStr(1,str,".",1)
Ifpoint=0Then
XtoF=str:
ExitFunction
Else
dInt=Mid(str,1,point-1)
dPoint=CCur("0."&Mid(str,point+1))
fint=InStr(1,XtoF(dPoint),"/",1)
fint1=CInt(Mid(XtoF(dPoint),1,fint-1))
fint2=CInt(Mid(XtoF(dPoint),fint+1))
XtoF=CStr(dInt*fint2+fint1)&"/"&CStr(fint2)
EndIf
Else
IffenmModCInt(str/Cfm)=0Then
XtoF="1/"+CStr(fenm/CInt(str/Cfm))
Else
cfmmod=Maxgys(fenm,CInt(str/Cfm))
XtoF=CStr(CInt(str/Cfm/cfmmod))+"/"+CStr(CInt(fenm/cfmmod))
EndIf
EndIf
Else
XtoF="0"
EndIf
ExitFunction
Erroreof:
XtoF=""
EndFunction
FunctionMaxgys(num1AsInteger,num2AsInteger)AsInteger
Dimminnum,iAsInteger
minnum=num1
Ifnum1>num2Thenminnum=num2
Fori=1Tominnum
If((num1Modi)=0)And((num2Modi)=0)ThenMaxgys=i
Nexti
EndFunction
</p>在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |