Direkomendasikan: Ringkasan 11 Sintaks Basis Data untuk Koneksi ASP Operasi yang terkait dengan basis data sering digunakan. Ini termasuk kode koneksi, perintah SQL, dll., Tetapi saya tidak pernah sengaja mengingatnya (saya tidak ingin mengingat hal ini), jadi saya sering memeriksa buku -buku dan membalikkannya ketika saya menggunakannya. Beberapa basis data yang kurang digunakan mungkin tidak dapat berjalan dengan lancar
Kali ini saya memperbarui program blog yang saya gunakan, menggunakan pinyin judul artikel saat menghasilkan file statis. Ini melibatkan cara mengubah teks menjadi pinyin. Saya melihatnya secara online. Fungsi yang sama seharusnya hanya normal di bawah GB2312, dan saya tidak terlalu memikirkannya. Ini menunjukkan paragraf yang saya lihat dalam kode sumber sistem bebas khawatir dan menggunakannya.
Mari kita lihat fungsi -fungsi berikut dan tambahkan beberapa komentar:
Ini adalah fungsi yang menyesuaikan kata -kata khusus
| Berikut ini adalah konten yang dikutip: Fungsi getEnglish (Byval str) getEnglish = str getEnglish = ganti (getEnglish, Cina, Cina) getEnglish = ganti (getEnglish, perencanaan, rencana) getEnglish = ganti (getEnglish, gratis, gratis) getEnglish = ganti (getEnglish, pengantar, intro) getEnglish = ganti (getEnglish, keterampilan, keterampilan) getEnglish = ganti (getEnglish, hidup, hidup) getEnglish = ganti (getEnglish, aktivitas, aktivitas) getEnglish = ganti (getEnglish, alat, alat) getEnglish = ganti (getEnglish, Alliance, Union) getEnglish = ganti (getEnglish, pendaftaran, daftar) getEnglish = ganti (getEnglish, pengalaman, pengalaman) getEnglish = ganti (getEnglish, terjemahan, terjemahan) getEnglish = ganti (getEnglish, proyek, item) getEnglish = ganti (getEnglish, situs web, situs web) getEnglish = ganti (getEnglish, bahasa Inggris, bahasa Inggris) getEnglish = ganti (getEnglish, bahasa Inggris, bahasa Inggris) getEnglish = ganti (getEnglish, yahoo, yahoo) getEnglish = ganti (getEnglish, Sina, Sina) getEnglish = ganti (getEnglish, alipay, alipay) getEnglish = ganti (getEnglish, transaksi, perdagangan) getEnglish = ganti (getEnglish, toko online, b2c) getEnglish = ganti (getEnglish, upgrade, perbarui) getEnglish = ganti (getEnglish, majalah, majalah) getEnglish = ganti (getEnglish, ruang, ruang) getEnglish = ganti (getEnglish, cinta, cinta) getEnglish = ganti (getEnglish, teman, teman) getEnglish = ganti (getEnglish, persahabatan, teman) getEnglish = ganti (getEnglish, tautan, seperti) getEnglish = ganti (getEnglish, label, label) getEnglish = ganti (getEnglish, run, running) getEnglish = ganti (getEnglish, manajemen, manajer) getEnglish = ganti (getEnglish, manajemen, kelola) getEnglish = ganti (getEnglish, halaman, halaman) getEnglish = ganti (getEnglish, template, template) getEnglish = ganti (getEnglish, game, game) getEnglish = ganti (getEnglish, forum, forum) getEnglish = ganti (getEnglish, berita, berita) getEnglish = ganti (getEnglish, musik, musik) getEnglish = ganti (getEnglish, bantu, bantu) getEnglish = ganti (getEnglish, optimasi, optimalkan) getEnglish = ganti (getEnglish, perangkat lunak, lunak) getEnglish = ganti (getEnglish, tutorial, teknologi) getEnglish = ganti (getEnglish, unduh, unduh) getEnglish = ganti (getEnglish, cari, cari) getEnglish = ganti (getEnglish, engine, engine) getEnglish = ganti (getEnglish, laba -laba, laba -laba) getEnglish = ganti (getEnglish, log, log) getEnglish = ganti (getEnglish, blog, blog) getEnglish = ganti (getEnglish, baidu, baidu) getEnglish = ganti (getEnglish, google, google) getEnglish = ganti (getEnglish, kotak surat, kotak surat) getEnglish = ganti (getEnglish, mail, mail) getEnglish = ganti (getEnglish, nama domain, domain) getEnglish = ganti (getEnglish, tes, tes) getEnglish = ganti (getEnglish, demo, demo) getEnglish = ganti (getEnglish, musik, musik) getEnglish = ganti (getEnglish, lelucon, lelucon) getEnglish = ganti (getEnglish, produk, produk) getEnglish = ganti (getEnglish, pesan, pesan) getEnglish = ganti (getEnglish, umpan balik, freedback) getEnglish = ganti (getEnglish, komentar, komentar) getEnglish = ganti (getEnglish, disarankan, komentar) getEnglish = ganti (getEnglish, share, share) getEnglish = ganti (getEnglish, sumber daya, sumber daya) getEnglish = ganti (getEnglish, plugin, plugin) getEnglish = ganti (getEnglish, notebook, notebook) getEnglish = ganti (getEnglish, komputer, komputer) getEnglish = ganti (getEnglish, sistem, sistem) getEnglish = ganti (getEnglish, sekolah, sekolah) getEnglish = ganti (getEnglish, bebas khawatir, 5u) getEnglish = ganti (getEnglish, pekerjaan, pekerjaan) getEnglish = ganti (getEnglish, informasi, info) getEnglish = ganti (getEnglish, hiburan, ent) getEnglish = ganti (getEnglish, mobil, mobil) getEnglish = ganti (getEnglish, seluler, seluler) getEnglish = ganti (getEnglish, jaringan, jaringan) getEnglish = ganti (getEnglish, bos, bos) getEnglish = ganti (getEnglish, dog, dog) getEnglish = ganti (getEnglish, TV, TV) getEnglish = ganti (getEnglish, film, film) Fungsi akhir |
Lalu ada fungsi paling kritis Pinyin (Byval Chinese) yang mengubah bahasa Cina menjadi pinyin
| Berikut ini adalah konten yang dikutip: fungsi pinyin (Byval Chinese) Cina = ganti (Cina, /,): Cina = ganti (Cina, /,) Cina = ganti (Cina, *,): Cina = ganti (Cina,],) Cina = ganti (Cina, [,): Cina = ganti (Cina,},) Cina = ganti (Cina, {,): cina = ganti (cina, ',) Cina = getEnglish (Cina) 'dengan getEnglish di sini, konversi kata -kata khusus terlebih dahulu Dim pinyinstr, ISR, IISCN, ISCN redup pinyinconn, rs, i, x 'Buka pustaka pinyin di sini 'Anda juga dapat memasukkan pustaka Pinyin ke dalam basis data program Anda. pada kesalahan resume berikutnya atur pinyinconn = server.createObject (adodb.connection) pinyinconn.open provider = microsoft.jet.oledb.4.0; data sumber = & server.mappath (pinyin.asp) Jika err maka pinyin =: atur pinyinconn = tidak ada: fungsi keluar Iscn = true untuk i = 1 ke len (Cina) iiscn = iscn 'dapatkan nilai apakah itu orang Cina terakhir ISR = Mid (Cina, I, 1) x = ASC (ISTR) if (x> = 65 dan x <= 90) atau (x> = 97 dan x <= 122) atau (x> = 48 dan x <= 57) atau isr = kemudian Iscn = false 'Ini adalah bahasa Inggris, angka (karakter cadangan), tanpa berubah Jika ITR = maka ITR = - kalau tidak Set RS = pinyinconn.execute (pilih Top 1 [pinyin] dari [pinyin] di mana [konten] seperti ' % & isr & %';) Jika tidak rs.eof maka ISR = LCASE (RS (0)): ISCN = True 'China kalau tidak Iscn = false Jika ITR = maka ITR = - else ITR = 'Konversi Spaces ke -, jelas jika itu adalah karakter lain akhiri jika rs.close: set rs = tidak ada akhiri jika Jika iiscn = iscn maka pinyinstr = pinyinstr & isr else pinyinstr = pinyinstr & - & isr pinyinstr = ganti (pinyinstr, -, -) pinyinstr = ganti (pinyinstr, __, _) Berikutnya Jika kanan (pinyinstr, 1) = - lalu pinyinstr = kiri (pinyinstr, len (pinyinstr) - 1) Jika kanan (pinyinstr, 1) = _ lalu pinyinstr = kiri (pinyinstr, len (pinyinstr) - 1) Jika kiri (pinyinstr, 1) = - lalu pinyinstr = kanan (pinyinstr, len (pinyinstr) - 1) Jika kiri (pinyinstr, 1) = _ lalu pinyinstr = kanan (pinyinstr, len (pinyinstr) - 1) pinyinconn.close atur pinyinconn = tidak ada pinyin = trim (pinyinstr) fungsi akhir |
Bagaimana menggunakan:
| Berikut ini adalah konten yang dikutip: response.write pinyin (halo, selamat datang di Cina!) |
Metode ini dikonversi menjadi nama file format pinyin sangat ramah. Xiaocheng yang memiliki persyaratan untuk SEO dapat mencobanya.
Bagikan: Pengantar ASP dan lima objek bawaan Tabel 1. Dasar -dasar ASP 2. Lima objek utama ASP 3. Permintaan Objek 4. Objek Respons 5. Objek Server 6. Objek Aplikasi 7. Objek Sesi 1. ASP Dasar