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

网络编程 2024/11/16 佚名

3 2 1

无为清净楼资源网 Design By www.qnjia.com

<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
var curRow=null;
var y=1;

function selectRow(){
var e=window.event;
var tr1=e.srcElement;
if(curRow)
curRow.bgColor="#FFFFFF";
tr1.bgColor="e7e7e7";
curRow=tr1;
}
function addRow(src){
//alert(src);
var newrow = src.insertRow(src.rows.length-1);
newrow.attachEvent("onclick",selectRow);
newrow.height=20;
var i=4;

while(i--){
var newcell = newrow.insertCell();

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

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

function delRow(src){

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

}

}
}
</script>
</head>

<body>
<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>
    <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" value="11"></div>
</body>
<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>
<script language="javascript">
function checkv()
{

if (form1.jxname.value.length == 0)
   {
    alert("请填写姓名和地址！");
    form1.jxname.focus();
return false;
      }

else if(!(check_number(form1.id1.value)))
  {
   alert("数量只能为数字")
form1.id1.focus();
return false;
}
else
return (true);
}
function check_number(myint)
{

  var checkOK = "0123456789";
  var checkStr = myint;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    return (false);
  }
return (true);
}

</script>
</html>

2.   2.asp文件

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

For i = 0 to UBound(arrayA)
   Response.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
%>
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"><left>
<h3>姓名：<xsl:value-of select="kucunbiao/jxname"/></h3>
<h3>地址：<xsl:value-of select="kucunbiao/jxadd"/></h3>

<h3>电话：<xsl:value-of select="kucunbiao/jxtel"/></h3>
<table border="1" width="600">

     <xsl:apply-templates select="kucunbiao/kucun" >

      </xsl:apply-templates>

   </table></left>
  </body>
  </html>
</xsl:template>
<xsl:template match="kucun">

  <tr>
    <td width="60%"><div align="center">名称</div></td>
    <td width="20%"><div align="center">规格</div></td>
    <td width="20%"><div align="center">数量</div></td>
    </tr>
<xsl:for-each select="field">
  <tr>
<td><xsl:value-of select="name"/></td>
<td><xsl:value-of select="guige"/></td>
<td><xsl:value-of select="shuliang"/></td>
</tr>
   </xsl:for-each>

  </xsl:template>

</xsl:stylesheet>

标签：

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

无为清净楼资源网 Design By www.qnjia.com

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

无为清净楼资源网 Design By www.qnjia.com

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

暂无评论...

www.qnjia.com 无为清净楼资源网

139,976互联网资源

144,792高清电影

21,817无损音乐

631,128技术资源

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

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

实例分析ASP上传漏洞入侵实战及扩展

统计有多少行JS代码和ASP代码

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

RTX 5090要首发性能要翻倍！三星展示GDDR7显存

更新日志

友情链接

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

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

实例分析ASP上传漏洞入侵实战及扩展

统计有多少行JS代码和ASP代码

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

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

更新日志

友情链接

RTX 5090要首发性能要翻倍！三星展示GDDR7显存