网站导航广告发布联系我们购买步骤付款方式
	最多最全的实用技术资料的集合，并为你提供投资、办厂、创业服务！
我的首页 | 关于我们 | 现场培训 | 人才招聘 | 市场调查 | 技术书店 | 培训VCD | 付款方式

  <% username = Request.Form("username") if username <> "" then gender = Request.Form("gender") qq = Request.Form("qq") homepage = Request.Form("homepage") email = Request.Form("email") content =Request.Form("content") posttime =now() strSourceFile = Server.MapPath("word.xml") Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.load(strSourceFile) If objXML.parseError.ErrorCode <> 0 Then objXML.loadXML "" End If Set objRootlist = objXML.documentElement.selectSingleNode("guestbook") If objRootlist.hasChildNodes then id = objRootlist.lastChild.firstChild.text + 1 Else id=1 End If Set oListNode = objXML.documentElement.selectSingleNode("guestbook").AppendChild(objXML.createElement("item")) Set oDetailsNode = oListNode.appendChild(objXML.createElement("id")) oDetailsNode.Text = id Set oDetailsNode = oListNode.appendChild(objXML.createElement("username")) oDetailsNode.Text = username Set oDetailsNode = oListNode.appendChild(objXML.createElement("gender")) oDetailsNode.Text = gender Set oDetailsNode = oListNode.appendChild(objXML.createElement("email")) oDetailsNode.Text = email Set oDetailsNode = oListNode.appendChild(objXML.createElement("qq")) oDetailsNode.Text = qq Set oDetailsNode = oListNode.appendChild(objXML.createElement("homepage")) oDetailsNode.Text = homepage Set oDetailsNode = oListNode.appendChild(objXML.createElement("content")) oDetailsNode.Text = ubbcode(content) Set oDetailsNode = oListNode.appendChild(objXML.createElement("posttime")) oDetailsNode.Text = posttime Set oDetailsNode = oListNode.appendChild(objXML.createElement("reply")) oDetailsNode.Text = "" objXML.save(strSourceFile) Set objXML=nothing Response.Redirect "GBindex.asp" response.end end if %>