快网首页 | 虚拟主机 | 域名注册 | 特惠套餐 | 企业邮局 | SQLTTG老虎机注册 | IDC业务 | 全球通邮
如何使用ASP进行打印操作
客服中心 新闻动态 常见问题 常用资料 知识学堂 走近客服 在线提问 网站导航
如何使用ASP进行打印操作
网页设计 | 操作系统 | 程序开发 | Dos 命令 | 平面设计 | 办公软件

 您的位置: 快网首页 >> 客服中心 >> 知识学堂 >> 程序开发 >> 文章正文

如何使用ASP进行打印操作
供稿:润之康   时间:2009-3-9 21:47:45

使用到的技术:
ASP,WSH,VBScript
文件ASPPrint.asp代码如下:
  <%@ Language=VBScript %>
  <%
  Option Explicit

  Dim strSubmit        'Form中用来保存提交按钮的值
  Dim strPrinterPath    'Form中保存网络打印机路径的值
  Dim strUsername      'Form中用户名的值
  Dim strPassword      'Form中密码的值
  Dim strMessage        'Form打印内容的值
  Dim objFS            'VBScript中的文件系统对象
  Dim objWSHNet        'WSH中的网络对象
  Dim objPrinter        '打印对象

  strSubmit = Request.Form("Submit")
  %>

 
 
 
 
 

  <%
  If strSubmit = "" Then
  %>

  注意的是:
      由于我是演示起见,其中有关NT的帐号和密码都是使用了不加密的手段在ASP中传递的
  真正的运用中应该对该登录过程进行安全处理。
 


   
       
         
         
       
       
         
         
       
       
         
         
       
       
         
         
       
       
         
         
       
   
网络打印机路径:              value="\\\">
登录帐号:              value="<% = strUsername %>">
登录口令:              name=password>
请输入你想打印的文字:
               id=submit name=submit>

 

  当以上信息被提交后,就可以按照下面的代码进行打印了。
  <%
  Else
    ' 从form中取得响应信息。
    strPrinterPath = Request.Form("printerpath")
    strUsername = Request.Form("username")
    strPassword = Request.Form("password")
    strMessage = Request.Form("message")

  We will now use the VBScript FileSystemObject object and the WSH Network object. The Network object will
  give us the methods we need to open a printer connection, and the FileSystemObject will allow us to stream our
  output to the printer. We create these objects in the following code example:

    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objWSHNet = CreateObject("WScript.Network")
    ' 使用WSH连接网络打印机
    objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, strUsername, strPassword
    ' 使用文件系统对象将打印设备作为一个文件使用
    Set objPrinter = objFS.CreateTextFile("LPT1:", True)
    ' 给打印设备送出文本
    objPrinter.Write(strMessage)
    '关闭打印设备对象并进行错误陷阱处理
    On Error Resume Next
    objPrinter.Close
    ' 如果发生错误,关闭打印连接,并输出错误信息
    If Err Then
        Response.Write ("Error # " & CStr(Err.Number) & " " & Err.Description)
        Err.Clear
    Else
        ' 操作成功,输出确认信息
        Response.Write("

")
        Response.Write("")
        Response.Write("")
        Response.Write("")
        Response.Write("")
        Response.Write("")
        Response.Write("")
        Response.Write("")
        Response.Write("
打印消息送出:" & strMessage & "
网络打印机路径:" & strPrinterPath & "
登录帐号:" & strUsername & "
")
        Response.Write("
")
    End If
    ' 取消打印连接
    objWSHNet.RemovePrinterConnection "LPT1:"
    Set objWSHNet  = Nothing
    Set objFS      = Nothing
    Set objPrinter = Nothing
  End If
  %>
 
 


快网保留以上说明的最终解释权
快网,域名注册,虚拟主机,ASPTTG老虎机注册,企业邮局,SQLTTG老虎机注册,主机租用,主机托管
热门搜索:FTP 域名 DNS 备案 TTG老虎机注册 邮箱 SQL 主机 快网 中文域名 虚拟主机
快网,域名注册,虚拟主机,ASPTTG老虎机注册,企业邮局,SQLTTG老虎机注册,主机租用,主机托管
快网客服中心的相关信息:
v WEB应用中报表打印的实现 [2009-3-9 21:45:29]
v vbscript错误代码及对应解释大全 [2009-3-9 21:43:18]
v Request和Response对象 [2009-3-9 21:39:47]
v Shell 函数 详解 [2009-3-4 14:22:22]
v 修补upfile.asp上传漏洞 [2009-3-4 13:58:15]
快网,域名注册,虚拟主机,ASPTTG老虎机注册,企业邮局,SQLTTG老虎机注册,主机租用,主机托管
快网,域名注册,虚拟主机,ASPTTG老虎机注册,企业邮局,SQLTTG老虎机注册,主机租用,主机托管
如果您在使用我们的产品中遇到问题,建议您首先在“常见问题”中查询解决方法;
如果没有找到该问题的解决方法,您可以在“问题搜索”中进行搜索;
如果搜索后没有找到满意答案,您可以“在线提问”,我们会尽快给您答复。
快网,域名注册,虚拟主机,ASPTTG老虎机注册,企业邮局,SQLTTG老虎机注册,主机租用,主机托管
域名注册查询 中文域名转码
域名whois查询 网站PR值查询
快网,域名注册,虚拟主机,ASPTTG老虎机注册,企业邮局,SQLTTG老虎机注册,主机租用,主机托管

:::::: | 收藏本站 | 关于我们 | 客服中心 | 付款方式 | 联系我们 | 网站律师 | 工作机会 | 网站地图 | 产品管理 | ::::::

Copyright (C) 2003-2008 天津追日科技发展有限公司 dsn-caipiao.top 快网.cn 中国快网.cn