Setelah bekerja dengan komputer selama bertahun-tahun, ini pertama kalinya saya menulis artikel online!
Tujuan program:Untuk
kebutuhan kerja, banyak sekali teman-teman yang menanyakan informasi pendaftaran perusahaan. Untuk menghemat masalah, fungsi query telah ditambahkan ke website harus memiliki ponsel jika Anda tidak memiliki komputer. Anda dapat menggunakan ponsel Anda untuk melakukan query kapan saja dan dimana saja. Lakukan saja dan buat query WAP, semuanya ditulis di Notepad.
Struktur databasenya adalah sebagai berikut:
Nama perpustakaan: data.mdb
Nama tabel:
kolom info: id, nama perusahaan, tempat tinggal, perwakilan hukum... (Elipsis ini berarti dll.)
1.
Kode sumber halaman umpan balik hello.asp adalah sebagai berikut:
<%@ Bahasa=VBScript%>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0" coding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1 .xml">
<wml>
<card id="qycx" title="Jaringan Informasi Industri dan Komersial Shangrao">
<p>
Silakan masukkan informasi kueri<input name="qycx" type="text" maxlength="16" />
<anchor title="Oke">Oke
<go href="qycx.asp" metode="posting">
<nama bidang post="qycx" value="$qycx"/>
</pergi>
</jangkar>
<br/><br/>
Jaringan Informasi Industri dan Komersial Shangrao
</p>
</kartu>
</wml>
2.
Kode sumber halaman penerima informasi qycx.asp adalah sebagai berikut:
<%@ Language=VBScript %>
<% Response.ContentType = "teks/vnd.wap.wml" %>
<?xml versi="1.0" pengkodean="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<wml>
<card id="qycx2" title="Jaringan Informasi Industri dan Komersial Shangrao">
<p>
<%
qycx=permintaan.FORM("qycx")
cx="Nama perusahaan seperti '%"&qycx&"%' "
Set conn=Server.CreateObject("adodb.connection")
'sambungan.Buka "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="pilih * dari info di mana "&cx&""
set rs=server.createobject("adodb.recordset")
rs.open sql,sambungan,1,1
lakukan selagi tidak rs.eof
%>
<%qymc=rs("Nama Perusahaan")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
<%
rs.movenext
lingkaran
rs.tutup
%>
<br/><br/>
Jaringan Informasi Industri dan Komersial Shangrao
</p>
</kartu>
</wml>
<% Fungsi uni (Cina)
Untuk i = 1 hingga Len (Cina)
a=Pertengahan(Cina, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
Berikutnya
Fungsi Akhir
%>
==================================
Komentar kedua: Saya sedikit berkeringat saat melihat ini. Awalnya saya menggunakan "nama perusahaan" sebagai kata kunci untuk mengirimkan, tetapi kemudian saya berpikir untuk menggunakan ID sebagai kata kunci untuk menghindari masalah pengiriman karakter Cina. Saya sebenarnya sudah lama memikirkan pertanyaan mendasar seperti itu. Di sini, berdasarkan permintaan kata kunci "Nama Perusahaan" yang dikirimkan oleh hello.asp, kami mendapatkan nama lengkap semua perusahaan yang mengandung kata kunci ini di bidang "Nama Perusahaan" (untuk menghindari duplikasi), buat daftar, dan klik untuk masuk halaman ketiga, yang merupakan rincian materi perusahaan.
3.
Kode sumber qycx2.asp adalah sebagai berikut:
<%@ Language=VBScript %>
<% Response.ContentType = "teks/vnd.wap.wml" %>
<?xml versi="1.0" pengkodean="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<%
Setel koneksi=Server.CreateObject("adodb.koneksi")
'sambungan.Buka "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
samb.open "driver={driver akses microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<card id="qycx3" title="Jaringan Informasi Industri dan Komersial Shangrao">
<p>
<%
nama=permintaan.querystring("id")
sql="pilih * dari info di mana id="&nama&""
set rs=server.createobject("adodb.recordset")
rs.open sql,sambungan,1,1
lakukan selagi tidak rs.eof
%>
<%qymc=rs("Nama Perusahaan")%>
Nama perusahaan: <%Response.write qymc%>
<br/>
<%zs=rs("tempat tinggal")%>
Tempat Tinggal:<%Response.write zs%>
<br/>
<%fddb=rs("Perwakilan Hukum")%>
Perwakilan hukum:<%Response.write fddb%>
<br/>
<%zczb=rs("Modal Terdaftar")%>
Modal terdaftar:<%
jika kiri(zczb,1)="." maka
Respon.tulis "0"
kalau tidak
berakhir jika
Respon.tulis zczb%>10.000 yuan
<br/>
<%qylx=rs("Jenis Perusahaan")%>
Jenis perusahaan:<%Response.write qylx%>
<br/>
<%jyfw=rs("Lingkup Bisnis")%>
Ruang lingkup bisnis:<%Response.write jyfw%>
<br/>
<%zcrq=rs("Tanggal pendirian")%>
Tanggal pendaftaran:<%Response.write zcrq%>
<br/>
<%
rs.movenext
lingkaran
%>
<br/><br/>
Jaringan Informasi Industri dan Komersial Shangrao-End
<br/>
<a href="hello.asp">Kembali</a>
</p>
</kartu>
</wml>
======
Oke, selesaikan kueri dan tampilkan detail perusahaan!
Jika tulisan saya tidak bagus, jangan memarahi saya. Hehe, teman-teman yang menyukai WAP dipersilakan berkomunikasi dengan saya dan memberi saya bimbingan! QQ:18185813