用ASP XML打造留言本(3)_Xml教程
教程Tag：暂无Tag,欢迎添加,赚取U币!
推荐：用XSL翻译Web服务应用程序Web服务应用程序存在的一个常见问题是，真正的后端软件不支持XML（或者至少不支持你Web服务所使用的标准化的XML）。要解决这个问题，很多架构都实施了一个翻译阶段，用来解释收到的XML，并将它
五、建立显示XML数据的ASP文件(index.asp)
这个文件要实现的功能就是读取并显示XML数据，首先创建一个XML对像然后把XML读入内存中，利用DOM分离出我们所要的数据。
六、建立写新留言程序(PostNew.asp)
这个文件要实现的功能就是写入新的XML节点，首先创建一个XML对像然后把XML读入内存中，利用appendChild()方法加入我们生成的XML节点。
| 以下为引用的内容： ＜% username=request.form("username") if username＜＞"" then fromwhere =request.form("fromwhere") homepage =request.form("homepage") email =request.form("email") text =request.form("text") text =replace(text,"＜","<") Posttime =now() strSourceFile = Server.MapPath("/") & "\List.xml" '获取XML文件的路径这里根据你的虚拟目录不同而不同 Set objXML = Server.CreateObject("Microsoft.XMLDOM") '创建XML对像 objXML.load(strSourceFile) '把XML文件读入内存中 Set objRootlist = objXML.documentElement.selectSingleNode("NewList") '选取＜NewList＞节点 if objRootlist.hasChildNodes then '判断＜NewList＞是否有子节点（因为如果是每一次＜NewList＞是没有子节点的， ’ 如果不加判断在第一次运得时就会报错 id = objRootlist.lastchild.firstchild.text 1 '这里获得将要插入子节点的ＩＤ号，其ＩＤ号为＜NewList＞的最后一个子节点(lastchild)的第一个子节点(firstchild)的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增） else '如是没有字子节点则是第一次留言ＩＤ号设为１ id=1 end if brstr=chr(13)&chr(10)&chr(9) '为了插入XML文件中的节点换行空格排列整齐 ’（当然你也可以不用这样只是为了XML数据好看而以） XMLnode=brstr&"＜list＞"&brstr & _ "＜id＞"&id&"＜/id＞"&brstr & _ "＜username＞"&username&"＜/username＞"&brstr & _ "＜fromwhere＞"&fromwhere&"＜/fromwhere＞"&brstr & _ "＜Posttime＞"&Posttime&"＜/Posttime＞"&brstr & _ "＜homepage＞"&homepage&"＜/homepage＞"&brstr & _ "＜email＞"&email&"＜/email＞"&brstr & _ "＜text＞"&text&"＜/text＞"&brstr & _ "＜/list＞"&chr(13) '根据得到的数据建立XML片段 set objXML2=Server.CreateObject("Microsoft.XMLDOM") '建立一个新XML对像 objXML2.loadXML(XMLnode) '把XML版片段读入内存中 set rootNewNode=objXML2.documentElement '获得objXML2的根节点 objRootlist.appendChild(rootNewNode) '把XML片段插入到List.xml中 objXML.save(strSourceFile) '存储lsit.xml文件（因为不存储List.xml只在内存中更新了） set objXML=nothing set objXML2=nothing response.write "谢谢您的留言" response.end end if %＞ ＜html＞ ＜head＞ ＜title＞Untitled Document＜/title＞ ＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞ ＜style type="text/css"＞ ＜!-- td { font-size: 9pt} --＞ ＜/style＞ ＜/head＞ ＜body bgcolor="#0099CC" text="#000000"＞ ＜table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#FFFFFF"＞ ＜form action="PostNew.asp" method="post" name="form1"＞ ＜tr bgcolor="#000000"＞ ＜td colspan="2"＞＜font color="#FFFFFF"＞新留言＜/font＞＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right"＞姓 名：＜/td＞ ＜td width="81%"＞ ＜input type="text" name="username"＞ ** ＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right"＞来 自：＜/td＞ ＜td width="81%"＞ ＜input type="text" name="fromwhere" value="中国"＞ ＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right"＞主 页：＜/td＞ ＜td width="81%"＞ ＜input type="text" name="homepage" value="http://"＞ ＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right"＞Email：＜/td＞ ＜td width="81%"＞ ＜input type="text" name="email"＞ ＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right" valign="top"＞内 容：＜/td＞ ＜td width="81%"＞ ＜textarea name="text" cols="60" rows="10"＞＜/textarea＞ ＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right"＞ ＜/td＞ ＜td width="81%"＞ ＜input type="submit" name="Submit" value="提交"＞ ＜input type="reset" name="Submit2" value="重填"＞ ＜/td＞ ＜/tr＞ ＜/form＞ ＜/table＞ ＜/body＞ ＜/html＞ |
分享：用XMLHTTP很好的一个例子虽然ting88没有注册的用户不能下载歌曲,但搞定它也非难事啊:) 进入www.ting88.com的网站,把歌手专辑页面的URL复制到文本框中再提交就可以得到歌曲的下载路径,如:http://www.ting88.com/MusicL
相关Xml教程：
- 相关链接：
- 教程说明：
Xml教程-用ASP XML打造留言本(3)
。