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

Source: Internet
Author: User
Tags bool
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---------------------------



Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.