同题目
---------------------------------------------------------------
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