xml| Online +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+ Super + Invincible--------xml+javascript+asp online Short Message Function---Introduction
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
---------The following file is the createinformation.asp page to send new 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
' Here's a writexml.asp file with a WriteXml function in it. function is in the XML file according to the incoming parameter
' Generate a row of new data, which will be listed, and so on.
%>
<!--#include virtual= "/turbo/inc/writexml.asp"-->
<%
Dim Dom
Dim Root
Dim Bool
Dim MyID
Dim myname
MyID = Request.Cookies ("MyID")
MyName = Request.Cookies ("MyName")
Set Dom = Server.CreateObject ("Microsoft.XMLDOM")
With Dom
. async = False
. Load Request
If. Parseerror.errorcode <> 0 Then
Response.Write ("<A><B>2</B></A>")
ElseIf not IsNumeric (MyID) or myname= "" Then
Response.Write ("<A><B>2</B></A>")
Else
Set Root =. documentelement
Bool = Check (Root.childNodes.item (0). Text)
If Bool = False Then
Response.Write ("<A><B>1</B></A>")
ElseIf WriteXml (Dom, Server.MapPath ("xml/" & Bool & ". Xml"), MyID, MyName, Date, replace (replace (now, "-" , ""), ":", ""), "", ""), Root.childNodes.item (1). Text) Then
Response.Write ("<A><B>2</B></A>")
Else
Response.Write ("<A><B>3</B></A>")
End If
End If
End With
Set Dom = Nothing
Function Check (Name)
Dim Re
Set Re = Server.CreateObject ("ADODB.") Recordset ")
With Re
. ActiveConnection = application.contents ("DSN")
. Open "Exec searchonline '" & Name & "", 1,1,adcmdtext
If. EOF and. BOF Then
Check = False
Else
Check = Re (1)
End If
End With
Set Re = Nothing
End Function
%>
-----------------------------------, and so on is the missyou.asp file for the reply message---------------------------