关于ASP调用WORD打印_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

关于ASP调用WORD打印

作者：闵涛文章来源：闵涛的学习笔记点击数：1641 更新时间：2011/10/13 14:47:26

关于ASP调用WORD打印我看了一个例子，是ASP调用WORD打印，非常好。
但它是通过表单提交的方式进行的，我想通过链接传递参数，不知该如何写，
请大家帮忙：

全部语句见下，

以下是代码片段：
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>生成word文档</title>
</head>
<script language="vbscript">
sub builddoc()
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.typetext document.form1.doc1.value '问题：这句话是通过表单提交得到参数的，若是页面通过.asp?a=name&b=sex这样的方式将参数传过来，该怎么接受呢？我用aa=request.QueryString("a") 是无法提出传递参数的，该怎么做呢？                      wApp.Selection.TypeParagraph


                  rem 居右
               wApp.Selection.TypeParagraph
               wApp.Selection.Font.Bold = false
               wApp.Selection.TypeText "一九九九年五月"
               wApp.Selection.TypeParagraph
               wApp.Saved = true
               wapp.ActiveDocument.SaveAs "c:\a.doc"
               wapp.close

end if
end sub
</script>
<body>
<form name="form1" >
<p>　</p>
<p><textarea rows="8" name="doc1" cols="46"></textarea></p>
<p>　</p>
<p>生成word文档<input type="button" value="生成" name="B1" onclick="builddoc()"></p>
</form>
</body>
</html>

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： ASP+模板生成Word、Excel、静态页的方法详解

下一篇教程： ASP生成Word文档的方法

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Web开发  · 网页制作
· 平面设计  · 网站运营
· 网站推广  · 搜索优化
· 建站心得  · 站长故事
· 互联动态

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……