📄 postnew.asp

📁 《XML语言及应用》作者华铨平—examples
💻 ASP
字号:
<%
	username = Request.Form("username")
	if username <> "" then
	    '获取添加的信息
		username = Request.Form("username")
		fromwhere = Request.ServerVariables("REMOTE_HOST")
		homepage = Request.Form("homepage")
		email = Request.Form("email")
		text = Request.Form("text")
		Posttime =now()
		'建立XMLOM对象
		strSourceFile = Server.MapPath("List.xml")	
		Set objXML = Server.CreateObject("Microsoft.XMLDOM")		
		objXML.load(strSourceFile)
		'判断错误
		If objXML.parseError.ErrorCode <> 0 Then 
		    	objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?><xml><GuestBook></GuestBook></xml>"
  		End If
		'选择文档节点
		Set objRootlist = objXML.documentElement.selectSingleNode("GuestBook")
		'自动生成id
		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("fromwhere"))
  		oDetailsNode.Text = fromwhere
  		
  		Set oDetailsNode = oListNode.appendChild(objXML.createElement("Posttime"))
  		oDetailsNode.Text = Posttime
		
		Set oDetailsNode = oListNode.appendChild(objXML.createElement("homepage"))
  		oDetailsNode.Text = homepage
		
		Set oDetailsNode = oListNode.appendChild(objXML.createElement("email"))
  		oDetailsNode.Text = email
  		
  		Set oDetailsNode = oListNode.appendChild(objXML.createElement("text"))
  		oDetailsNode.Text = text

		
		objXML.save(strSourceFile)	
		
		Set objXML=nothing
		response.write "谢谢您的留言"
		Response.Redirect "default.asp"
		response.end
	End if 
%>
<html>
<head>
<title>撰写留言</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="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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -