mdb 数据成绩导出到 Excel

时间：2024-10-12 01:01:52

1、打开记事本

2、将以下文件复制入记事本，并保存为"conn.asp" 注意文件名不能改<%dim conn,rsset rs=serv髫潋啜缅er.createobject("adodb.recordset")conn="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"dim conn1,rs1set rs1=server.createobject("adodb.recordset")conn1="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"%>

3、将以下文件复制入记事本，保存为exceltomdb.asp文件名，这个文件名可以改<head><LINK href="../css.css" type=text/css rel=stylesheet><title>生成成绩文件</title></head><body style="font-size: 11pt"><center><%dim sql,filename,fs,myfile,xSet fs = server.CreateObject("scripting.filesystemobject")'--假设你想让生成的EXCEL文件做如下的存放filename = Server.MapPath("7.xls")'--如果原来的EXCEL文件存在的话删除它if fs.FileExists(filename) then fs.DeleteFile(filename)end if'--创建EXCEL文件set myfile = fs.CreateTextFile(filename,true)sql="select * from Cj order by 年级,试场号,座位号"rs.Open sql,conn,1,3'--报表已成功生成Excel表格 if not rs.eof and not rs.bof then dim trLine,responsestr strLine="" strLine="序号"&chr(9) &"年级"&chr(9) &"班级"&chr(9) &"学号"&chr(9) &"姓名"&chr(9) &"原班"&chr(9) &"试场号"&chr(9)&"座位号"&chr(9) &"教室"&chr(9)&"语文"&chr(9) &"数学"&chr(9) &"英语"&chr(9) &"物理"&chr(9) &"化学"&chr(9) &"思品"&chr(9) &"历史"&chr(9) &"地理"&chr(9) &"生物"'--将表的列名先写入EXCEL myfile.writeline strLine Do while Not rs.EOF strLine="" strLine=rs("序号")&chr(9) &rs("年级")&chr(9) &rs("班级")&chr(9) &rs("学号")&chr(9) &rs("姓名")&chr(9) &rs("原班")&chr(9) &rs("试场号")&chr(9) &rs("座位号")&chr(9) &rs("教室")&chr(9) &rs("语文")&chr(9) &rs("数学")&chr(9) &rs("英语")&chr(9) &rs("物理")&chr(9) &rs("化学")&chr(9) &rs("思品")&chr(9) &rs("历史")&chr(9) &rs("地理")&chr(9) &rs("生物") myfile.writeline strLine rs.MoveNext loopend if%><%rs.Closeset rs=nothingSet Conn=nothing%>右键点击以下连接→选“目标另存为”可保存到本地计算机 <a href="7.xls" target="_blank">七年级考试成绩</a></center></body>

4、建立一个MDB数据库文件，文件名为data.mdb在数据库里建立一个表格，表名为Cj，含有以下字段序号年级班级学号姓名原班试场号座位号教室语文数学英语物理化学思品历史地理生物

5、将第2步，第3步，第4步文件，以下网上下载的asp服务器软件Sws 2.4.exe放入同一个文件夹，打开Sws 2.4.exe，就可以试验了