📄 add.asp
字号:
<%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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -