<%@ 언어=vbscript %>
<%
옵션 명시적
Dim strSubmit '양식에 제출 버튼을 저장하는 데 사용되는 값
Dim strPrinterPath '양식에 저장된 네트워크 프린터 경로의 값
Dim strUsername '양식의 사용자 이름 값
Dim strPassword '양식의 비밀번호 값
Dim strMessage '양식 인쇄 내용 값
Dim objFS 'VBScript의 파일 시스템 개체
Dim objWS.NET 'WSH의 네트워크 개체
Dim objPrinter '개체 인쇄
strSubmit = 요청.양식(제출)
%>
<HTML>
<헤드>
<메타 이름=생성기 콘텐츠=microsoft Visual Studio 6.0>
</HEAD>
<본문>
<%
strSubmit = 그렇다면
%>
참고 사항:
데모이기 때문에 NT와 관련된 계좌번호와 비밀번호가 암호화되지 않은 수단을 사용하여 ASP로 전송됩니다.
실제 애플리케이션에서는 로그인 프로세스가 안전하게 처리되어야 합니다.
<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 유형=텍스트 ID=사용자 이름 이름=사용자 이름
값=<% = strUsername %>></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>로그인 비밀번호:</TD>
<TD ALIGN=왼쪽 NOWRAP><INPUT 유형=비밀번호 id=비밀번호
이름=비밀번호></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>인쇄하려는 텍스트를 입력하십시오:</TD>
<TD ALIGN=왼쪽 NOWRAP><TEXTAREA 행=2 열=20 ID=메시지
이름=메시지></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=오른쪽 지금 랩> </TD>
<TD ALIGN=왼쪽 NOWRAP><입력 유형=제출 값=제출
id=제출 이름=제출></TD>
</TR>
</TABLE>
</FORM>
위의 정보를 제출한 후 다음 코드에 따라 인쇄할 수 있습니다.
<%
또 다른
' 양식에서 응답 정보를 가져옵니다.
strPrinterPath = Request.Form(프린터 경로)
strUsername = Request.Form(사용자 이름)
strPassword = 요청.양식(비밀번호)
strMessage = Request.Form(메시지)
이제 VBScript FileSystem객체와 WSH Network 객체를 사용하겠습니다.
프린터 연결을 여는 데 필요한 메소드를 제공하면 FileSystemObject를 통해 스트리밍할 수 있습니다.
프린터로 출력합니다. 다음 코드 예제에서는 이러한 개체를 만듭니다.
objFS = CreateObject(Scripting.FileSystemObject) 설정
objWSHNet = CreateObject(WScript.Network) 설정
' WSH를 사용하여 네트워크 프린터에 연결
objWSHNet.AddPrinterConnection LPT1, strPrinterPath, False, strUsername, strPassword
'인쇄 장치를 파일로 사용하려면 파일 시스템 개체를 사용하세요.
objPrinter 설정 = objFS.CreateTextFile(LPT1:, True)
'인쇄 장치로 텍스트 보내기
objPrinter.Write(strMessage)
'인쇄 장치 개체를 닫고 오류 트랩 처리를 수행합니다.
오류 발생 시 다음 재개
objPrinter.Close
' 오류가 발생하면 인쇄 연결을 끊고 오류 메시지를 출력합니다.
오류가 발생한 경우
응답.쓰기(오류 # & CStr(Err.Number) & & Err.Description)
Err.Clear
또 다른
' 작업이 성공하고 확인 메시지가 출력됩니다.
응답.쓰기(<CENTER>)
응답.쓰기(<테이블 너비=100% ALIGN=가운데 테두리=0 CELLSPACING=1 CELLPADDING=1>)
Response.Write(<TR><TD ALIGN=RIGHT><B>보낸 메시지 인쇄:</B></TD>)
응답.쓰기(<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>