社区
ASP
帖子详情
请问高手,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
打赏
收藏
请问高手,ASP+SQL,如何实现查询的结果生成WORD文件,类似邮件合并
如表table test id name age 1 tom 23 2 john 24 3 rose 31
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
%>
ASP
升级.net资料大全(c#入门 语言规范 源码教程 学习笔记 技术资料 面试题
asp
与.net代码
生成
器)
asp
x/
asp
代码
生成
器 语言规范 C# Language Specification 1.2(C#语言规范1.2).doc C# Language Specification 2.0(C#语言规范2.0).doc 源码教程
ASP
.NET编程技术与交互式网页设计
asp
.net亲密接触_带源码 C#...
Echarts+
Asp
.Net+
Sql
Server报表开发视频教程
本套教程采用vs2012+
sql
2012开发,以销售明细表为例,讲解了常见报表的开发过程,既包含了传统的表格形式的报表、又包含了柱状图(条形图)、饼状图、环形图、南丁格尔图、曲线图、折线图、面积图等,前端使用ajax...
最好的
asp
CMS系统科讯CMSV7.0全功能
SQL
商业版,KesionCMS V7.0最新商业全能版-免费下载
科汛cms(Kesioncms)是基于采用网络中已经成熟、稳定的技术
ASP
+ACCESS(
SQL
2000/2005)开发而成,利用本系统您可以很方便地管理自己的网站。本系统是一款由文章、图片、下载、分类信息、商城、求职招聘、影视、动漫...
ASP
28,390
社区成员
357,068
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章