=====================nnDB.xml=======================
<?xml version="1.0" encoding="GB2312"?>
<data>
<news></news>
</data>
</xml>
===========================post.asp=======================

<%
　　　　Set XMLOBJ = Server.CreateObject("Microsoft.XMLDOM")
　　　　XMLOBJ.async = False
　　　　XMLOBJ.load Server.MapPath("nnDB.xml")    
　　　　Set news_root = XMLOBJ.documentElement.selectSingleNode("news")
　　　　news_count = news_root.childNodes.length
　　　　
　　　　HTML_CODE = "<div id=""news_list"">"
　　　　for i = 0 to news_count - 1
　　　　　　Set temp_news = news_root.childNodes.item(i).childNodes
　　　　　　HTML_CODE = HTML_CODE & "<li id=""tt""><span id=""c1"">标题</span><span id=""c2"">" & temp_news.item(3).text & "</span></li><li id=""pt""><span id=""c1"">作者</span><span id=""c2"">" & temp_news.item(4).text & "</span></li>"
　　　　　　HTML_CODE = HTML_CODE & "<li id=""ct""><span id=""c1"">内容</span><span id=""c2"">" & temp_news.item(5).text & "</span><span id=""c3"">发表时间：" & temp_news.item(2).text & "　点击量：" & temp_news.item(6).text & "</span></li>"
　　　　next
　　　　HTML_CODE = HTML_CODE & "</div>"
　　　　Response.write HTML_CODE
　　%>

　　<form id="form1" name="form1" method="post" action="save_DB.asp">
　　<p>新闻标题：<input type="text" name="tt" /></p>
　　<p>新闻作者：<input type="text" name="pt" /></p>
　　<p>新闻内容：<textarea name="ct" cols="50" rows="12"></textarea></p>
　　<p><input type="submit" name="Submit" value="提交" /><input type="reset" name="Submit2" value="重置" /></p>
　　</form>
=========================save_DB.asp====================
<%
　　' tt 作者 pt 发布人 ct 新闻内容
　　tt = trim(Request.Form("tt")) ' trim 去空格
　　pt = trim(Request.Form("pt"))
　　ct = trim(Request.Form("ct"))
　　time_now = now()
　　' 抓时间，作为新闻条目的区别检索
　　D_y = year(time_now)
　　D_m = month(time_now)
　　D_d = day(time_now)
　　D_hr = hour(time_now) 
　　D_mi = minute(time_now)
　　D_se = second(time_now)
　
　　idx = D_y & D_m & D_d & D_hr & D_mi & D_se
　　
　　' 中间的检查和判断，我就此跳过，直接看写入XML文档。
　　if tt = "" or pt = "" or ct = "" then
　　　　msg = "新闻标题、发布人和内容为必填项目。"
　　　　Response.Write "<script>alert(""" & msg & "\n\n页面将自动返回..."");window.location = 'post.asp';</script>"
　　else
　　SourceFile = Server.MapPath("nnDB.xml")    
　　Set objXML = Server.CreateObject("Microsoft.XMLDOM")        
　　objXML.load(SourceFile)

　　If objXML.parseError.ErrorCode <> 0 Then 
　　　　　　objXML.loadXML "<?xml version=""1.0"" encoding=""GB2312""?><data><news></news></data>"
　　　　End If
　　　　
　　　　Set objRootlist = objXML.documentElement.selectSingleNode("news")
　　　　
　　　　If objRootlist.hasChildNodes then
　　　　　　id = objRootlist.lastChild.firstChild.text + 1
　　　　Else
　　　　　　id=1
　　　　End If
　　　　
　　　　Set oListNode = objXML.documentElement.selectSingleNode("news").AppendChild(objXML.createElement("item"))
　　　　Set oDetailsNode = oListNode.appendChild(objXML.createElement("id"))
　　　　oDetailsNode.Text = id
　　　　Set oDetailsNode = oListNode.appendChild(objXML.createElement("index"))
　　　　oDetailsNode.Text = idx
　　　　Set oDetailsNode = oListNode.appendChild(objXML.createElement("time"))
　　　　oDetailsNode.Text = time_now
　　　　Set oDetailsNode = oListNode.appendChild(objXML.createElement("title"))
　　　　oDetailsNode.Text = tt
　　　　Set oDetailsNode = oListNode.appendChild(objXML.createElement("poster"))
　　　　oDetailsNode.Text = pt
　　　　Set oDetailsNode = oListNode.appendChild(objXML.createElement("content"))
　　　　oDetailsNode.Text = objXML.createCDATASection(ct).text
　　　　Set oDetailsNode = oListNode.appendChild(objXML.createElement("hit"))
　　　　oDetailsNode.Text = 0
　　　　
　　　　objXML.save(SourceFile)
　　　　
　　　　Set objXML = nothing
　　　　
　　　　msg = "新闻信息成功已写入。"
　　　　Response.Write "<script>alert(""" & msg & "\n\n页面将自动返回..."");window.location = 'post.asp';</script>"
　　end if
%>
不能成功！！！
各位帮帮忙