وظيفة تحويل رسملة عملة ASP

موصى به: كيفية الحد من الطريقة التي لا يمكن إدخالها باللغة الصينية إلا.
وظيفة ischarsinbag (s ، حقيبة) {var i ، c ؛ لـ (i = 0 ؛ i s.length ؛ i ++) {c = s.charat (i) ؛ // الحرف في السلسلة s if (bag.indexof (c) -1) return c ؛ } يعود ؛ } check function: function ischinese (s) {var errorchar ؛ var badchar = abcdefghijklmnopqrst

ملاحظة: هذه الوظيفة مناسبة لتحويلات العملة أقل

حدد سلسلتين ، حيث يتم حساب الأحرف والأرقام الصينية كواحد

Dim String1 كسلسلة "كما هو محدد أدناه

Dim String2 كسلسلة "كما هو محدد أدناه

dim string3 كقيمة سلسلة مأخوذة من القيمة الأصلية

قاتمة أنا كمتغيرات حلقة عدد صحيح

Dim J كقيمة INTEGER 'A مضروبة في طول سلسلة 100

DIM CH1 كقراءة صينية للأرقام

Dim CH2 كسلسلة "نطق الأحرف الصينية من البتات الرقمية

Dim nzero كـ integer 'كم عدد الأرقام غير الصفر المتتالية المستخدمة لحساب

String1 = 01234444444444444444444444444444444444444444444444444 444444444444444444444444444444444444444444444444444444

String2 = 10،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000،000.

'msgbox CSTR (A * 100)

إذا instr (1 ، CSTR (A * 100) ،.) <> 0 ثم

Err.Raise 5000 ، هذه الوظيفة (ATOC ()) يمكنها فقط تحويل الأرقام ضمن رقمين بعد النقطة العشرية!

إنهاء إذا

J = Len (CSTR (A * 100))

String2 = Right (String2 ، J) 'خذ قيمة String2 من العدد المقابل للأرقام

لأني = 1 إلى ي

string3 = mid (a * 100 ، i ، 1) 'أخرج قيمة بت معينة ليتم تحويلها

if string3 <> 0 ثم

CH1 = Mid (String1 ، Val (String3) + 1 ، 1)

CH2 = Mid (String2 ، i ، 1)

nzero = nzero + 1 'يعني أن القاعدة ليست صفر

آخر

مشاركة: 15 أمثلة مفيدة للغاية في برمجة ASP (II)
8. مربع الحوار إدخال إدخال كلمة مرور القوة لوضع هذه الجملة في بداية استجابة ٪ الصفحة.