|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。xml|在线+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+超等+无敌--------XML+JAVASCRIPT+ASP在线短信息功效---先容
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
---------上面的文件就是包括WRITEXML函数的WRITEXML.ASP页-----------
<%
FunctionWriteXml(Dom,Path,MyID,MyName,DATES,ONLY,Text)
OnErrorResumeNext
DimR
Dom.LoadPath
IfDom.parseError.errorCode0Then
WriteXml=True
Else
SetR=Dom.CreateElement("内容")
WithR
.setAttribute"ID",MyID
.setAttribute"NAME",MyName
.setAttribute"DATE",DATES
.setAttribute"ONLY",ONLY
.Text=Text
Dom.documentElement.AppendChildR
EndWith
Application.Lock
Dom.SavePath
Application.unLock
EndIf
IfErr.number0Then
Err.Clear
WriteXml=True
EndIf
EndFunction
%>
-----------------------上面的是一个XMLCODE.JS文件,包括CODE函数----------
functioncode(Str)
{
varA=newRegExp("","gi")
varB=newRegExp(""","gi")
Str=Str.replace(/&/gi,"&")
Str=Str.replace(/</gi,"<")
Str=Str.replace(/>/gi,">")
Str=Str.replace(A,"")
Str=Str.replace(B,""")
delete(A)
delete(B)
return(Str)
}
---------------------上面的是一个PACE.JS文件,包括PACE函数------------
//反省传来的参数是不是为空字符串,空前往TRUE,不然前往FALSE
functionPace(Str)
{
varReg=newRegExp("","gi")
Str=Str.replace(Reg,"")
Reg=newRegExp("","gi")
Str=Str.replace(Reg,"")
Reg=newRegExp("
","gi")
Str=Str.replace(Reg,"")
delete(Reg)
if(Str=="")
{
return(true)
}
else
{
return(false)
}
}
-------------------上面是XMLHTTP.JS文件,包括SEND函数---------------
functionSend(Str,URL)
{
varHttp=newActiveXObject("Microsoft.XMLHTTP")
varDom=newActiveXObject("Microsoft.XMLDOM")
Http.open("POST",URL,false)
Http.send(Str)
Dom.async=false
Dom.loadXML(Http.responseText)
if(Dom.parseError.errorCode!=0)
{
delete(Http)
delete(Dom)
return(false)
}
else
{
varBack=Dom.documentElement.childNodes.item(0).text
delete(Http)
delete(Dom)
return(Back)
}
}</p>帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|