ASP Chinese chinese to Pinyin สนับสนุนคำพิเศษที่กำหนดเอง

ฟังก์ชั่น getenglish (byval str)

getenglish = str

Getenglish = แทนที่ (Getenglish, China, China)

getenglish = แทนที่ (getenglish, วางแผน, แผน)

getenglish = แทนที่ (getenglish ฟรีฟรี)

getenglish = แทนที่ (getenglish, บทนำ, อินโทร)

getenglish = แทนที่ (getenglish, ทักษะ, ทักษะ)

getenglish = แทนที่ (getenglish, ชีวิต, ชีวิต)

getenglish = แทนที่ (getenglish, กิจกรรม, กิจกรรม)

getEnglish = แทนที่ (getenglish, เครื่องมือ, เครื่องมือ)

getenglish = แทนที่ (getenglish, พันธมิตร, สหภาพ)

getenglish = แทนที่ (getenglish, ลงทะเบียน, ลงทะเบียน)

getenglish = แทนที่ (getenglish, ประสบการณ์, ประสบการณ์)

getEnglish = แทนที่ (getenglish, แปล, แปล)

getEnglish = แทนที่ (getenglish, โครงการ, รายการ)

getEnglish = แทนที่ (getEnglish, เว็บไซต์, เว็บไซต์)

getenglish = แทนที่ (getenglish, อังกฤษ, อังกฤษ)

getenglish = แทนที่ (getenglish, อังกฤษ, อังกฤษ)

getenglish = แทนที่ (getenglish, yahoo, yahoo)

Getenglish = แทนที่ (Getenglish, Sina, Sina)

getenglish = แทนที่ (getenglish, Alipay, Alipay)

getenglish = แทนที่ (getenglish, ธุรกรรม, การค้า)

getenglish = แทนที่ (getenglish, ร้านค้าออนไลน์, b2c)

getEnglish = แทนที่ (getenglish, อัพเกรด, อัปเดต)

getenglish = แทนที่ (getenglish, นิตยสาร, นิตยสาร)

getenglish = แทนที่ (getenglish, พื้นที่, พื้นที่)

getenglish = แทนที่ (getenglish, ความรัก, ความรัก)

getenglish = แทนที่ (getenglish, เพื่อน, เพื่อน)

getenglish = แทนที่ (getenglish, มิตรภาพ, เพื่อน)

getenglish = แทนที่ (getenglish, link, like)

getenglish = แทนที่ (getenglish, label, label)

getenglish = แทนที่ (getenglish, วิ่ง, วิ่ง)

getenglish = แทนที่ (Getenglish, Management, Manager)

getenglish = แทนที่ (getenglish, การจัดการ, จัดการ)

getEnglish = แทนที่ (getEnglish, page, page)

getEnglish = แทนที่ (getenglish, แม่แบบ, แม่แบบ)

getenglish = แทนที่ (getenglish, เกม, เกม)

getenglish = แทนที่ (getenglish, ฟอรัม, ฟอรัม)

getenglish = แทนที่ (getenglish, ข่าว, ข่าว)

getenglish = แทนที่ (getenglish, ดนตรี, เพลง)

getenglish = แทนที่ (getenglish, ความช่วยเหลือ, ความช่วยเหลือ)

getEnglish = แทนที่ (getenglish, optimization, optimize)

getEnglish = แทนที่ (getenglish, ซอฟต์แวร์, อ่อน)

getenglish = แทนที่ (getenglish, การสอน, เทคโนโลยี)

getEnglish = แทนที่ (getenglish, ดาวน์โหลด, ดาวน์โหลด)

getenglish = แทนที่ (getenglish, ค้นหา, ค้นหา)

getenglish = แทนที่ (getenglish, เครื่องยนต์, เครื่องยนต์)

getenglish = แทนที่ (getenglish, แมงมุม, แมงมุม)

getEnglish = แทนที่ (getenglish, บันทึก, บันทึก)

getEnglish = แทนที่ (getenglish, บล็อก, บล็อก)

getenglish = แทนที่ (Getenglish, Baidu, Baidu)

getEnglish = แทนที่ (Getenglish, Google, Google)

getEnglish = แทนที่ (getenglish, กล่องจดหมาย, กล่องจดหมาย)

getenglish = แทนที่ (getenglish, mail, mail)

getenglish = แทนที่ (getenglish, ชื่อโดเมน, โดเมน)

getenglish = แทนที่ (getenglish, ทดสอบ, ทดสอบ)

getenglish = แทนที่ (getenglish, ตัวอย่าง, ตัวอย่าง)

getenglish = แทนที่ (getenglish, ดนตรี, เพลง)

getenglish = แทนที่ (getenglish, ตลก, ตลก)

getEnglish = แทนที่ (getenglish, ผลิตภัณฑ์, ผลิตภัณฑ์)

getEnglish = แทนที่ (getenglish, ข้อความ, ข้อความ)

getenglish = แทนที่ (getenglish, ข้อเสนอแนะ, freedback)

getEnglish = แทนที่ (getenglish, ความคิดเห็น, ความคิดเห็น)

getEnglish = แทนที่ (getenglish แนะนำความคิดเห็น)

