add.asp

来自「服务器目录索引工具源代码」· ASP 代码 · 共 72 行

ASP
72 行
字号 
<%select case request("action")
case "add"

Dim XmlDoc, Flag, FileName 
FileName = Server.MapPath("data/mysites.xml")

Set XmlDoc = CreateObject("Microsoft.XMLDOM") 
XmlDoc.async = false 

Flag = XmlDoc.Load(filename)
If Flag Then 
  Dim Element, El2 
  Set Element = XmlDoc.createElement("site") 

  
  Set El2 = XmlDoc.createElement("topic") 
  El2.text = request.form("topic")
  Element.appendChild El2 
  Set El2 = XmlDoc.createElement("name") 
  El2.text = request.form("name")
  Element.appendChild El2 
  Set El2 = XmlDoc.createElement("url") 
  El2.text = request.form("url")
  Element.appendChild El2 
  XmlDoc.documentElement.appendChild Element 
  XmlDoc.save FileName 
  response.redirect "index1.asp"
End If 





end select
%>
	

<html>
<head>

<script>
function valid(){
var name = document.addform.name.value;
var url = document.addform.url.value;
var topic = document.addform.topic.value;
if (name=="" || url=="" || topic==""){
	alert ("All fields are required")
	return false
	}

}
</script>
	<title>add</title>
</head>

<body>
<table border=0 width=300>
<tr><td colspan=2 align=center><b>Add New Record</b><br><br></tr></td>
<form name="addform" action="add.asp?action=add" method="post" onsubmit="return valid()">
<tr><td>
		Topic.:</td><td><input type="text" name="topic" size=20 maxlength=20></tr></td>
	<tr><td>
		name:</td><td><input type="text" name="name" size=20 maxlength=40></tr></td>
	<tr><td>
		Url:</td><td><input type="text" name="url" size=60 maxlength=50 value="http://"></tr></td>
	
		<tr><td colspan=2 align="center"><input type="submit" value="add"></tr></td>
		</table>

</body>
</html>

add.asp - 源码说明

本页面展示了「服务器目录索引工具源代码」中的 add.asp 源码文件，采用 ASP 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与目录索引相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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