asp prend les données sous forme dynamique et les écrit dans le fichier XML, et les affiche avec XSL

Auteur：Eve Cole Date de mise à jour：2009-06-24 17:28:05

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

<html>
<tête>
<title>无标题文档</title>
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<langage de script="javascript">
var curRow=null;
vary=1;

fonction selectRow(){
var e=window.event;
var tr1=e.srcElement;
si (curRow)
curRow.bgColor="#FFFFFF";
tr1.bgColor="e7e7e7";
curRow=tr1;
}
fonction addRow(src){
//alerte(src);
var newrow = src.insertRow(src.rows.length-1);
newrow.attachEvent("onclick",selectRow);
newrow.hauteur=20 ;
var je = 4 ;

pendant que(je--){
var newcell = newrow.insertCell();

commutateur(i){
cas 0 : newcell.innerHTML= '<input type="button" onClick="javascript:delRow(this.parentElement.parentElement)" value="删除此行">'+(y++);
document.all.count.value=y-1;
casser;
cas 1 : newcell.innerHTML=div2.innerHTML;break;
cas 2 : newcell.innerHTML=div3.innerHTML;break;
cas 3 : newcell.innerHTML=div4.innerHTML;break;
par défaut : newcell.innerHTML=div1.innerHTML;break;

}
}
//alerte(newrow.outerHTML);
}

function delRow(src){

var tab=src.parentElement;
var je=tab.rows.length;
var j=tab.rows.length;
pendant que(je--){
si(src==tab.rows[i]){
//alerte("就是这行----"+ i);
document.all.count.value=j-3;
tab.deleteRow(i);

}

}
}
</script>
</tête>

<corps>
<form name="form1" action="2.asp" method="post" onsubmit=return(checkv())>
<h3>请输入经销商的通讯信息：</h3>
Nom : <input type="text" name="jxname"><br>
Nom : <input type="text" name="jxadd"><br>
Nom : <input type="text" name="jxtel"><br>
请输入库存信息<br>
<table id="tb" width="100%" border="1" align="center" cellpadding="1" Cellpacing="1" style="border-collapse:collapse" bordercolor="#111111">
<tr>
<th scope="col" width="25%">品名</th>
<th scope="col" width="25%">规格</th>
<th scope="col" width="25%">库存量</th>
<th scope="col" width="25%">操作</th>
</tr>
<tr id="blankRow" onClick="addRow(this.parentElement)">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<input type="hidden" name="count" value="count">
<input type="submit" id="btnSub" name="btnSub" value="提交"><br>
</form>
<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%; background-color:#FFFFEF" valeur ="11"></div>
</corps>
<div id="div3" style="display:none "><select name="id2" style="width:97%; background-color:#FFFFEF" >
<option value="箱">箱</option>
<option value="件">件</option>

</select></div>
<div id="div4" style="display:none "><input id="txt" type="text" name="id3" style="width:97%; background-color:#FFFFEF" value=" 33"></div>
<langage de script="javascript">
fonction checkv()
{

si (form1.jxname.value.length == 0)
{
alert("填写姓名和地址！");
form1.jxname.focus();
renvoie faux ;
}

sinon if(!(check_number(form1.id1.value)))
{
alert("数量只能为数字")
form1.id1.focus();
renvoie faux ;
}
autre
revenir (vrai) ;
}
fonction check_number (monint)
{

</script>
</html>

2. 2.asp文件

<%
'////////////////////取表单数据
réponse.write("共"+request.form("count")+"记录")
je=request.form("count")
jxname=request.form("jxname")
jxadd=request.form("jxadd")
jxtel=request.form("jxtel")
réponse.write(request.form("jxname"))
réponse.write("<br>")
réponse.write(request.form("jxadd"))
réponse.write("<br>")
réponse.write(request.form("jxtel"))
réponse.write("<br>")
str1=trim(request.form("id1"))
str2=trim(request.form("id2"))
str3=trim(request.form("id3"))
tableauA=Split(str1,",")
arrayb=Split(str2,",")
arrayc=Split(str3,",")

Pour i = 0 à UBound(arrayA)
Réponse.Écrire "<LI>" & arrayc(i)&"--"&arrayb(i)&"--"&arrayA(i)
Suivant
'///////////////////写入xml文件
Dim objDom
Faible objRoot
Dim objEnfant1
Dim objEnfant2
Dim objEnfant3
dim objEnfant4
Dim objPI
Faible PINode
Définir objDom = Server.CreateObject("Microsoft.XMLDOM")
'/////写入样式
Définir PINode=objDom.CreateProcessingInstruction("xml-stylesheet", "type='text/xsl'

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

objDom.appendChild objRoot
Définir objChild1 = objDom.createElement("jxname")
objChild1.text=nomjx

objRoot.appendChild objChild1

Définir objChild2 = objDom.createElement("jxadd")
objchild2.text=jxajouter

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

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

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

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

'est une valeur de champ_value.
Définir objFieldValue2= objDom.createElement("name")
objFieldValue2.Text = tableauc(i)
Définir objFieldValue = objDom.createElement("guige")

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

« valeur de champ_valeur »
objField.appendChild objFieldValue
objField.appendChild objFieldValue1
objField.appendChild objFieldValue2
suivant
Définir objPI = objDom.createProcessingInstruction("xml","version='1.0'")

objDom.insertBefore objPI, objDom.childNodes(0)

objDom.Save "f:xml"&jxname&".xml"
'//////////释放资源
Définir objDom = Rien
Définir objRoot = Rien
Définir objField = Rien
Définir objFieldValue = Rien
Définir objattID = Rien
Définir objattTabOrder = Rien
Définir objPI = Rien
Définir PINode = Rien
%>
3. Le fichier xsl contient 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"><gauche>
<h3>姓名：<xsl:value-of select="kucunbiao/jxname"/></h3>
<h3>地址：<xsl:value-of select="kucunbiao/jxadd"/></h3>

</table></left>
</corps>
</html>
</xsl:modèle>
<xsl:template match="kucun">

</xsl:template>

</xsl:stylesheet>
http://lucky.diy.myrice.com/index.html技术支持