|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 6、创建写新留言程序(PostNew.asp)
这个文件要完成的功效就是写进新的XML节点,起首创立一个XML对像然后把XML读进内存中,使用appendChild()办法到场我们天生的XML节点。
<%
username=request.form("username")
ifusername<>""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文件的路径这里依据你的假造目次分歧而分歧
SetobjXML=Server.CreateObject("Microsoft.XMLDOM")
创立XML对像
objXML.load(strSourceFile)
把XML文件读进内存中
SetobjRootlist=objXML.documentElement.selectSingleNode("NewList")
拔取<NewList>节点
ifobjRootlist.hasChildNodesthen
判别<NewList>是不是有子节点(由于假如是每次<NewList>是没有子节点的,
’假如不加判别在第一次运得时就会报错
id=objRootlist.lastchild.firstchild.text+1
这里取得将要拔出子节点的ID号,其ID号为<NewList>的最初一个子节点(lastchild)的第一个子节点(firstchild)的ID号加1(这里我们依照干系型数据库的ID号来递增)
else
如是没有字子节点则是第一次留言ID号设为1
id=1
endif
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片断
setobjXML2=Server.CreateObject("Microsoft.XMLDOM")
创建一个新XML对像
objXML2.loadXML(XMLnode)
把XML版片断读进内存中
setrootNewNode=objXML2.documentElement
取得objXML2的根节点
objRootlist.appendChild(rootNewNode)
把XML片断拔出到List.xml中
objXML.save(strSourceFile)
存储lsit.xml文件(由于不存储List.xml只在内存中更新了)
setobjXML=nothing
setobjXML2=nothing
response.write"感谢您的留言"
response.end
endif
%>
<html>
<head>
<title>UntitledDocument</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<styletype="text/CSS">
<!--
td{font-size:9pt}
-->
</style>
</head>
<bodybgcolor="#0099CC"text="#000000">
<tablewidth="80%"border="0"cellspacing="1"cellpadding="4"align="center"bgcolor="#FFFFFF">
<formaction="PostNew.asp"method="post"name="form1">
<trbgcolor="#000000">
<tdcolspan="2"><fontcolor="#FFFFFF">新留言</font></td>
</tr>
<trbgcolor="#EFEFEF">
<tdwidth="19%"align="right">姓名:</td>
<tdwidth="81%">
<inputtype="text"name="username">
**</td>
</tr>
<trbgcolor="#EFEFEF">
<tdwidth="19%"align="right">来自:</td>
<tdwidth="81%">
<inputtype="text"name="fromwhere"value="中国">
</td>
</tr>
<trbgcolor="#EFEFEF">
<tdwidth="19%"align="right">主页:</td>
<tdwidth="81%">
<inputtype="text"name="homepage"value="http://">
</td>
</tr>
<trbgcolor="#EFEFEF">
<tdwidth="19%"align="right">Email:</td>
<tdwidth="81%">
<inputtype="text"name="email">
</td>
</tr>
<trbgcolor="#EFEFEF">
<tdwidth="19%"align="right"valign="top">内容:</td>
<tdwidth="81%">
<textareaname="text"cols="60"rows="10"></textarea>
</td>
</tr>
<trbgcolor="#EFEFEF">
<tdwidth="19%"align="right"></td>
<tdwidth="81%">
<inputtype="submit"name="Submit"value="提交">
<inputtype="reset"name="Submit2"value="重填">
</td>
</tr>
</form>
</table>
</body>
</html>
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全 |
|