所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++超级+无敌--------XML+JAVASCRIPT+ASP在线短信息功能---介绍+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------下面的文件就是发送删除已看过信息的eChangXml.ASP页,代码比较长,慢慢看看-----------<%@EnableSessionState=False%><%Option ExplicitResponse.CacheControl = "no-cache"Response.AddHeader "Pragma", "no-cache"Response.Expires = 0Dim MyIDMyID = Request.Cookies("MyID")If Not Isnumeric(MyID) ThenResponse.Write("true")ElseIf ReMove() ThenResponse.Write("true")ElseResponse.Write("false")End IfFunction ReMoveDim XmlDomDim ClientDim PathDim XmlDomNodeDim ClientNodeDim XmlDim ClientXmlOn Error Resume NextPath = Server.MapPath("Xml/" & MyID & ".xml")Set XmlDom=Server.CreateObject("Microsoft.XMLDOM")Set Client=Server.CreateObject("Microsoft.XMLDOM")XmlDom.Async=FalseXmlDom.Load RequestClient.Async=FalseClient.Load PathIf XmlDom.parseError.errorCode<>0 ThenReMove = TrueElseIF Client.parseError.errorCode<>0 ThenReMove = TrueElseSet XmlDomNode = XmlDom.documentElementSet ClientNode = Client.documentElementFor Each Xml In XmlDomNode.childNodesFor Each ClientXml In ClientNode.childNodesIf Xml.Attributes.getNamedItem("ONLY").nodeValue = ClientXml.Attributes.getNamedItem("ONLY").nodeValue ThenClientNode.reMoveChild(ClientXml)End IFNextNextApplication.LockClient.Save PathApplication.unLockEnd IfSet Client=NothingSet XmlDom=NothingIf Err.number<>0 ThenErr.ClearReMove = TrueEnd IfEnd Function%>------------------------------------等等是发送信息的ASP文件------------------------------------ 关闭本页

....