1<%
 2set conn=server.createobject("adodb.connection")
 3conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
 4%>
 5<% 
 6 
 7year1=year(now())  '时间
 8mouth1=month(now())
 9d1=day(now())
10T1=hour(now())
11m1=minute(now())
12s1=second(now())
13'timenow=year1&"年"&mouth1&"月"&d1&"日"&t1&"时"&m1&"分"&s1&"秒"
14timenow=year1&"年"&mouth1&"月"&d1&"日"&t1&"时"&m1&"分"&s1&"秒"
15 
16dim filename,fs,fn,table,time
17table="lingjiang"
18time=timenow
19fn=table&"_"&time&"_back_up.xls"
20Set fs = server.CreateObject("scripting.filesystemobject")  
21'filename = Server.MapPath("back_up.xls") 
22filename = Server.MapPath("./"&fn) 
23'--如果原来的EXCEL文件存在的话删除它 
24if fs.FileExists(filename) then 
25fs.DeleteFile(filename) 
26end if 
27 
28 
29set rs=server.createobject("adodb.recordset") 
30 
31sql="select * from sutdent" 
32'要导出的是test.mdb数据库中的student表
33rs.open sql,conn,1,1 
34Set ExcelApp =CreateObject("Excel.Application") 
35ExcelApp.Application.Visible = True 
36Set ExcelBook = ExcelApp.Workbooks.Add 
37ExcelBook.WorkSheets(1).cells(1,1).value ="student表" 
38 
39ExcelBook.WorkSheets(1).cells(2,1).value ="序列号"   
40 
41ExcelBook.WorkSheets(1).cells(2,2).value = "姓名"  
42 
43ExcelBook.WorkSheets(1).cells(2,3).value = "身份证"  
44 
45ExcelBook.WorkSheets(1).cells(2,4).value = "学生卡号卡"  
46 
47ExcelBook.WorkSheets(1).cells(2,5).value = "状态" 
48 
49ExcelBook.WorkSheets(1).cells(2,6).value = "时间"  
50 
51ExcelBook.WorkSheets(1).cells(2,7).value = "手机号"   
52 
53cnt =3  
54 
55do while not rs.eof  
56 
57ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("iden")  
58 
59ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("name")  
60 
61ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("id_card")  
62 
63ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("studentno") 
64ExcelBook.WorkSheets(1).cells(cnt,5).value = rs("state")
65ExcelBook.WorkSheets(1).cells(cnt,6).value = rs("dtime")
66ExcelBook.WorkSheets(1).cells(cnt,7).value = rs("phone")
67 
68rs.movenext  
69cnt = cint(cnt) + 1  
70loop  
71rs.close
72set rs=nothing
73 
74Excelbook.SaveAs filename   '这个是数据导出完毕以后存在filename处的 
75 
76ExcelApp.Application.Quit     '导出以后退出Excel 
77 
78Set ExcelApp = Nothing     '注销Excel对象 
79 
80 
81response.write "<center>已导出为:"&filename &"<br></center>"
82Response.Write "<BR><BR><center><b>导出成功,请选择继续操作</b></center>"
83response.Write "<table width=90% cellspacing=1 cellpadding=3 align=center>"
84Response.Write "<tr align=center> <td>"
85response.write ("<font color=green>√</font><a href='"&fn&"'>下载</a>") & "  <font color=green>√</font><a href=javascript:window.close()>关闭</a>"
86Response.Write "</td></tr></table>"
87 
88%>