{"id":211,"date":"2008-12-04T09:05:12","date_gmt":"2008-12-04T01:05:12","guid":{"rendered":""},"modified":"2014-02-27T23:00:25","modified_gmt":"2014-02-27T15:00:25","slug":"%e5%a6%82%e4%bd%95%e5%9c%a8asp%e4%b8%ad%e5%ae%9e%e7%8e%b0%e7%bd%91%e7%bb%9c%e6%89%93%e5%8d%b0%e5%8a%9f%e8%83%bd","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2008\/12\/04\/211.htm","title":{"rendered":"\u5982\u4f55\u5728ASP\u4e2d\u5b9e\u73b0\u7f51\u7edc\u6253\u5370\u529f\u80fd"},"content":{"rendered":"

\u4f7f\u7528\u5230\u7684\u6280\u672f\uff1a
\nASP,WSH,VBScript
\n\u6587\u4ef6ASPPrint.asp\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n

\n  <%@ Language=VBScript %>
\n  <%
\n  Option Explicit <\/p>\n

  Dim strSubmit         ‘Form\u4e2d\u7528\u6765\u4fdd\u5b58\u63d0\u4ea4\u6309\u94ae\u7684\u503c
\n  Dim strPrinterPath    ‘Form\u4e2d\u4fdd\u5b58\u7f51\u7edc<\/a>\u6253\u5370\u673a\u8def\u5f84\u7684\u503c
\n  Dim strUsername       ‘Form\u4e2d\u7528\u6237\u540d\u7684\u503c
\n  Dim strPassword       ‘Form\u4e2d\u5bc6\u7801\u7684\u503c
\n  Dim strMessage        ‘Form\u6253\u5370\u5185\u5bb9\u7684\u503c
\n  Dim objFS             ‘VBScript\u4e2d\u7684\u6587\u4ef6\u7cfb\u7edf\u5bf9\u8c61
\n  Dim objWSHNet         ‘WSH\u4e2d\u7684\u7f51\u7edc<\/a>\u5bf9\u8c61
\n  Dim objPrinter        ‘\u6253\u5370\u5bf9\u8c61 <\/p>\n

  strSubmit = Request.Form("Submit")
\n  %> <\/p>\n

  <HTML>
\n  <HEAD>
\n  <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
\n  <\/HEAD>
\n  <BODY> <\/p>\n

  <%
\n  If strSubmit = "" Then
\n  %> <\/p>\n

  \u6ce8\u610f\u7684\u662f\uff1a
\n      \u7531\u4e8e\u6211\u662f\u6f14\u793a\u8d77\u89c1\uff0c\u5176\u4e2d\u6709\u5173NT\u7684\u5e10\u53f7\u548c\u5bc6\u7801\u90fd\u662f\u4f7f\u7528\u4e86\u4e0d\u52a0\u5bc6\u7684\u624b\u6bb5\u5728
\nASP\u4e2d\u4f20\u9012\u7684
\n  \u771f\u6b63\u7684\u8fd0\u7528\u4e2d\u5e94\u8be5\u5bf9\u8be5\u767b\u5f55\u8fc7\u7a0b\u8fdb\u884c\u5b89\u5168\u5904\u7406\u3002
\n  <FORM action="ASPPrint.asp" method=POST id=form name=form>
\n     <TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING
\n=1>
\n        <TR>
\n           <TD ALIGN=right NOWRAP>\u7f51\u7edc<\/a>\u6253\u5370\u673a\u8def\u5f84:<\/TD>
\n           <TD ALIGN=left NOWRAP><INPUT type="text" id=printerpath nam
\ne=printerpath  
\n              value="\\\\< Domain >\\< Printer >"><\/TD>
\n        <\/TR>
\n        <TR>
\n           <TD ALIGN=right NOWRAP>\u767b\u5f55\u5e10\u53f7:<\/TD>
\n           <TD ALIGN=left NOWRAP><INPUT type="text" id=username name=u
\nsername  
\n              value="<% = strUsername %>"><\/TD>
\n        <\/TR>
\n        <TR>
\n           <TD ALIGN=right NOWRAP>\u767b\u5f55\u53e3\u4ee4:<\/TD>
\n           <TD ALIGN=left NOWRAP><INPUT type="password" id=password  
\n              name=password><\/TD>
\n        <\/TR>
\n        <TR>
\n           <TD ALIGN=right NOWRAP>\u8bf7\u8f93\u5165\u4f60\u60f3\u6253\u5370\u7684\u6587\u5b57:<\/TD>
\n           <TD ALIGN=left NOWRAP><TEXTAREA rows=2 cols=20 id=message  <\/p>\n

              name=message><\/TEXTAREA><\/TD>
\n        <\/TR>
\n        <TR>
\n           <TD ALIGN=right NOWRAP> <\/TD>
\n           <TD ALIGN=left NOWRAP><INPUT type="submit" value="Submit"  <\/p>\n

              id=submit name=submit><\/TD>
\n        <\/TR>
\n     <\/TABLE>
\n  <\/FORM> <\/p>\n

  \u5f53\u4ee5\u4e0a\u4fe1\u606f\u88ab\u63d0\u4ea4\u540e\uff0c\u5c31\u53ef\u4ee5\u6309\u7167\u4e0b\u9762\u7684\u4ee3\u7801\u8fdb\u884c\u6253\u5370\u4e86\u3002
\n  <%
\n  Else
\n     ‘ \u4eceform\u4e2d\u53d6\u5f97\u54cd\u5e94\u4fe1\u606f\u3002
\n     strPrinterPath = Request.Form("printerpath")
\n     strUsername = Request.Form("username")
\n     strPassword = Request.Form("password")
\n     strMessage = Request.Form("message") <\/p>\n

  We will now use the VBScript FileSystemObject object and the WSH Net
\nwork object. The Network object will
\n  give us the methods we need to open a printer connection, and the Fi
\nleSystemObject will allow us to stream our
\n  output to the printer. We create these objects in the following code
\n example:  <\/p>\n

     Set objFS = CreateObject("Scripting.FileSystemObject")
\n     Set objWSHNet = CreateObject("WScript.Network")
\n     ‘ \u4f7f\u7528WSH\u8fde\u63a5\u7f51\u7edc<\/a>\u6253\u5370\u673a
\n     objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, str
\nUsername, strPassword
\n     ‘ \u4f7f\u7528\u6587\u4ef6\u7cfb\u7edf\u5bf9\u8c61\u5c06\u6253\u5370\u8bbe\u5907\u4f5c\u4e3a\u4e00\u4e2a\u6587\u4ef6\u4f7f\u7528
\n     Set objPrinter = objFS.CreateTextFile("LPT1:", True)
\n     ‘ \u7ed9\u6253\u5370\u8bbe\u5907\u9001\u51fa\u6587\u672c
\n     objPrinter.Write(strMessage)
\n     ‘\u5173\u95ed\u6253\u5370\u8bbe\u5907\u5bf9\u8c61\u5e76\u8fdb\u884c\u9519\u8bef\u9677\u9631\u5904\u7406
\n     On Error Resume Next
\n     objPrinter.Close
\n     ‘ \u5982\u679c\u53d1\u751f\u9519\u8bef\uff0c\u5173\u95ed\u6253\u5370\u8fde\u63a5\uff0c\u5e76\u8f93\u51fa\u9519\u8bef\u4fe1\u606f
\n     If Err Then
\n        Response.Write ("Error # " & CStr(Err.Number) & " " & Err.Desc
\nription)
\n        Err.Clear    
\n     Else
\n        ‘ \u64cd\u4f5c\u6210\u529f\uff0c\u8f93\u51fa\u786e\u8ba4\u4fe1\u606f
\n        Response.Write("<CENTER>")
\n        Response.Write("<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSP
\nACING=1 CELLPADDING=1>")
\n        Response.Write("<TR><TD ALIGN=RIGHT><B>\u6253\u5370\u6d88\u606f\u9001\u51fa:<\/B><\/TD>"
\n)
\n        Response.Write("<TD ALIGN=LEFT>" & strMessage & "<\/TD><\/TR>") <\/p>\n

        Response.Write("<TR><TD ALIGN=RIGHT><B>\u7f51\u7edc<\/a>\u6253\u5370\u673a\u8def\u5f84:<\/B><\/TD
\n>")
\n        Response.Write("<TD ALIGN=LEFT>" & strPrinterPath & "<\/TD><\/TR
\n>")
\n        Response.Write("<TR><TD ALIGN=RIGHT><B>\u767b\u5f55\u5e10\u53f7:<\/B><\/TD>")
\n        Response.Write("<TD ALIGN=LEFT>" & strUsername & "<\/TD><\/TR>") <\/p>\n

        Response.Write("<\/TABLE>")
\n        Response.Write("<\/CENTER>")
\n     End If
\n     ‘ \u53d6\u6d88\u6253\u5370\u8fde\u63a5
\n     objWSHNet.RemovePrinterConnection "LPT1:"
\n     Set objWSHNet  = Nothing
\n     Set objFS      = Nothing
\n     Set objPrinter = Nothing
\n  End If
\n  %>
\n  <\/BODY>
\n  <\/HTML><\/p>\n","protected":false},"excerpt":{"rendered":"

\u4f7f\u7528\u5230\u7684\u6280\u672f\uff1a ASP,WSH,VBScript \u6587\u4ef6ASPPrint.asp\u4ee3\u7801\u5982\u4e0b\uff1a   <%@ Language=VBScript %>   <%   Option Explicit &…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-211","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/211","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=211"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/211\/revisions"}],"predecessor-version":[{"id":66092,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/211\/revisions\/66092"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=211"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=211"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=211"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=211"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}