欢迎访问上海市某某有限公司
上海市某某有限公司专注网站制作10年!为企业打造专业的互联网营销解决方案
全国咨询热线: 18123456789
联系我们

上海市某某有限公司

地址:某某市某某区某某公路666弄66号

手机:18123456789

电话:021-6666666

邮箱:313801120@qq.com

当前位置:首页 > 新闻资讯 > 编程语言 > asp >

asp批量修改xls内容

时间:2022/8/22 8:45:32 作者: 点击:105次

代码部分:

 
 <% 
 xlsFile = server.mapPath("edit2.xls")  
 'call echo(xlsFile,checkfile(xlsFile)):doevents 
 set xmlConn = createObject("Adodb.Connection") 
 xmlConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & xlsFile  
 set xmlRs = createObject("Adodb.RecordSet")  
  
 sql="Select * From [Sheet1$]"  
     xmlRs.open sql, xmlConn, 1, 3 
      while not xmlRs.EOF  
         ' call echo(xmlRs(1),xmlRs(2)) 
         ' call echo(xmlRs(3),xmlRs(4)) 
         ' call hr() 
        xmlRs(0)=replace(xmlRs(0),"cn/in.asp?ucs=2","cn/in.asp?ucs=6") 
        xmlRs(1)=6 & mid(xmlRs(1),2) 
        response.write(xmlRs(0) & "<br>") 
        response.write(xmlRs(1) & "<br><hr>") 
        xmlRs.update 
     xmlRs.moveNext : wend : xmlRs.close  
 %>