사용 가능한 전략:
ASP, WSH, VB 스크립트
文件ASPPrint.asp代码如下：
<%@ 언어=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("제출")
%>
<HTML>
<헤드>
<META NAME="생성기" Content="Microsoft Visual Studio 6.0">
</HEAD>
<본문>
<%
strSubmit = ""인 경우 다음
%>
의심스러운 말:
由于我是演示起见，其中有关NT的帐号和密码書是使用了不加密的手段密运用中应该对该登录过程进行码段处이리。
<FORM 액션="ASPPrint.asp" 메소드=POST ID=폼 이름=폼>
<테이블 너비=100% 정렬=가운데 테두리=0 셀 간격=1 셀 패딩=1>
<TR>
<TD ALIGN=right NOWRAP>연결 경로:</TD>
<TD ALIGN=왼쪽 NOWRAP><INPUT 유형="텍스트" id=프린터 경로 이름=프린터 경로 값="\< 도메인 >< 프린터 >"></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>완료:</TD>
<TD ALIGN=왼쪽 NOWRAP><INPUT type="text" id=사용자 이름 이름=사용자 이름
value="<% = strUsername %>"></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>완료:</TD>
<TD ALIGN=왼쪽 NOWRAP><INPUT type="password" id=비밀번호 이름=비밀번호></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>설명:</TD>
<TD ALIGN=왼쪽 NOWRAP><TEXTAREA 행=2 cols=20 id=메시지 이름=메시지></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=오른쪽 지금 랩> </TD>
<TD ALIGN=왼쪽 NOWRAP><INPUT type="submit" value="Submit" id=제출 이름=제출></TD>
</TR>
</TABLE>
</FORM>
当以上信息被提交后, 就可以按后, 就可以按按当下face 的代码进行打印了.
<%
또 다른
' 从form中取得响应信息。
strPrinterPath = Request.Form("프린터 경로")
strUsername = Request.Form("사용자 이름")
strPassword = Request.Form("비밀번호")
strMessage = Request.Form("message")
이제 VBScript FileSystemObject 개체와 WSH Net 작업 개체를 사용하겠습니다. 네트워크 객체는
프린터 연결을 여는 데 필요한 메소드를 제공하면 FileSystemObject를 통해 스트리밍할 수 있습니다.
프린터로 출력합니다. 다음 코드에서 이러한 객체를 생성합니다.
예:
' 使用WSH连接网络打印机
objWSHNet = CreateObject("WScript.Network") 설정
objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, strUsername, strPassword
'使用文件系统对象将打印设备業为一个文件使용
objFS = CreateObject("Scripting.FileSystemObject") 설정
objPrinter 설정 = objFS.CreateTextFile("LPT1:", True)
' 给打印设备送출문본
objPrinter.Write(strMessage)
'关闭打印设备对象并进行错误陷阱处理
오류 발생 시 다음 재개
objPrinter.Close
' 如果发生错误，关闭打印连接，并输流错误信息
오류가 발생한 경우
Response.Write("오류 # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear
또 다른
' 操작성功，输认信息
응답.쓰기("<센터>")
Response.Write("<TABLE WIDTH=100% ALIGN=가운데 BORDER=0 CELLSPACING=1 CELLPADDING=1>")
Response.Write("<TR><TD ALIGN=RIGHT><B>打印消息送출:</B></TD>")
Response.Write("<TD ALIGN=LEFT>" & strMessage & "</TD></TR>")
Response.Write("<TR><TD ALIGN=RIGHT><B>网络打印机路径:</B></TD>")
Response.Write("<TD ALIGN=LEFT>" & strPrinterPath & "</TD></TR>")
Response.Write("<TR><TD ALIGN=RIGHT><B>登录帐号:</B></TD>")
Response.Write("<TD ALIGN=LEFT>" & strUsername & "</TD></TR>")
응답.쓰기("</TABLE>")
응답.쓰기("</CENTER>")
종료 조건
' 取消打印连接
objWSHNet.RemovePrinterConnection "LPT1:"
objWSHNet = 없음으로 설정
objFS = 없음 설정
objPrinter = 없음 설정
종료 조건
%>
</BODY>
</HTML>