Direkomendasikan: Gunakan ASP untuk membuat pencarian di tempat Jika Anda memiliki situs web besar dan banyak konten, seringkali sulit bagi pengunjung untuk menemukan apa yang mereka butuhkan. Pada saat ini, Anda memerlukan pencarian situs web untuk membantu pengunjung menemukan informasi yang mereka cari lebih cepat! Sekarang Anda dapat dengan mudah menerapkan fungsi ini dengan ASP, belum lagi ada begitu banyak situs yang mendukung ASP sekarang. Anda dapat menggunakan mesin pencari ini untuk mencari beranda Anda
< %@ Bahasa = VBScript %>
<%
Opsi eksplisit
Formulir redup strsubmit digunakan untuk menyimpan nilai tombol kirim
Dim strprinterpath 'Simpan nilai jalur printer jaringan dalam bentuk
Nilai nama pengguna strusername '
Redup strpassword 'Nilai kata sandi dalam bentuk
Formulir redup strmessage 'mencetak nilai konten
Objek sistem file redup objfs di vbscript
Objek jaringan net objwshnet 'di wsh
Objek cetak redup objprinter
strsubmit = request.form (kirim)
%>
<Html>
<head>
<Meta name = generator konten = Microsoft Visual Studio 6.0>
</head>
<body>
<%
Jika strsubmit = lalu
%>
Perhatikan bahwa:
Karena ini adalah demonstrasi, akun dan kata sandi tentang NT dilewatkan dalam ASP menggunakan cara yang tidak terenkripsi.
Proses login harus ditangani dengan aman digunakan secara nyata.
<Form Action = AsppRint.asp Metode = Posting ID = Form Name = Form>
<Lebar Tabel = 100% Align = Batas Pusat = 0 CellSpacing = 1 Cellpadding = 1>
<tr>
<Td align = sekarang rap> jalur printer jaringan: </td>
<Td align = left nowrap> <input type = Text ID = name printerpath = printerpath
value = // <domain>/<pinter>> </td>
</tr>
<tr>
<Td align = saat ini raper> akun login: </td>
<Td align = left nowrap> <input type = Text ID = nama nama pengguna = nama pengguna
nilai = < % = struserName % >> </td>
</tr>
<tr>
<Td align = sekarang rap> Kata sandi login: </td>
<Td align = left nowrap> <input type = kata sandi id = kata sandi
name = Password> </td>
</tr>
<tr>
<Td align = sekarang rap> silakan masukkan teks yang ingin Anda cetak: </td>
<Td align = left nowrap> <baris textarea = 2 cols = 20 id = pesan
Name = Message> </pextarea> </td>
</tr>
<tr>
<Td align = sekarang rap> </td>
<Td align = left nowrap> <input type = kirim nilai = kirim
ID = Kirim Nama = Kirim> </td>
</tr>
</boable>
</form>
Ketika informasi di atas dikirimkan, Anda dapat mencetaknya sesuai dengan kode berikut.
<%
Kalau tidak
'Dapatkan informasi respons dari formulir.
strPrintepath = request.Form (printerpath)
strusername = request.form (nama pengguna)
strpassword = request.form (kata sandi)
strmessage = request.form (pesan)
Kami sekarang akan menggunakan objek VBScript FilesystemObject dan objek jaringan WSH. Objek jaringan akan
Beri kami metode yang kami butuhkan untuk membuka koneksi printer, dan FilesystemObject akan memungkinkan kami untuk melakukan streaming kami
output ke printer. Kami membuat objek ini dalam contoh kode berikut:
Set Objfs = CreateObject (Scripting.FilesystemObject)
Set ObjWshnet = CreateObject (WScript.Network)
'Sambungkan ke printer jaringan menggunakan WSH
objwshnet.addprinterconnection lpt1, strprintepath, false, strusername, strpassword
'Gunakan objek sistem file untuk menggunakan perangkat pencetakan sebagai file
Set ObjPrinter = objfs.createTextFile (lpt1:, true)
'Kirim teks ke perangkat pencetakan
objprinter.write (strmessage)
'Tutup objek perangkat cetak dan lakukan pemrosesan perangkap kesalahan
Pada kesalahan resume berikutnya
objprinter.close
'Jika terjadi kesalahan, tutup koneksi cetak dan output pesan kesalahan
Jika err maka
Response.write (kesalahan # & cstr (err.number) & & err.description)
Err.clear
Kalau tidak
'Operasi ini berhasil, informasi konfirmasi output
Response.write (<Tenter>)
Response.write (<tabel lebar = 100% align = batas tengah = 0 cellspacing = 1 cellpadding = 1>)
Response.write (<tr> <td align = right> <b> Cetak pesan Kirim: </b> </td>)
Response.write (<td align = left> & strmessage & </td> </tr>)
Response.write (<tr> <td align = right> <b> jalur printer jaringan: </b> </td>)
Response.write (<td align = left> & strPrinterpath & </td> </tr>)
Response.write (<tr> <td align = right> <b> akun login: </b> </td>)
Response.write (<td align = left> & strusername & </td> </tr>)
Response.write (</boable>)
Response.write (</denter>)
Akhiri jika
'Batalkan koneksi cetak
objwshnet.removeprinterconnection lpt1:
Atur objwshnet = tidak ada
Atur objfs = tidak ada
Atur objprinter = tidak ada
Akhiri jika
%>
</body>
</html>
Bagikan: ASP mengintegrasikan kelas pernyataan SQL Saat menulis program basis data ASP, kami biasanya menggunakan pernyataan SQL, dan saat menambahkan dan memperbarui data, kami biasanya menggunakan metode berikut: masukkan ke dalam pesan (incept, pengirim, judul, konten, waktu kirim, bendera, issend) nilai ('incept (i)', 'mageName', 'judul', 'pesan', sekarang (), 0,1) Ketika ada banyak bidang di banyak bidang ',' Pesan ',' Pesan ', sekarang (),') ketika ada banyak fields ',' Membername ',' Pesan ', sekarang (),') ketika ada banyak bidang di Fields ',' Membername ',' Member ','