【www.gdgbn.com--留言】

<%
 strSourceFile = Server.MapPath("./") & "List.xml"
 "获取XML文件的路径这里根据你的虚拟目录不同而不同
 Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
 "以自由线程创建一个XML对像
 objXML.load(strSourceFile)"把XML文件读入内存
 Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
 "选取NewList节点
%>





<script language="javascript" src="other.js"></script>

新留言


姓 名：


**


来 自：





主 页：





Email：





内 容：

编辑xml 文档

<%
 dim id ,action
  id = Request.QueryString("id")
if IsNumeric(id)=false or isNull(id) then
 response.write ("参数不正确，请返回！")
 response.end
end if
 action = Request.QueryString("action")
id = id
if action = "update" then
 id  = request("id")
 username=request.form("username")
 fromwhere =request.form("fromwhere")
 homepage =request.form("homepage")
 email =request.form("email")
 text =request.form("text")
 text =replace(text,"<","<")
 Posttime =now()
 strSourceFile = Server.MapPath("./") & "List.xml"
 "获取XML文件的路径这里根据你的虚拟目录不同而不同
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 "创建XML对像
 objXML.load(strSourceFile)
 "把XML文件读入内存中
 Set objRootlist = objXML.documentElement.selectSingleNode("NewList")
 "选取节点
 
 set rootOldNode=objRootlist.childNodes.item(id)
"--------NEW START -----------
  brstr=chr(13)&chr(10)&chr(9)
 XMLnode=brstr&""&brstr & _
  ""&id&""&brstr & _
  ""&username&""&brstr & _
  ""&fromwhere&""&brstr & _
  ""&Posttime&""&brstr & _
  ""&homepage&""&brstr & _
  ""&email&""&brstr & _
  ""&text&""&brstr & _
  ""&chr(13)
 "根据得到的数据建立XML片段
 set objXML2=Server.CreateObject("Microsoft.XMLDOM")
 "建立一个新XML对像
 objXML2.loadXML(XMLnode)
 "把XML版片段读入内存中
 set rootNewNode=objXML2.documentElement
"===========NEW=============
 objRootlist.ReplaceChild rootNewNode,rootOldNode
 objXML.save(strSourceFile)
 set objXML=nothing
 set objXML2=nothing
 Response.Redirect("index.asp")
 response.end
else
 strSourceFile = Server.MapPath("./") & "List.xml"
 "获取XML文件的路径这里根据你的虚拟目录不同而不同
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 "创建XML对像
 objXML.load(strSourceFile)
 "把XML文件读入内存中
 Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
 "选取节点
" response.write objRootsite.childNodes.item(id).childNodes.item(1).text
" response.end
  id   = objRootsite.childNodes.item(id).childNodes.item(0).text
"id号 
  username = objRootsite.childNodes.item(id).childNodes.item(1).text
"获得用户名
  fromwhere = objRootsite.childNodes.item(id).childNodes.item(2).text
"获得用户来自那里
  Posttime = objRootsite.childNodes.item(id).childNodes.item(3).text
"获得留言时间
  homepage = objRootsite.childNodes.item(id).childNodes.item(4).text
"获得用户主页
  email  = objRootsite.childNodes.item(id).childNodes.item(5).text
"获得用户Eamil
  text  = objRootsite.childNodes.item(id).childNodes.item(6).text 
 set objXML = nothing
end if
%>

<script language="javascript" src="other.js"></script>

新留言


姓 名：


**


来 自：





主 页：





Email：





内 容：

<%=text%>

会用到的js文件

// Function  打印版权
function printCopy(){
// wr(" "); 
// wr("说明：转载本站内容，请务必保留原作者信息。
本站提供的资料或软件多数是在网上搜集，侵犯了您的版权，请来信告诉我们，本站将删除这些内容。 [记事本][进入首页]"); 
}
// Function 打印广告
function printAD(){
// wr ("如需广告位和友情连接
请联系lffxunuo@163.com")
}
printCopy()
printAD()
function wr(str){
 document.write(str) ;
}
function gotoXunuo(){
 window.open("http://www.111cn.net/")
}

本文来源：http://www.gdgbn.com/zhufuduanxin/24030/