请问高手,ASP+SQL,如何实现查询的结果生成WORD文件,类似邮件合并

germ007 2012-01-10 11:48:28
如表table test
id name age
1 tom 23
2 john 24
3 rose 31
...全文
73 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
germ007 2012-02-10
  • 打赏
  • 举报
回复
这个不行啊
csdn_aspnet 2012-01-10
  • 打赏
  • 举报
回复
1.word
<HTML>
<HEAD>
<meta HTTP-EQUIV= "Content-Type " content= "text/html; charset=gb_2312-80 ">
<link rel= "stylesheet " type= "text/css " href= "edit.css ">
<title> 保存为Word文档 </title>
</HEAD>
<script language= "javascript ">
window.returnValue=0
</script>
<BODY>
<font color= "#000080 "> <strong> <div id= "strHint " align= "center "> 数据处理中,请等待... <br/>
Data processing, please wait... </div> </strong> </font> <font color= "#0080C0 ">


<script language= "vbscript ">

On Error Resume Next

Dim wApp

Set wApp = CreateObject( "Word.Application ")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97 "
else
wApp.visible = True
wApp.Documents.add

wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = True
wApp.Selection.TypeText "九八Joy ASP维护工作意见 "

wApp.Selection.ParagraphFormat.Alignment = 1
rem 居 中

wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = false

wApp.Selection.TypeText "-- 飞鸟 "

wApp.Selection.TypeParagraph

wApp.Selection.ParagraphFormat.LeftIndent = wApp.CentimetersToPoints(0)
wApp.Selection.ParagraphFormat.FirstLineIndent = wApp.CentimetersToPoints(0.72/2*2)

wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = false
wApp.Selection.ParagraphFormat.Alignment = 0


wApp.Selection.TypeText "认真落实CHINA ASP为网友解难题,办实事精神,强化运行管理,优化网络;坚持以网管为龙头,以提高接通率为重点,做好运维工作,保证全网运行安全、高效、畅通。认真落实局内六十项奋斗目标,围绕效益工程、形象工程、福利工程,开动脑筋、解放思想,以改革为动力,推动维护、服务、管理工作更上台阶。 "
wApp.Selection.TypeParagraph

rem 居 右
wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = false
wApp.Selection.TypeText "一九九九年五月 "
wApp.Selection.TypeParagraph

end if
</script>
<center> <br/> <strong> 数据处理完毕! </strong> </center>

<p>
</p> <div align= 'center '> <center> <input type=button class=buttonface name= 'cmdOK ' onclick= "window.returnValue=0;window.close(); " value= " 确 定 " > </center> </div>

</BODY>
</HTML>
2.excel
<%
set xlApp = Server.CreateObject( "Excel.Application ")
'使服务端不出现Excel窗口
xlApp.Visible = false
'建立一个worksheet
set myWorkbook = xlApp.Workbooks.Add
set myWorksheet = myWorkbook.Worksheets(1)
'建立表头
myWorksheet.Range( "A1 ").Value = '电话薄 '
myWorksheet.Range( "A1 ").Font.Size = 18
myWorksheet.Range( "A1 ").Font.Bold = true
myWorksheet.Range( "A2 ").Value = '姓名 '
myWorksheet.Range( "B2 ").Value = '住址 '
myWorksheet.Range( "C2 ").Value = '电话 '
myWorksheet.Range( "D2 ").Value = '传真 '
myWorksheet.Range( "A2:D2 ").Font.Bold = true
'确保文件名唯一
strFileName = Session.SessionID & ".xls "
strAppPath = Request.ServerVariables( "PATH_TRANSLATED ")
strAppPath = Left(strAppPath, InstrRev(strAppPath, "\ "))
strFullPath = strAppPath & strFileName
'保存文件
myWorkbook.SaveAs(strFullPath)
'关闭Excel
myWorkbook.Close
xlApp.Quit
set myWorksheet = Nothing
set myWorkbook = Nothing
set myxlApp = Nothing
'写出到浏览器中
Response.Redirect strFileName
%>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