권장 : ASP를 사용하여 현장 검색을 만듭니다 거대한 웹 사이트와 많은 콘텐츠가 있다면 방문자가 필요한 것을 찾기가 어렵습니다. 현재 방문자가 원하는 정보를 더 빨리 찾을 수 있도록 웹 사이트 검색이 필요합니다! 이제 ASP를 지원하는 사이트가 너무 많다는 것은 말할 것도없이 ASP 로이 기능을 쉽게 구현할 수 있습니다. 이 검색 엔진을 사용하여 홈페이지를 검색 할 수 있습니다.
< %@ language = vbscript %>
<%
옵션 명시 적
제출 버튼의 값을 저장하는 데 사용되는 Dim StrSubmit '양식
Dim StrprinterPath '네트워크 프린터 경로의 값을 형태로 저장
Dim StruserName 'value of username in Form
dim strpassword '양식의 비밀번호 값
Dim Strmessage '양식은 내용의 가치를 인쇄합니다
dim objfs의 파일 시스템 객체는 vbscript입니다
WSH의 Dim Objwshnet 'Net Network Objects
Dim objprinter '인쇄 객체
strsubmit = request.form (제출)
%>
<html>
<헤드>
<메타 이름 = 발전기 컨텐츠 = Microsoft Visual Studio 6.0>
</head>
<body>
<%
strsubmit = if then
%>
주목하십시오 :
이것은 데모이므로 NT에 대한 계정 및 비밀번호는 암호화되지 않은 수단을 사용하여 ASP에 전달됩니다.
로그인 프로세스는 실제로 사용하여 안전하게 처리해야합니다.
<양식 action = aspprint.asp method = post id = form name = form>
<테이블 너비 = 100% 정렬 = 중심 테두리 = 0 셀 스페이스 = 1 CellPadding = 1>
<tr>
<td align = right nowrap> 네트워크 프린터 경로 : </td>
<td align = left nowrap> <입력 유형 = 텍스트 id = 프린터 스팟 이름 = 프린터 스팟
값 = // <도메인>/<프린터 >> </td>
</tr>
<tr>
<td align = right nowrap> 로그인 계정 : </td>
<td align = left nowrap> <입력 유형 = 텍스트 id = username name = username
값 = < % = strusername % >> </td>
</tr>
<tr>
<td align = right nowrap> 로그인 암호 : </td>
<td align = left nowrap> <입력 유형 = 비밀번호 ID = 비밀번호
이름 = 비밀번호> </td>
</tr>
<tr>
<td elign = Right Nowrap> 인쇄하려는 텍스트를 입력하십시오 : </td>
<td elign = left nowrap> <textRea rows = 2 cols = 20 id = 메시지
이름 = 메시지> </textarea> </td>
</tr>
<tr>
<td align = right nowrap> </td>
<td align = left nowrap> <입력 유형 = 제출 값 = 제출
id = 제출 이름 = 제출> </td>
</tr>
</테이블>
</form>
위 정보가 제출되면 다음 코드에 따라 인쇄 할 수 있습니다.
<%
또 다른
'Form에서 응답 정보를 얻으십시오.
strprinterpath = request.form (PrinterPath)
strusername = request.form (사용자 이름)
strpassword = request.form (비밀번호)
strmessage = request.form (메시지)
이제 vbscript filesystemobject 객체와 WSH 네트워크 객체를 사용합니다. 네트워크 객체가 될 것입니다
프린터 연결을 열는 데 필요한 방법을 제공하면 FileSystemObject를 사용하면 스트리밍 할 수 있습니다.
프린터에 출력. 다음 코드 예제에서 이러한 객체를 만듭니다.
set objfs = createobject (scripting.filesystemobject)
set objwshnet = createobject (wscript.network)
'WSH를 사용하여 네트워크 프린터에 연결하십시오
objwshnet.addprinterconnection lpt1, strprinterpath, false, strusername, strpassword
'파일 시스템 객체를 사용하여 인쇄 장치를 파일로 사용하십시오.
set objprinter = objfs.createtextfile (lpt1 :, true)
'인쇄 장치로 텍스트를 보내십시오
objprinter.write (strmessage)
'인쇄 장치 객체를 닫고 오류 트랩 처리를 수행하십시오.
다음에 오류가 재개됩니다
objprinter.close
'오류가 발생하면 인쇄 연결을 닫고 오류 메시지를 출력하십시오.
그렇다면
response.write (오류 # & cstr (err.number) & & err.description)
err.clear
또 다른
'작업이 성공적이며 출력 확인 정보가 성공적입니다
Response.write (<center>)
response.write (<테이블 너비 = 100% 정렬 = 중심 경계 = 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>)
response.write (</center>)
끝 If
'인쇄 연결을 취소하십시오
objwshnet.removePrinterConnection LPT1 :
objwshnet = 아무것도 설정하지 않습니다
OBJFS = 아무것도 설정하지 않습니다
objprinter = 아무것도 설정하지 않습니다
끝 If
%>
</body>
</html>
공유 : ASP는 SQL 명령문 클래스를 통합합니다 ASP 데이터베이스 프로그램을 작성할 때 일반적으로 SQL 문을 사용하고 데이터를 추가 및 업데이트 할 때 일반적으로 다음 방법을 사용합니다. 메시지 삽입 (Incept, Sender, Title, Content, Sendtime, Flag, Issend) 값 ( 'Incept (I)', 'Title', 'Message', Now (), 0,1).