Рекомендуется: используйте ASP для создания поиска на месте Если у вас есть огромный веб -сайт и много контента, посетителям часто трудно найти то, что им нужно. В настоящее время вам нужен поиск на веб -сайте, чтобы помочь посетителям найти информацию, которую они ищут быстрее! Теперь вы можете легко реализовать эту функцию с помощью ASP, не говоря уже о том, что есть так много сайтов, которые поддерживают ASP сейчас. Вы можете использовать эту поисковую систему для поиска любой домашней страницы
< %@ Language = vbscript %>
<%
Опция явная
Форма Dim Strsubmit, используемая для сохранения значения кнопки «Отправить»
Dim Strprinterpath 'Сохранить значение пути сетевого принтера в форме
Dim Strusername 'Значение имени пользователя в форме
Dim Strpassword 'Значение пароля в форме
Форма Dim Strmessage печатает значение контента
Объекты файловой системы Dim objfs в VBScript
Dim objwshnet 'сетевые сетевые объекты в WSH
Dim objprinter 'объект печати
strsubmit = request.form (отправить)
%>
<html>
<Голова>
<Meta name = Generator Content = Microsoft Visual Studio 6.0>
</Head>
<Тело>
<%
Если strsubmit = тогда
%>
Обратите внимание, что:
Поскольку это демонстрация, учетная запись и пароль около NT передаются в ASP с использованием незашифрованных средств.
Процесс входа в систему следует безопасно обрабатывать в реальном использовании.
<Form action = aspprint.asp method = post id = form name = form>
<ТАБЛИЦА ЗАДАЧА = 100% ALIGN = CENTER BORDER = 0 Cell -Spacing = 1 CellPadding = 1>
<Tr>
<Td align = nowrap> Путь сетевого принтера: </td>
<Td align = Left nowrap> <input type = text id = printerpath name = printerpath
value = // <Домен>/<Принтер >> </td>
</Tr>
<Tr>
<Td align = прямо nowrap> Входная учетная запись: </td>
<Td align = Left nowrap> <input type = text id = имя пользователя = имя пользователя
value = < % = strusername % >> </td>
</Tr>
<Tr>
<Td align = прямо nowrap> Вход пароль: </td>
<Td Align = Left Nowrap> <input type = password id = пароль
name = пароль> </td>
</Tr>
<Tr>
<Td align = прямо Nowrap> Пожалуйста, введите текст, который вы хотите распечатать: </td>
<Td Align = Left Nowrap> <textarea Rows = 2 cols = 20 id = сообщение
name = message> </textarea> </td>
</Tr>
<Tr>
<Td align = nowrap> </td>
<Td align = Left nowrap> <input type = отправить значение = отправить
id = отправить имя = отправить> </td>
</Tr>
</Table>
</Form>
Когда приведенная выше информация отправлена, вы можете распечатать ее в соответствии со следующим кодом.
<%
Еще
'Получите информацию о ответе из формы.
strprinterpath = request.form (printerpath)
strusername = request.form (имя пользователя)
strpassword = request.form (пароль)
strmessage = request.form (сообщение)
Теперь мы будем использовать объект VBScript fileStemObject и сетевой объект WSH. Объект сети будет
Дайте нам методы, необходимые для открытия подключения к принтеру, и файловый интенсивник позволит нам транслировать наши
вывод на принтер. Мы создаем эти объекты в следующем примере кода:
Установить 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
'Если возникает ошибка, закройте подключение к печати и выведите сообщение об ошибке
Если ошибка, тогда
Response.write (error # & cstr (err.number) & err.description)
Err.clear
Еще
'Операция успешна, информация о подтверждении вывода
Response.write (<Center>)
Response.write (<таблица ширины = 100% align = центральная граница = 0 cell -spacing = 1 cellpadding = 1>)
Response.write (<tr> <td align = right> <b> print message Отправить: </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>)
Response.write (</table>)
Response.write (</center>)
Конец, если
'Отменить подключение к печати
objwshnet.removeprinterconnection lpt1:
Установить objwshnet = ничего
Установить objfs = ничего
Установить objprinter = ничего
Конец, если
%>
</Body>
</Html>
Share: ASP интегрирует класс SQL -выписки При написании программы базы данных ASP мы обычно используем операторы SQL, а при добавлении и обновлении данных мы обычно используем следующий метод: вставьте значения Message (Incept, Sender, Title, Content, Sendtime, Flag, Issend) («incept (i)», «membernAm