getenglish = แทนที่ (getenglish, แบ่งปัน, แบ่งปัน)

getEnglish = แทนที่ (getenglish, ทรัพยากร, ทรัพยากร)

getenglish = แทนที่ (getenglish, ปลั๊กอิน, ปลั๊กอิน)

getEnglish = แทนที่ (getenglish, notebook, notebook)

getenglish = แทนที่ (getenglish, คอมพิวเตอร์, คอมพิวเตอร์)

getenglish = แทนที่ (getenglish, ระบบ, ระบบ)

getenglish = แทนที่ (Getenglish, โรงเรียน, โรงเรียน)

getenglish = แทนที่ (getenglish, ไร้กังวล, 5u)

getenglish = แทนที่ (getenglish, งาน, งาน)

getEnglish = แทนที่ (getenglish, ข้อมูล, ข้อมูล)

getenglish = แทนที่ (getenglish, ความบันเทิง, ent)

getenglish = แทนที่ (getenglish, รถยนต์, รถยนต์)

getenglish = แทนที่ (getenglish, มือถือ, มือถือ)

getEnglish = แทนที่ (getenglish, เครือข่าย, เครือข่าย)

getenglish = แทนที่ (getenglish, boss, boss)

getenglish = แทนที่ (getenglish, สุนัข, สุนัข)

getenglish = แทนที่ (getenglish, ทีวี, ทีวี)

getenglish = แทนที่ (getenglish, movie, movie)

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นพินอิน (Byval Chinese)

ภาษาจีน = แทนที่ (จีน, /,): จีน = แทนที่ (จีน, /,)

ภาษาจีน = แทนที่ (จีน, *,): จีน = แทนที่ (จีน,],)

ภาษาจีน = แทนที่ (จีน, [,): จีน = แทนที่ (จีน,},)

ภาษาจีน = แทนที่ (จีน, {,): จีน = แทนที่ (จีน, ',)

จีน = getenglish (จีน) 'กับ getenglish ที่นี่แปลงคำพิเศษก่อน

Dim Pinyinstr, ISR, IISCN, ISCN

Dim Pinyinconn, RS, I, X

'เปิดห้องสมุดพินอินที่นี่

'คุณยังสามารถรวมไลบรารีพินอินลงในฐานข้อมูลโปรแกรมของคุณ

เมื่อเกิดข้อผิดพลาดต่อไป

ตั้งค่า pinyinconn = server.createObject (adodb.connection)

pinyinconn.open provider = microsoft.jet.oledb.4.0; แหล่งข้อมูล = & server.mappath (pinyin.asp)

ถ้าทำผิดพลาดแล้ว pinyin =: set pinyinconn = ไม่มีอะไร: ออกจากฟังก์ชัน

iscn = true

สำหรับ i = 1 ถึงเลน (จีน)

iiscn = iScn 'ได้รับคุณค่าว่าเป็นภาษาจีนครั้งสุดท้าย

ISR = กลาง (จีน, i, 1)

X = ASC (ISTR)

ถ้า (x> = 65 และ x <= 90) หรือ (x> = 97 และ x <= 122) หรือ (x> = 48 และ x <= 57) หรือ isr = จากนั้น

iscn = false 'นี่คือภาษาอังกฤษตัวเลข (อักขระที่สงวนไว้) โดยไม่ต้องเปลี่ยน

ถ้า itr = จากนั้น itr = -

อื่น

ตั้งค่า rs = pinyinconn.execute (เลือก Top 1 [Pinyin] จาก [Pinyin] โดยที่ [เนื้อหา] เช่น ' % & ISR & %';)

ถ้าไม่ใช่ rs.eof แล้ว

isr = lcase (rs (0)): iscn = true 'ภาษาจีน

อื่น

ISCN = FALSE

ถ้า itr = จากนั้น itr = - else itr = 'แปลงช่องว่างเป็น - ให้ล้างถ้าเป็นอักขระอื่น

สิ้นสุดถ้า

Rs.close: Set Rs = ไม่มีอะไร

สิ้นสุดถ้า

ถ้า iiscn = iScn แล้ว pinyinstr = pinyinstr & isr else pinyinstr = pinyinstr & - & isr

pinyinstr = แทนที่ (pinyinstr, -, -)

pinyinstr = แทนที่ (pinyinstr, __, _)

ต่อไป

ถ้าถูกต้อง (pinyinstr, 1) = - จากนั้น pinyinstr = ซ้าย (pinyinstr, len (pinyinstr) - 1)

ถ้าถูกต้อง (pinyinstr, 1) = _ จากนั้น pinyinstr = ซ้าย (pinyinstr, len (pinyinstr) - 1)

ถ้าซ้าย (pinyinstr, 1) = - จากนั้น pinyinstr = ขวา (pinyinstr, len (pinyinstr) - 1)

ถ้าซ้าย (pinyinstr, 1) = _ จากนั้น pinyinstr = ขวา (pinyinstr, len (pinyinstr) - 1)

pinyinconn.close

ตั้งค่า pinyinconn = ไม่มีอะไร

Pinyin = Trim (PinyInstr)

ฟังก์ชันสิ้นสุด

Response.Write Pinyin (สวัสดียินดีต้อนรับสู่จีน!)