asp取動態表單中資料並寫入xml檔,用xsl顯示

作者：Eve Cole 更新時間：2009-06-24 17:28:05

1.動態表單的介面，來自csdn論壇上參考

<html>
<頭>
<title>無標題文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<腳本語言=“javascript”>
var curRow=null;
var y=1;

函數選取行(){
var e=window.event;
var tr1=e.srcElement;
if(目前行)
curRow.bgColor="#FFFFFF";
tr1.bgColor="e7e7e7";
當前行=tr1;
}
函數addRow(src){
//警報（src）；
var newrow = src.insertRow(src.rows.length-1);
newrow.attachEvent("onclick",selectRow);
newrow.height=20；
變數 i = 4;

而（我--）{
var newcell = newrow.insertCell();

開關（一）{
case 0: newcell.innerHTML= '<input type="button" onClick="javascript:delRow(this.parentElement.parentElement)" value="刪除此行">'+(y++);
document.all.count.value=y-1;
休息;
情況1：newcell.innerHTML=div2.innerHTML;break;
情況2：newcell.innerHTML=div3.innerHTML;break;
情況3：newcell.innerHTML=div4.innerHTML;break;
預設值：newcell.innerHTML=div1.innerHTML;break;

}
}
//警報(newrow.outerHTML);
}

函數 delRow(src){

var tab=src.parentElement;
var i=tab.rows.length;
var j=tab.rows.length;
而（我--）{
if(src==tab.rows[i]){
//alert("就是這行----"+ i);
document.all.count.value=j-3;
tab.deleteRow(i);

}

}
}
</腳本>
</頭>

<內文>
<form name="form1" action="2.asp" method="post" onsubmit=return(checkv())>
<h3>請輸入經銷商的通訊資訊：</h3>
姓氏：<input type="text" name="jxname"><br>
位址: <input type="text" name="jxadd"><br>
電話: <input type="text" name="jxtel"><br>
請輸入庫存資訊<br>
<table id="tb" width="100%" border="1"align="center" cellpadding="1" cellspacing="1" style="border-collapse:collapse" bordercolor="#111111">
<tr>
<thscope="col" width="25%">品名</th>
<thscope="col" width="25%">規格</th>
<thscope="col" width="25%">庫存量</th>
<thscope="col" width="25%">操作</th>
</tr>
<tr id="blankRow" onClick="addRow(this.parentElement)">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</表>
<輸入類型=“隱藏”名稱=“計數”值=“計數”>
<input type="submit" id="btnSub" name="btnSub" value="提交"><br>
</形式>
<div id="div1" style="display:none"><input id="txt" type="text" name="id" style="width:97%; background-color:#FFFFEF"></ div>

<div id="div2" style="display:none "><input id="txt" type="text" name="id1" style="width:97%; 背景顏色:#FFFFEF" 值= “11”></div>
</正文>
<div id="div3" style="display:none"><select name="id2" style="width:97%; 背景顏色:#FFFFEF">
<選項值=“箱”>箱</選項>
<選項值=“件”>件</選項>

</選擇></div>
<div id="div4" style="display:none "><input id="txt" type="text" name="id3" style="width:97%; 背景顏色:#FFFFEF" value=" 33 "></div>
<腳本語言=“javascript”>
函數 checkv()
{

if (form1.jxname.value.length == 0)
{
alert("請填寫姓名和地址！");
form1.jxname.focus();
返回假；
}

else if(!(check_number(form1.id1.value)))
{
alert("數量只能為數字")
form1.id1.focus();
返回假；
}
別的
返回（真）；
}
函數 check_number(myint)
{

</腳本>
</html>

2. 2.asp檔

<%
'////////////////////取表單數據
response.write("共"+request.form("count")+"記錄")
i=request.form("計數")
jxname=request.form("jxname")
jxadd=request.form("jxadd")
jxtel=request.form("jxtel")
回應.write（請求.form（“jxname”））
回應.write("<br>")
回應.write（請求.form（“jxadd”））
回應.write("<br>")
回應.write（請求.form（“jxtel”））
回應.write("<br>")
str1=trim(request.form("id1"))
str2=trim(request.form("id2"))
str3=trim(request.form("id3"))
arrayA=分割(str1,",")
arrayb=分割(str2,",")
arrayc=Split(str3,",")

對於 i = 0 到 UBound(arrayA)
Response.Write "<LI>" & arrayc(i)&"--"&arrayb(i)&"--"&arrayA(i)
下一個
'///////////////////寫入xml文件
昏暗的物件Dom
調暗 objRoot
調暗 objChild1
調暗 objChild2
調暗 objChild3
昏暗的 objChild4
調暗 objPI
暗淡 PI 節點
設定 objDom = Server.CreateObject("Microsoft.XMLDOM")
'///// 書寫樣式
設定 PINode=objDom.CreateProcessingInstruction("xml-stylesheet", "type='text/xsl'

href='list.xsl'")
objDom.appendchild PINode
'/////建立根接點
設定 objRoot = objDom.createElement("kucunbiao")

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

objRoot.appendChild objChild1

設定 objChild2 = objDom.createElement("jxadd")
objchild2.text=jxadd

objRoot.appendChild objChild2
設定 objChild3=objDom.createElement("jxtel")
objChild3.text=jxtel
objRoot.appendChild objChild3
設定 objChild4=objDom.createElement("kucun")
objRoot.appendChild objChild4
對於 i = 0 到 UBound(arrayA)
Set objField = objDom.createElement("field")

'建立屬性taborder。
Set objattTabOrder = objDom.createAttribute("taborder")

'設定taborder的屬性值
objattTabOrder.Text = i

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

'建立一個新的元素field_value。
設定 objFieldValue2= objDom.createElement("name")
objFieldValue2.Text = arrayc(i)
設定 objFieldValue = objDom.createElement("guige")

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

'追加field_value做為子元素的內容
objField.appendChild objFieldValue
objField.appendChild objFieldValue1
objField.appendChild objFieldValue2
下一個
設定 objPI = objDom.createProcessingInstruction("xml","version='1.0'")

objDom.insertBefore objPI, objDom.childNodes(0)

objDom.Save "f:xml"&jxname&".xml"
'//////////釋放資源
設定 objDom = 無
設定 objRoot = 無
設定 objField = 無
設定 objFieldValue = 無
設定 objattID = 無
設定 objattTabOrder = 無
設定 objPI = 無
設定 PINode=無
%>
3. 使用xsl顯示提交的xml，list.xsl

<?xml version="1.0"encoding="gb2312" ?>
<xsl:stylesheet version="1.0" xmlns:xsl=" http://www.w3.org/1999/XSL/Transform ">

<xsl:template match="/">
<html>
<body style="background:#DFEEBB"><左>
<h3>姓名：<xsl:value-of select="kucunbiao/jxname"/></h3>
<h3>位址：<xsl:value-of select="kucunbiao/jxadd"/></h3>

</table></left>
</正文>
</html>
</xsl：模板>
<xsl:template match="kucun">

</xsl：範本>

</xsl：樣式表>
感謝http://lucky.diy.myrice.com/index.html技術支持