mdb 数据成绩导出到 Excel

2025-09-29 03:41:11

1、打开记事本

2、将以下文件复制入记事本，并保存为"conn.asp" 注意文件名不能改

dim conn,rs

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

conn="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

dim conn1,rs1

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

conn1="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

3、将以下文件复制入记事本，保存为exceltomdb.asp文件名，这个文件名可以改

<head>

<title>生成成绩文件</title>

</head>

dim sql,filename,fs,myfile,x

Set 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

loop

end if

rs.Close

set rs=nothing

Set 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，就可以试验了

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。