����λ�ã���ҳ����Ѷ������һ���� ASP��access���ݵ���Ϊexcel���ӱ�ķ���

ASP��access���ݵ���Ϊexcel���ӱ�ķ���

ʱ�䣺2011/5/10 8:35:36��Դ�������������ߣ�zhkyzj��Ҫ����(3)

ASP�������Դ����

��Ȩ�������� ��С��148KB ���ԣ� Ӣ��

���ص�ַ

��һ���ͻ�Ҫ���̨���ɴ���������ÿ�����ɼ��������Ļ�Ա���ż����룬���ȡ����ɵĻ�Ա���ż�����Ҫӡ���ڿ��϶Ի�Ա���š����ɴ��������ڿ��У�ӡ�ƿ�Ƭ�ij���Ҫ�õ����ݽ���ӡ����ô���أ�

�������뵽�ô��뽫access�е���������Excel�������ӡ�������Ϳ������������ϲ���������Ͽɶ����������⣬���Լ�����д����������ַų�������ҷ������֪��д��������࣬����Ҫ�û���ת��ʱһ��ע��������http://www.6yee.cn

����Ϊ���룺

����Ϊ���õ����ݣ� <% if session("china_admin")="" then response.redirect "login.asp" dbpath="../" dblink dim filename,fs,myfile,x,m,n,o,link Set fs = server.CreateObject("scripting.filesystemobject") Set rs = Server.CreateObject("ADODB.Recordset") session("sql") = "select * from china_car" rs.Open session("sql"),conn,1,1 n=1 '================================================================== '==============================================================����excel�ļ�ϵͳ filename = Server.MapPath("car/CarTable"&n&".xls") '�����Ϊ�˷��㣬�½�һ��CAR���ļ��У���������Լ����� if fs.FileExists(filename) then'����ļ����ڣ��������� fs.DeleteFile(filename) end if set myfile = fs.CreateTextFile(filename,true) '======================================================================== dim strLine,responsestr strLine="" dim work,j,i str="���|����|����|������|���"����'����������access���ݱ��ֶ����á� work=split(str,"|") j=ubound(work) i=0 o=0 do while not i>j strLine= strLine & work(i) & chr(9) i=i+1 loop myfile.writeline strLine Do while Not rs.EOF o=o+1 m=20000 strLine="" for each x in rs.Fields strLine= strLine & x.value & chr(9) if o>=m*n then n=n+1 filename = Server.MapPath("car/CarTable"&n&".xls") '��������Լ����� if fs.FileExists(filename) then'����ļ����ڣ��������� fs.DeleteFile(filename) end if set myfile = fs.CreateTextFile(filename,true) end if next myfile.writeline strLine rs.MoveNext loop rs.Close set rs = nothing conn.close set conn = nothing set myfile = nothing Set fs=Nothing ExcelPath="car/CarTable"&n&".xls" response.Write "�����ɹ�����" response.write("����") %>

����Ķ�asp����javascript�ϴ�ͼƬ���Ƹ�ʽ��С����ie6����asp.net mvc3 ����Ӧ�ó���ASP��վ��װ���ɹ��Ľ���취asp������ת������������������ASP����11�����ݿ�ij����﷨���ɣ���ASP���ߴ���Word��Excel�ĵ�ASPľ��������ܵ��ƽⷽ����asp.net mvc��ʵ���Ҽ��˵��ͼķ�ҳ�̳�

��������

�鿴����3������>>

��������

����˵����...

�ύ����