프로그램 코드:
<스크립트 언어=VBScript>
함수 print_onclick //인쇄 함수
희미한 라벨
label=document.printinfo.label.value //HTML 페이지의 데이터 가져오기
set objfs=CreateObject("Scripting.FileSystemObject") //FileSystem 구성 요소 객체의 인스턴스 생성
set objprinter=objfs.CreateTextFile ("LPT1:",true) //프린터와의 연결 설정
objprinter.Writeline("______________") //인쇄된 내용을 출력합니다.
objprinter.Writeline("| |")
objprinter.Writeline("| 인쇄하는 데이터는 다음과 같습니다: "&label& " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_________________|")
objprinter.close //프린터 연결 끊기
objprinter 설정 = 없음
Set objfs = Nothing // FileSystem 구성 요소 개체를 닫습니다.
기능 종료
</script>
서버 측 스크립트:
<%
conn=server.CreateObject("adodb.connection") 설정
conn.Open "DSN=이름;UID=XXXX;PWD=XXXX;"
Rs = server.CreateObject("adodb.recordset") 설정
Rs.Open("선택..."),conn,1,1
데이터베이스와 상호작용하기 위한
HTML 페이지 인코딩
:
<HTML>
......
<양식 ID=인쇄정보 이름="인쇄정보" >
<INPUT type="button" value="Print>>" id=print name=print > //인쇄 함수 호출
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //서버에서 보낸 데이터를 저장
......
</HTML>