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

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



---------The following file is the Missyou.asp page to process the reply information, 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
%>
<!--#include virtual= "/turbo/inc/writexml.asp"-->
<%
Dim Dom
Dim Root
Dim MyID
Dim myname
Dim ID
Set Dom = Server.CreateObject ("Microsoft.XMLDOM")
MyID = Request.Cookies ("MyID")
MyName = Request.Cookies ("MyName")
If (not IsNumeric (MyID)) or (myname = "") Then
Call ShowError ()
End If
With Dom
. async = False
. Load Request
If. Parseerror.errorcode <> 0 Then
Call ShowError ()
End If
On Error Resume Next
Set Root =. documentelement
ID = Root.childNodes.item (0). Text
End With

If not IsNumeric (ID) Then
Call ShowError ()
End If

If err.number<>0 Then
Err.Clear
Call ShowError ()
ElseIf WriteXml (Dom, Server.MapPath ("xml/" & ID & ". Xml"), MyID, MyName, Date, replace (replace (now, "-", " "),": "," "", "", ""), Root.childNodes.item (1). Text) Then
Call ShowError ()
Else
Response.Write ("<A><B>false</B></A>")
Set Dom = Nothing
End If

Sub ShowError
Response.Write ("<A><B>true</B></A>")
Set Dom = Nothing
Response.End
End Sub
%>



-------------------------------and so on are some need to use the JS file and ASP files-------------------------