中文XML论坛--删除不了，谁来帮忙看看，谢了。

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

5-1.asp
<body>
<p align="center"> </p>
<p align="left"> </p>
<p align="left"> </p>
<p align="center"><font face="黑体">  <a href="1-1.xml"><font size="7"
face="华文彩云">手机资料</font></a></font></p>
<p align="center"><font face="华文彩云" size="5"><a href="4-2.htm">
返回主菜单</a></font></p>
<% @ language=VBScript %>
<%
    str=tempxml.querystring("name")
    set temxml=Server.createObject("Microsoft.XMLDOM")
    tempxml.load(Server.MapPath("1-1.xml"))
    str2="//student[name='"+str+"']"
    set rnode=tempxml.selectSingleNode(str2)
    tempxml.documentElement.removeChild(rnode)
    tempxml.save(server.MapPath("1-1.xml"))
%>
</body>
5-1.html
<html>

<body background="BD14985_.GIF" bgcolor="#FFFFFF" text="#000000"
link="#666633" vlink="#333366" alink="#990000">
<div align=center style="width: 754; height:433">
<xml id=xmlid src='d:\classroom\1-1.xml'></xml>
<p>  </p>
<hl style="color:#8b0000"><font size="6" face="黑体" color="#000000">手机资料删除</font></hl>
<hr align="center">
<p><span><font face="黑体" color="#000000">手机号:</font></span>
   <input type=text datasrc=#xmlid datafld=id>
<p><span><font face="黑体">  姓名</font>:</span>
   <input type=text datasrc=#xmlid datafld="name">
<p><span><font face="黑体">  年龄</font>:</span>
   <input type=text datasrc=#xmlid datafld="age">
<p><span><font face="黑体">  性别</font>:</span>
   <input type=text datasrc=#xmlid datafld="sex">
<p><span><font face="黑体">  卡型</font>:</span>
   <input type=text datasrc=#xmlid datafld="class">
<br><br>
<input id="first" type=button value="第一个"
onclick="xmlid.recordset.movefirst()">
<input id="prev" type=button value="上一个"
onclick="if(!xmlid.recordset.bof) xmlid.recordset.moveprevious()">
<input id="next" type=button value="下一个"
onclick="if(!xmlid.recordset.eof) xmlid.recordset.movenext()">
<input id="last" type=button value="最后一个"
onclick="xmlid.recordset.movelast()">
<p align="center"><font size="5"><font face="黑体"><a href="4-2.htm">返回主页面</a></font><br>
<p align="center"><input type="submit" value="删除" name="B1">
</form>
</font><p><font face="黑体" size="5" color="#FF0066"> </font></p>
</div>

</body>

</html>

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除处理</title>
</head>
<%if IsEmpty(session("passed")) or session("passed")=false then
   response.Write("<p />对不起，你因发愣时间过长，已退出系统！请重新登陆！")
  else
  if session("dutytype")="客户" then
  response.Write("<p />对不起，你无权使用此操作！")
  else
  orderID=Request.QueryString("orderID")
Dim flag
flag=0
Set xObj = Server.CreateObject("Microsoft.XMLDOM")
xObj.async=false
sourceFile = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\datas\order.xml"
   xObj.load(sourceFile)
   Set rootNode = xObj.documentElement
    For i = 0 To rootNode.ChildNodes.Length - 1
       If orderID = rootNode.ChildNodes(i).ChildNodes(0).text and  rootNode.ChildNodes(i).ChildNodes(14).text="未确认"Then
            'Delete the matching node
             Set oldItem = rootNode.RemoveChild(rootNode.ChildNodes.item(i))
             xObj.save(sourceFile)
             Set xObj = Nothing
             flag=0
             exit for
       else

          flag=1
        End If
    Next
    if flag=0 then
    Response.Write("删除成功!")
    else
    Response.Write("删除失败!请刷新检查!")
    end if
    Set xObj = Nothing

    end if
    end if
%>
<body>

</body>
</html>

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	62.500ms