ICANN认证国际域名顶级注册机构
网站建设,域名注册,空间租用,软件销售,广告设计 域名注册,空间租用, 网站建设,东莞网页设计,域名注册,网站推广,网站开发，网页设计 网站推广,,百度推广,新浪推广,雅虎推广,网易推广 标志设计,画册设计,包装设计,VI策划,企业形象顾问 连邦软件加盟店,提供销遥行,管家婆,速达,用友ERP,诺顿等软件报价及销售 建站必读 腾达网络,上网帮助中心, 腾达为东莞等地,提供网站建设,网站推广,广告设计,软件销售等优质服务!
建站必读


 
 
当前位置：首页 -> 建站必读 -> ASP技术
暑期缤纷巨献之~------超级+无敌--------XML+JAVASCRIPT+ASP在线短信息功能!(5)
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

+

+           超级+无敌--------XML+JAVASCRIPT+ASP在线短信息功能---介绍

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++







---------下面的文件就是发送删除已看过信息的eChangXml.ASP页,代码比较长,慢慢看看-----------



<%@EnableSessionState=False%>

<%

Option Explicit

Response.CacheControl = "no-cache"

Response.AddHeader "Pragma", "no-cache"

Response.Expires = 0

Dim MyID

MyID = Request.Cookies("MyID")

If Not Isnumeric(MyID) Then

Response.Write("<A><B>true</B></A>")

ElseIf ReMove() Then

Response.Write("<A><B>true</B></A>")

Else

Response.Write("<A><B>false</B></A>")

End If





Function ReMove

Dim XmlDom

Dim Client

Dim Path

Dim XmlDomNode

Dim ClientNode

Dim Xml

Dim ClientXml

On Error Resume Next

Path = Server.MapPath("Xml/" & MyID & ".xml")

Set XmlDom=Server.CreateObject("Microsoft.XMLDOM")

Set Client=Server.CreateObject("Microsoft.XMLDOM")



XmlDom.Async=False

XmlDom.Load Request

Client.Async=False

Client.Load Path



If XmlDom.parseError.errorCode<>0 Then

ReMove = True

ElseIF Client.parseError.errorCode<>0 Then

ReMove = True

Else

Set XmlDomNode = XmlDom.documentElement

Set ClientNode = Client.documentElement



For Each Xml In XmlDomNode.childNodes

    

    For Each ClientXml In ClientNode.childNodes

               If Xml.Attributes.getNamedItem("ONLY").nodeValue = ClientXml.Attributes.getNamedItem("ONLY").nodeValue Then

               ClientNode.reMoveChild(ClientXml)

               End IF

    Next



Next

Application.Lock

Client.Save Path

Application.unLock

End If

Set Client=Nothing

Set XmlDom=Nothing

If Err.number<>0 Then

Err.Clear

ReMove = True

End If

End Function

%>







------------------------------------等等是发送信息的ASP文件------------------------------------
 
 
本站关键词：
 |网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广||网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广||网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广||网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广||网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广||网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广||网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广||网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广||网站建设 东莞|网页设计 东莞|东莞国际域名注册|东莞国内域名|网页空间申请 东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|
域名注册 | 虚拟主机 | 网站建设 | 网站推广 | 广告设计 | 帮助中心 | 软件中心 | 关于腾达
东莞市腾达信息工程有限公司      本站网络实名： 东莞网站建设
地址：东莞市新城市中心区第一国际B座610   邮编：523007
电话：0769-22026071 22026072 传真：0769-22026076 24小时服务热线：13712032014
© 2002～2005 腾达网络   版权所有