欢迎您访问无锡国力软件

技术文档 -- 详情

ASP导入导出EXCEL匹配ACCESS

时间:2017/04/08 浏览:630

只要读取了EXCLE数据,那么就很好导入了,以下为导入数据库代码:

if action="import" and instr(import,"导入")>0 then
all_data=trim(request.form("import_val"))
data_arr=split(all_data,"{$}")
Item_Field_Arr=split(Item_Field,"#")
Item_Field_s=lcase(Item_Field_Arr(1))
for i=1 to ubound(data_arr)
f=trim(data_arr(i))
f=right(f,len(f)-1)
s="insert into ["&eTable&"] ("&Item_Field_s&") values ("&f&")"
conn.execute(s) 
next
end if
导出EXCLE:

if action="Export" then

Num=int(request("Num")) '导出记录数
SavePath="../attached/" '保存路径
Filed=trim(request("Filed")) : if Filed="" then Filed="*"
sql="select "&Filed&" from ["&eTable&"] where "&trim(request("Condition"))&" order by ItemID desc"
'response.write sql
'response.End()
'-------------------------------------        
Set rs=Server.CreateObject("ADODB.Recordset")   
rs.open sql,conn,1,1
if not rs.EOF then  
totalnum=rs.recordcount
if totalnum mod Num=0 then '分页导出,避免文件太大
page = Int(totalnum/Num) 
else
page = Int(totalnum/Num)+1
end if
if page<=1 then page=1
for p=1 to page
dim rs,sql,filename,fs,myfile,x   
Set fs=server.CreateObject("scripting.filesystemobject")   
filename=Server.MapPath(SavePath)&"/"&date()&"-"&p&".xls"
if fs.FileExists(filename) then fs.DeleteFile(filename) '如果有文件则删除覆盖      
set myfile=fs.CreateTextFile(filename,true)
dim strLine,responsestr       
strLine=""   
For each x in rs.fields
f_name=x.name '初始字段
f_name=getFN(f_name,"note") '转换字段说明文字 
strLine=strLine & f_name & chr(9) '输出字段名称  
Next
myfile.writeline strLine

for i=1 to Num
if rs.EOF then exit for
strLine=""   
for each x in rs.Fields
val=""
if trim(x.value)<>"" then val=trim(x.value)
strLine=strLine & val & chr(9) '输出内容
next 
myfile.writeline strLine   
rs.MoveNext   
next
downfile = SavePath&date()&"-"&p&".xls"  
response.write ("<a href='"&downfile&"'>["&downfile&"] <font color=green>√</font></a></br>")
next  
end if   
rs.Close       
set rs=nothing
end if


0 条评论
已输入 0
发  布
查看更多评论
已加载完所有评论

联系我们

332003288

咨询扣扣:332003288
联系电话:15874676201

返回网站顶部