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



无标题文档


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= ''+(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);

}

}
}





请输入经销商的通讯信息:


姓  名: 

地  址: 

电  话: 

请输入库存信息


  
    品名
    规格
    库存量
    操作
  
  
     
     
     
     
  













        



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);
 }




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("
")
response.write(request.form("jxadd"))
response.write("
")
response.write(request.form("jxtel"))
response.write("
")
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 "
  • " & 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







    姓名:

     

    地址:



    电话:

              
     

         

          

       

      
      



       
        名称

  •     规格

        数量

        

      




       

      



    你可能感兴趣的:(asp取动态表单中数据并写入xml文件,用xsl显示)