asp取动态表单中数据并写入xml文件,用xsl显示

1.动态表单的界面，从csdn论坛上参考

  1<html>
  2<head>
  3<title>无标题文档</title>
  4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
  5<script language="javascript">   
  6var curRow=null;   
  7var y=1; 
  8
  9function selectRow(){   
 10var e=window.event;   
 11var tr1=e.srcElement;   
 12if(curRow)   
 13curRow.bgColor="#FFFFFF";   
 14tr1.bgColor="e7e7e7";   
 15curRow=tr1;   
 16}   
 17function addRow(src){   
 18//alert(src);   
 19var newrow = src.insertRow(src.rows.length-1);   
 20newrow.attachEvent("onclick",selectRow);   
 21newrow.height=20;   
 22var i=4; 
 23
 24while(i--){   
 25var newcell = newrow.insertCell(); 
 26
 27switch(i){   
 28case 0: newcell.innerHTML= '<input type="button" onClick="javascript:delRow(this.parentElement.parentElement)" value="删除此行">'+(y++);   
 29document.all.count.value=y-1;   
 30break;   
 31case 1:newcell.innerHTML=div2.innerHTML;break;   
 32case 2:newcell.innerHTML=div3.innerHTML;break;   
 33case 3:newcell.innerHTML=div4.innerHTML;break;   
 34default: newcell.innerHTML=div1.innerHTML;break; 
 35
 36}   
 37}   
 38//alert(newrow.outerHTML);   
 39} 
 40
 41function delRow(src){ 
 42
 43var tab=src.parentElement;   
 44var i=tab.rows.length;   
 45var j=tab.rows.length;   
 46while(i--){   
 47if(src==tab.rows[i]){   
 48//alert("就是这行----"+ i);   
 49document.all.count.value=j-3;   
 50tab.deleteRow(i); 
 51
 52} 
 53
 54}   
 55}   
 56</script>
 57</head>
 58<body>
 59<form action="2.asp" method="post" name="form1" onsubmit="return(checkv())">
 60<h3>请输入经销商的通讯信息：</h3>   
 61姓 名: <input name="jxname" type="text"/><br/>   
 62地 址: <input name="jxadd" type="text"/><br/>   
 63电 话: <input name="jxtel" type="text"/><br/>   
 64请输入库存信息<br/>
 65<table align="center" border="1" bordercolor="#111111" cellpadding="1" cellspacing="1" id="tb" style="border-collapse:collapse" width="100%">
 66<tr>
 67<th scope="col" width="25%">品名</th>
 68<th scope="col" width="25%">规格</th>
 69<th scope="col" width="25%">库存量</th>
 70<th scope="col" width="25%">操作</th>
 71</tr>
 72<tr id="blankRow" onclick="addRow(this.parentElement)">
 73<td> </td>
 74<td> </td>
 75<td> </td>
 76<td> </td>
 77</tr>
 78</table>
 79<input name="count" type="hidden" value="count"/>
 80<input id="btnSub" name="btnSub" type="submit" value="提交"/><br/>
 81</form>
 82<div id="div1" style="display:none "><input id="txt" name="id" style="width:97%; background-color:#FFFFEF" type="text"/></div>
 83<div id="div2" style="display:none "><input id="txt" name="id1" style="width:97%; background-color:#FFFFEF" type="text" value="11"/></div>
 84</body>
 85<div id="div3" style="display:none "><select name="id2" style="width:97%; background-color:#FFFFEF">
 86<option value="箱">箱</option>
 87<option value="件">件</option>
 88</select></div>
 89<div id="div4" style="display:none "><input id="txt" name="id3" style="width:97%; background-color:#FFFFEF" type="text" value="33"/></div>
 90<script language="javascript">   
 91function checkv()   
 92{ 
 93
 94if (form1.jxname.value.length == 0)   
 95{   
 96alert("请填写姓名和地址！");   
 97form1.jxname.focus();   
 98return false;   
 99} 
100
101else if(!(check_number(form1.id1.value)))   
102{   
103alert("数量只能为数字")   
104form1.id1.focus();   
105return false;   
106}   
107else   
108return (true);   
109}   
110function check_number(myint)   
111{ 
112
113var checkOK = "0123456789";   
114var checkStr = myint;   
115var allValid = true;   
116var decPoints = 0;   
117var allNum = "";   
118for (i = 0; i < checkStr.length; i++)   
119{   
120ch = checkStr.charAt(i);   
121for (j = 0; j < checkOK.length; j++)   
122if (ch == checkOK.charAt(j))   
123break;   
124if (j == checkOK.length)   
125{   
126allValid = false;   
127break;   
128}   
129allNum += ch;   
130}   
131if (!allValid)   
132{   
133return (false);   
134}   
135return (true);   
136} 
137
138</script>
139</html>

2. 2.asp文件

