<%@Language="VBScript"%>

<%

Dim Check '定义Check变量，用来验证来自SWF文件的数据

Dim Link '定义Link变量，用来返回给SWF文件，表明通信成功

Dim data '定义data变量，用来接收来自SWF文件的待保存数据

set data = Request.Form("data") '接收来自SWF文件的待保存数据

set Check = Request.Form("Check") '验证来自SWF文件的数据

if Check = 1 Then '如果SWF文件身份正确

Link = 1 '将Link值设为1，表明通信成功

End if '结束if语句

Set xml=Server.CreateObject("Microsoft.XMLDOM")
'创建一个对象用以操作XML文件

xml.Async=False

xml.ValidateOnParse=False

xml.Load(server.mapPath("http://www.wanggesz.com/XMLData/data.xml"))
'加载xml文件

set newNode=mxml.createNode ("element", "data", "")
'创建新节点newNode,并命为为data

root.appendChild(newNode)
'在上面得到的加载进来的XML文件的根节点后追加一个新建的节点newNode,

Set objname = mxml.createAttribute("data")
'为新建的节点创建属性项objname.Text = data '为新建属性项添加属性值

xml.save(server.mapPath("http://www.wanggesz.com/XMLData/data.xml"))
'在指定的路径保存XML文件,

Response.write"Link"&Link '将Link=1返回给SWF文件

%>