|
<%@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文档
%> |