100分问个asp操作 Excel 一列加序号的问题

2009-08-25 11:49:09 377 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ASP实现销售报价单ReportViewer（导出Excel,PDF,WORD）【销售报价单样式】【头部信息】客户公司名称，地址，联系人，电话，付款方式，运费，含税，单位，备注【详细信息】序号，产品编号，产品描述，单价，含税机，备注【流程图】【报价单清单】跟客户达成一致协议，确定产品的设计、生产、研发，并对供应商审核通过后，客户会提供一份产品的报价单，报价单内容包含：产品的研发、设计、模具、工具、设备、原料、人工等... 阅读详情

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''加ID编号

set conn4=CreateObject("ADODB.Connection")

conn4.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Edit\"&ExcelFile)&""

exec="select id from [学生信息$]"

set rsa=server.createobject("adodb.recordset")

rsa.open exec,conn4,1,1 

do while not rsa.eof

l=l+1

sql="update [学生信息] set id ='"&l&"' where id ='"&rsa(0)&"'"

'response.write sql&"<br>"

conn4.execute(sql)

rsa.movenext

loop

rsa.close

rs.close

conn4.close

conn.close

set rsa = Nothing

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''