1   
2'////////////////////取表单数据   
3response.write("共"+request.form("count")+"记录")   
4i=request.form("count")   
5jxname=request.form("jxname")   
6jxadd=request.form("jxadd")   
7jxtel=request.form("jxtel")   
8response.write(request.form("jxname"))   
9response.write("

<br/>

1")   
2response.write(request.form("jxadd"))   
3response.write("

<br/>

1")   
2response.write(request.form("jxtel"))   
3response.write("

<br/>

 1")   
 2str1=trim(request.form("id1"))   
 3str2=trim(request.form("id2"))   
 4str3=trim(request.form("id3"))   
 5arrayA=Split(str1,",")   
 6arrayb=Split(str2,",")   
 7arrayc=Split(str3,",") 
 8
 9For i = 0 to UBound(arrayA)   
10Response.Write "

<li>" & arrayc(i)&"--"&arrayb(i)&"--"&arrayA(i)
Next
'///////////////////写入xml文件
Dim objDom
Dim objRoot
Dim objChild1
Dim objChild2
Dim objChild3
dim objChild4
Dim objPI
Dim PINode
Set objDom = Server.CreateObject("Microsoft.XMLDOM")
'/////写入样式
Set PINode=objDom.CreateProcessingInstruction("xml-stylesheet", "type='text/xsl'

href='list.xsl'")
objDom.appendchild PINode
'/////创建根接点
Set objRoot = objDom.createElement("kucunbiao")

objDom.appendChild objRoot
Set objChild1 = objDom.createElement("jxname")
objChild1.text=jxname

objRoot.appendChild objChild1

Set objChild2 = objDom.createElement("jxadd")
objchild2.text=jxadd

objRoot.appendChild objChild2
set objChild3=objDom.createElement("jxtel")
objChild3.text=jxtel
objRoot.appendChild objChild3
set objChild4=objDom.createElement("kucun")
objRoot.appendChild objChild4
For i = 0 to UBound(arrayA)
Set objField = objDom.createElement("field")

'创建属性taborder。
Set objattTabOrder = objDom.createAttribute("taborder")

'设定taborder的属性值
objattTabOrder.Text = i

'把taborder的属性值追加到field元素中去。
objField.setAttributeNode objattTabOrder

'创建一个新的元素field_value.
Set objFieldValue2= objDom.createElement("name")
objFieldValue2.Text = arrayc(i)
Set objFieldValue = objDom.createElement("guige")

objFieldValue.Text = arrayb(i)
set objFieldValue1=objDom.createElement("shuliang")
objFieldValue1.Text = arrayA(i)
'追加field元素为根元素的子元素。
objChild4.appendChild objField

'追加field_value做为子元素的内容
objField.appendChild objFieldValue
objField.appendChild objFieldValue1
objField.appendChild objFieldValue2
next
Set objPI = objDom.createProcessingInstruction("xml","version='1.0'")

objDom.insertBefore objPI, objDom.childNodes(0)

objDom.Save "f:\xml"&jxname&".xml"
'//////////释放资源
Set objDom = Nothing
Set objRoot = Nothing
Set objField = Nothing
Set objFieldValue = Nothing
Set objattID = Nothing
Set objattTabOrder = Nothing
Set objPI = Nothing
Set PINode=Nothing

 13\. 用xsl显示提交的xml，list.xsl 
 2
 3<?xml version="1.0" encoding="gb2312" ?>
 4<xsl:stylesheet version="1.0" xmlns:xsl=" http://www.w3.org/1999/XSL/Transform ">
 5<xsl:template match="/">
 6<html>
 7<body style="background:#DFEEBB"><left>
 8<h3>姓名：<xsl:value-of select="kucunbiao/jxname"></xsl:value-of></h3>
 9<h3>地址：<xsl:value-of select="kucunbiao/jxadd"></xsl:value-of></h3>
10<h3>电话：<xsl:value-of select="kucunbiao/jxtel"></xsl:value-of></h3>
11<table border="1" width="600">
12<xsl:apply-templates select="kucunbiao/kucun">
13</xsl:apply-templates>
14</table></left>
15</body>
16</html>
17</xsl:template>
18<xsl:template match="kucun">
19<tr>
20<td width="60%"><div align="center">名称</div></td>
21<td width="20%"><div align="center">规格</div></td>
22<td width="20%"><div align="center">数量</div></td>
23</tr>
24<xsl:for-each select="field">
25<tr>
26<td><xsl:value-of select="name"></xsl:value-of></td>
27<td><xsl:value-of select="guige"></xsl:value-of></td>
28<td><xsl:value-of select="shuliang"></xsl:value-of></td>
29</tr>
30</xsl:for-each>
31</xsl:template>
32</xsl:stylesheet>   
33感谢 http://lucky.diy.myrice.com/index.html 技术支持</li>