Summer Fun Huge offer ~------Super + Invincible--------xml+javascript+asp online short message Function! (5)

xml| Online +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+ Super + Invincible--------xml+javascript+asp online Short Message Function---Introduction
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



---------The following file is sent to delete the echangxml.asp page has been read, the code is longer, take a look at it slowly-----------

<% @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 all 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
%>



------------------------------------and so on is the ASP file that sends the information------------------------------------