最多最全的实用技术资料的集合,并为你提供投资、办厂、创业服务!

 

当前页我要技术 (如果您没有找到您要的技术资料,请告诉我们代为寻找!)


  <% 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 %>

姓名: **
性 别:
地址: **
电话: **
电子邮件: **
技术内容请详细说明:
**

 

 

 

 

 


/**/