📄 add.asp

📁 asp开发 asp开发 asp开发 asp开发

💻 ASP

字号:

<%
If Request("action") <> "" Then
	If  ( Request("action") = "add") Then
		FileName = Server.MapPath("mysites.xml")	
		set XmlDoc = Server.CreateObject("Microsoft.XMLDOM")
		
		Flag = XmlDoc.load(FileName)
		If Flag = true Then
			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)
		End If
	End If
End If
%>
<HTML>	<HEAD>
		<SCRIPT LANGUAGE="JavaScript">
		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 ("请输入站点信息！")
				return false
			}
		}
		</SCRIPT>
	</HEAD>
<BODY BGCOLOR="BEIGE">
<TABLE> <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>
	</TD></TR><TR><TD>
	NAME:</TD><TD><INPUT TYPE="TEXT" NAME="name" SIZE=20>
	</TD></TR><TR><TD>
	URL:</TD><TD><INPUT TYPE="TEXT" NAME="url" SIZE=60 VALUE="http://">
	</td></TR><TR>    
	<TD COLSPAN=2 ALIGN="CENTER"><INPUT TYPE="SUBMIT" VALUE="add">
    </TD></TR>
</TABLE> </BODY> </HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -