ASP按定制格式导出word文件例子

fangzhen

管理员

Rank: 9 Rank: 9 Rank: 9

UID: 1
帖子: 1318
精华: 4
积分: 100
阅读权限: 200
在线时间: 560 小时
注册时间: 2008-10-22
最后登录: 2022-1-26

发短消息
加为好友
当前离线

1^# 大中小发表于 2009-4-14 12:23 只看该作者

ASP按定制格式导出word文件例子

注意：该函数是我在做一个学生成绩管理系统时作得，当用户点击了“导出到word文件”后的执行过程，由于数据库设置的原因，因此需要单独取出用户所在的系，班级，学号
另外这个实现的思路实际是fso生成文件的过程，然后把定制好的word文件保存为html文件，再编辑此html文件，在适当的位置加入动态数据，最后按照规则循环出成绩列表即可
生成的文件名可以任意定义，但是生成文件后必须要用word打开，打开后的文件将是按照您预先定制的格式导出的word文件。
此教程绝无仅有，强烈要求加入FAQ.^0^Sub oput()
did = Trim(Request("did"))
gid = Trim(Request("gid"))
userid = Trim(Request("userid"))
intYears = Trim(Request("intYears"))
If intYears="" Then intYears=1
If userid="" Or IsNumeric(userid)=False Or did="" Or IsNumeric(did)=False Or gid="" Or IsNumeric(gid)=False Then Call Err("","对不起,获取参数错误!")
If intYears="" Then
intYears=1
strCodes=" and intYear="&intYears&""
Elseif intYears=7 then
strCodes=""
Else
strCodes=" and intYear="&intYears&""
End if
Dim objRS,SaveName,objExcel,ExcelPath,fso,MyFile,strchengji,strname,strxueqi,strkecheng
Set objRS = Server.CreateObject("Adodb.Recordset")objRs.Open "Select name from S_Grade where id="&gid&"",Conn,1,1
if objRS.eof then Call Err("","对不起，获取班级出错了，操作被终止。")
banji=objrs("name")
objrs.closeobjRs.Open "Select name from S_Department where id="&Did&"",Conn,1,1
if objRS.eof then Call Err("","对不起，获取系部信息出错了，操作被终止。")
xibu=objrs("name")
objrs.closeobjRs.Open "Select snum from S_User where id="&Userid&"",Conn,1,1
if objRS.eof then Call Err("","对不起，获取学生信息出错了，操作被终止。")
xuesheng=objrs("snum")
objrs.closeobjRS.Open "Select sname,Cname,Score,intYear From S_Cs Where Sid="&Userid&" and did="&did&" and gid="&gid&strCodes&" order by intYear,Cid",Conn,1,1
if objRS.eof then Call Err("","对不起，获取成绩出错了，操作被终止。")Set fso = CreateObject("Scripting.FileSystemObject")
sFileName = StrCreatFileName
Set MyFile = fso.CreateTextFile(Server.MapPath(".") & "\"&sFileName, True)
myString="<html xmlns:o=""urn:schemas-microsoft-com:office:office"""&vbcrlf
myString=myString&"xmlns:w=""urn:schemas-microsoft-com:office:word"""&vbcrlf
myString=myString&"xmlns=""http://www.w3.org/TR/REC-html40"">"&vbcrlf
myString=myString&"<head>"&vbcrlf
myString=myString&"<meta http-equiv=Content-Type content=""text/html; charset=GB2312"">"&vbcrlf
myString=myString&"<meta name=ProgId content=Word.Document>"&vbcrlf
myString=myString&"<meta name=Generator content=""Microsoft Word 9"">"&vbcrlf
myString=myString&"<meta name=Originator content=""Microsoft Word 9"">"&vbcrlf
myString=myString&"<link rel=File-List href=""./姓名.files/filelist.xml"">"&vbcrlf
myString=myString&"<title>潍坊职业学院成绩单</title>"&vbcrlf
myString=myString&""&vbcrlf
myString=myString&"<style>"&vbcrlf
myString=myString&""&vbcrlf
myString=myString&"</style>"&vbcrlf
myString=myString&"</head>"&vbcrlf
'//开始
myString=myString&"<body lang=ZH-CN style='tab-interval:21.0pt;text-justify-trim:punctuation'>"&vbcrlf
myString=myString&"<div class=Section1 style='layout-grid:15.6pt' align=center>"&vbcrlf
myString=myString&"<span"&vbcrlf
myString=myString&"lang=EN-US><![if !supportEmptyParas]> <![endif]><o:p></o:p>"&vbcrlf
myString=myString&"<table border=1 cellspacing=0 cellpadding=0 style='margin-left:-3.6pt;"&vbcrlf
myString=myString&"border-collapse:collapse;border:none;mso-border-alt:solid windowtext .5pt;"&vbcrlf
myString=myString&"mso-padding-alt:0cm 5.4pt 0cm 5.4pt'>"&vbcrlf
myString=myString&"<tr style='height:13.25pt'>"&vbcrlf
myString=myString&"<td width=684 valign=top style='width:513.0pt;border:solid windowtext .5pt;"&vbcrlf
myString=myString&"padding:0cm 5.4pt 0cm 5.4pt;height:13.25pt'>"&vbcrlf
myString=myString&"<span"&vbcrlf
myString=myString&"style='font-size:14.0pt;mso-bidi-font-size:12.0pt;font-family:宋体;mso-ascii-font-family:"&vbcrlf
myString=myString&"""Times New Roman"";mso-hansi-font-family:""Times New Roman""'>潍坊职业学院成绩单<span"&vbcrlf
myString=myString&"lang=EN-US style='font-size:14.0pt;mso-bidi-font-size:12.0pt'><o:p></o:p>"&vbcrlf
myString=myString&"所在系部：<span"&vbcrlf
myString=myString&"style=""mso-spacerun: yes"">"&xibu&" <span"&vbcrlf
myString=myString&"style='font-family:宋体;mso-ascii-font-family:""Times New Roman"";mso-hansi-font-family:"&vbcrlf
myString=myString&"""Times New Roman""'>班级："&banji&" 姓名：<span"&vbcrlf
myString=myString&"lang=EN-US>"&objrs("sname")&" <span"&vbcrlf
myString=myString&"style='font-family:宋体;mso-ascii-font-family:""Times New Roman"";mso-hansi-font-family:"&vbcrlf
myString=myString&"""Times New Roman""'>学号："&xuesheng&""&vbcrlf
myString=myString&"</td>"&vbcrlf
myString=myString&"</tr>"&vbcrlf
myString=myString&"<tr style='height:5.7pt'>"&vbcrlf
myString=myString&"<td width=684 valign=top style='width:513.0pt;border:solid windowtext .5pt;"&vbcrlf
myString=myString&"border-top:none;mso-border-top-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;"&vbcrlf
myString=myString&"height:5.7pt'>"&vbcrlf
myString=myString&"<table border=1 cellspacing=0 cellpadding=0 align=left style='border-collapse:"&vbcrlf
myString=myString&"collapse;border:none;mso-border-alt:solid windowtext .5pt;mso-table-overlap:"&vbcrlf
myString=myString&"never;mso-table-lspace:9.0pt;mso-table-rspace:9.0pt;mso-table-anchor-vertical:"&vbcrlf
myString=myString&"paragraph;mso-table-anchor-horizontal:margin;mso-table-left:left;mso-table-top:"&vbcrlf
myString=myString&"6.65pt;mso-padding-alt:0cm 5.4pt 0cm 5.4pt'>"&vbcrlfmyString=myString&"<tr style='height:2.45pt'>"&vbcrlf
myString=myString&"<td width=177 valign=top style='width:114.75pt;border:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:2.45pt'>"&vbcrlf
myString=myString&"学生姓名</td>"&vbcrlf'//myString=myString&"<td width=177 valign=top style='width:123.85pt;border:solid windowtext .5pt;border-left:none;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:2.45pt'>"&vbcrlf
myString=myString&"课程名称</td>"&vbcrlfmyString=myString&"<td width=177 valign=top style='width:132.7pt;border:solid windowtext .5pt;border-left:none;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:2.45pt'>"&vbcrlf
myString=myString&"考试成绩</td>"&vbcrlfmyString=myString&"<td width=177 valign=top style='width:123.4pt;border:solid windowtext .5pt; border-left:none;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt; height:2.45pt'>"&vbcrlf
myString=myString&"所属学期</td></tr>"&vbcrlf
'//开始循环For i=0 To objRs.recordcount
If objRs.eof or objRs.bof Then Exit Forstrchengji=objRs("Score")
If strchengji<60 Then
strchengji=""&strchengji&"分"
Else
strchengji=""&strchengji&"分"
End if
strname=objRs("Sname")
strxueqi=objRs("intYear")
strkecheng=objRs("Cname")myString=myString&"<tr style='height:2.3pt'>"&vbcrlf
myString=myString&"<td width=177 valign=top style='width:114.75pt;border:solid windowtext .5pt; border-top:none;mso-border-top-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:2.3pt'><![if !supportEmptyParas]> <![endif]><o:p>"&strname&"</o:p></td>"&vbcrlf
myString=myString&"<td width=177 valign=top style='width:123.85pt;border-top:none;border-left:none;border-bottom:solid windowtext .5pt;border-right:solid windowtext .5pt;mso-border-top-alt:solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:2.3pt'><![if !supportEmptyParas]> <![endif]><o:p>"&strkecheng&"</o:p></td>"&vbcrlf
myString=myString&"<td width=177 valign=top style='width:132.7pt;border-top:none;border-left:none;border-bottom:solid windowtext .5pt;border-right:solid windowtext .5pt;mso-border-top-alt:solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:2.3pt'><![if !supportEmptyParas]> <![endif]><o:p>"&strchengji&"</o:p></td>"&vbcrlf
myString=myString&"<td width=177 valign=top style='width:123.4pt;border-top:none;border-left:none;border-bottom:solid windowtext .5pt;border-right:solid windowtext .5pt;mso-border-top-alt:solid windowtext .5pt;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;height:2.3pt'><![if !supportEmptyParas]> <![endif]><o:p>第"&strxueqi&"学期</o:p></td>"&vbcrlf
myString=myString&"</tr>"&vbcrlf
objRs.movenext
Next
'//循环结束myString=myString&"</table><o:p></o:p> </td> </tr> <tr style='height:20.45pt'>"&vbcrlf
myString=myString&"<td width=684 valign=top style='width:513.0pt;border:solid windowtext .5pt;"&vbcrlf
myString=myString&"border-top:none;mso-border-top-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt; height:20.45pt'>"&vbcrlf
myString=myString&"日期："&now&" </td> </tr></table>"&vbcrlf
myString=myString&"</div></body></html>"&vbcrlf
MyFile.WriteLine(myString)
objRs.close
set objRs=nothing
MyFile.Close
set fso=nothing%>
<script language="javascript">
if (confirm("恭喜!\n\n该生的成绩已经被成功导入到Word文件中了!\n\n点击“确定”下载该文档，点击“取消”返回该生的成绩列表！\n\n??<%=CompanyName%>"))
 location.href="?action=download";
else
 location.href="javascript:history.back(1)";
</script>
<%End Sub%>

TOP

‹‹ 上一主题 | 下一主题 ››