这个论坛的同步是怎么做的?谢谢

同题目
---------------------------------------------------------------

test.xml:

 1<root>
 2<issue id="1" parentid="0">
 3<title>test</title>
 4<author>ssm1226</author>
 5<content>test</content>
 6<adddatetime>2003-2-17</adddatetime>
 7</issue>
 8<replys>
 9<reply id="2">
10<author>ssm1226</author>
11<content>test1</content>
12<adddatetime>2003-2-17</adddatetime>
13</reply>
14</replys>
15</root>

test.xsl:

 1<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">
 2<xsl:template match="/">
 3<xsl:apply-templates select="root/Issue"></xsl:apply-templates>
 4<xsl:apply-templates select="root/replys/reply"></xsl:apply-templates>
 5<hr/>
 6<iframe name="frm">
 7<xsl:attribute name="src">2.asp?id=<xsl:value-of select="root/Issue/@id"></xsl:value-of></xsl:attribute>
 8</iframe>
 9</xsl:template>
10<xsl:template match="Issue">   
11主题:<xsl:value-of select="title"></xsl:value-of>
12   
13作者:<xsl:value-of select="author"></xsl:value-of>
14   
15内容:<xsl:value-of select="content"></xsl:value-of>
16   
17日期:<xsl:value-of select="adddatetime"></xsl:value-of>
18</xsl:template>
19<xsl:template match="replys/reply">
20<hr/>   
21作者:<xsl:value-of select="author"></xsl:value-of>
22   
23内容:<xsl:value-of select="content"></xsl:value-of>
24   
25日期:<xsl:value-of select="adddatetime"></xsl:value-of>
26</xsl:template>
27</xsl:stylesheet>

---------------------------------------------------------------

2.asp

 1   
 2id=Request.QueryString("id")   
 3  
 4if Request.Form.Count>0 then   
 5'添加入库***************************************   
 6dim conn,strconn,rs,strSql,replyID   
 7strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\technology\samples\test\test.mdb;Persist Security Info=True"   
 8set conn=server.CreateObject("adodb.connection")   
 9conn.Open strconn   
10  
11set rs=server.CreateObject("adodb.recordset")   
12'strSql="insert into Issue (title,author,content,parentid) values ('','" & Request.Form("author") & "','" & Request.Form("content") & "'," & id & ")"   
13strSql="select id,title,author,content,parentid from issue"   
14  
15rs.Open strSql,conn,1,3   
16  
17rs.AddNew   
18rs("title")=""   
19rs("author")=Request.Form("author")   
20rs("content")= Request.Form("content")   
21rs("parentid")=id   
22replyID=rs("id")   
23rs.Update   
24  
25set rs=nothing   
26set conn=nothing   
27  
28'*******************************************   
29'添加XML节点   
30dim xmldoc,node,replyNode   
31set xmldoc=server.CreateObject("msxml2.domdocument")   
32xmldoc.async=false   
33xmldoc.load server.MapPath("test.xml")   
34set node=xmldoc.selectSingleNode("//replys")   
35set replyNode=xmlCreateNode(xmldoc,node,"reply",0,0,"")   
36xmlCreateNode xmldoc,replyNode,"id",1,1,replyID   
37  
38  
39xmlCreateNode xmldoc,replyNode,"author",0,1,Request.Form("author")   
40xmlCreateNode xmldoc,replyNode,"content",0,1,Request.Form("content")   
41xmlCreateNode xmldoc,replyNode,"adddatetime",0,1,date   
42  
43xmldoc.save server.MapPath("test.xml")   
44  
45Response.Write "

<script>parent.location.href=""test.xml"";</script>

 1"   
 2end if   
 3  
 4  
 5'*********************************************************   
 6'函数功能:添加子节点或属性   
 7'xmldoc--XML DOM Object   
 8'xmldocObj--要添加目的节点对象   
 9'EleNameOrAttName--节点名或属性名   
10'Key--0-节点;1-属   
11'ifTxt--是否有内容0-无;1-有   
12'Text--当ifTxt=1时有效,内容   
13'By '版权信息:author:ssm1226 ;data:2003-1-2;copyright:yeboss.net   
14'*********************************************************   
15function xmlCreateNode(xmldoc,xmldocObj,EleNameOrAttName,Key,ifTxt,Text)   
16If Key=0 then   
17Dim SubNode   
18set SubNode=xmldoc.createElement(EleNameOrAttName)   
19if ifTxt=1 then SubNode.text=Text   
20xmldocObj.appendChild SubNode   
21set xmlCreateNode=subNode   
22set SubNode=Nothing   
23ElseIf Key=1 then   
24Dim AttNode   
25set AttNode=xmldoc.createAttribute(EleNameOrAttName)   
26if ifTxt=1 then AttNode.text=Text   
27xmldocObj.attributes.setNamedItem AttNode   
28set xmlCreateNode=AttNode   
29set AttNode=Nothing   
30End If   
31end function   
32  
1<form action="2.asp?id=```
2=id
3```" method="post" name="frm">   
4  
5作者:<input id="author" name="author" type="text"/><br/>   
6内容:<textarea id="content" name="content"></textarea><br/>
7<input id="submit1" name="submit1" type="submit" value="Submit"/>
8</form>

---------------------------------------------------------------

字段定义:

id title author content adddatetime parentid

Published At
Categories with Web编程
Tagged with
comments powered by Disqus