Код программы:
<язык сценария=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>
………
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="Print>>" id=print name=print > //Вызов функции печати
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //Сохраняем данные, отправленные с сервера
………
</HTML>