html > 
head> 
title>动态添加表单元素BlueShine/title> 
/head> 
script language="javascript"> 
function AddElement(mytype){ 
var mytype,TemO=document.getElementById("add"); 
var newInput = document.createElement("input");  
newInput.type=mytype;  
newInput.name="input1";//这个是必须的,在处理页中要用到! 
TemO.appendChild(newInput); 
var newline= document.createElement("br"); 
TemO.appendChild(newline); 
} 
/script> 
body> 
 form action="getdata.asp" method="post" name="frm"> 
 p style=" background:#FFEC8B;border:solid 1px #1E90FF;font-size:13px;line-height:200%;width:100px;text-align:center">a style="color:#218868;" href="javascript:void(0)" onClick="AddElement('text')">添加文本框/a>/p> 
 p id="add">/p> 
   label> 
   input type="submit" name="Submit" value="提交"> 
   /label> 
   label> 
   input type="reset" name="Submit2" value="重置"> 
   /label> 
/form> 
/body> 
/html> 

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
html xmlns="http://www.w3.org/1999/xhtml"> 
head> 
meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
title>动态添加表单元素/title> 
/head> 
body> 
div style="font-size:13px">% 
dim data,arr,n 
data=Trim(Request.Form("input1"))'这就是在代码中定义的name属性 
arr=split(data,",")'用Split函数对数据进行分割! 
Response.Write("这是未分割的数据:") 
 Response.Write(data) 
 Response.Write("br>") 
 Response.Write("br>") 
 Response.Write("这是用Split函数分割后的数据:") 
 Response.Write("br>") 
 for n= 0 to ubound(arr) 
 Response.Write(arr(n)) 
 Response.Write("br>") 
 Next 
  %>/div> 
/body> 
/html>