موصى به: وظيفة تحويل رسملة العملة ASP دالة ATOC (A كعملة) كوصف "الوصف: هذه الوظيفة مناسبة لتحويلات العملة التي تقل عن تريليون يوان. يُسمح لقيمة A أن تكون في المكانين العشريين على الأكثر من سلسلتين. هنا يتم حساب الأحرف والأرقام الصينية في مكان واحد Dim1 string1 كسلسلة "تعريف على النحو التالي" Dim String2 "كتعريف سلسلة" كما يلي Dim String3 كسلسلة "من الأصل
<٪ setRecordSet1 = server.createObject (adodb.recordset) exec = select*fromNewSwhereId = & id RecordSet1.Openexec ، Conn ، 1،1 ٪> <tablewidth = 85 ٪ الحدود = 0align = centercellpadding = 3CellSpacing = 0> <tr> <td> ......... <٪ ifrequest (صفحة) = ثم Pagenum = 0 آخر Pagenum = طلب (صفحة) Endif ContentStr = split (RecordSet1 (التفاصيل) ، ||) fori = pagenumtopagenum ٪> <٪ = contentstr (i) ٪> <٪ التالي ٪> </td> </r> <٪ ifubund (ContentStr)> = 1then ٪> <tr> <tdheight = 30> يتم تقسيم هذه المقالة إلى <٪ forp = 0toubund (contentstr) IFP+1 = طلب (صفحة)+1 a = <fontcolor = red> aa = </font> آخر أ = AA = Endif ٪> <ahref = detail.asp؟ id = <٪ = request (id) ٪> & page = <٪ = p ٪ >> <٪ = a ٪> <٪ = p+1 ٪> <٪ = aa ٪> </a> <٪ التالي ٪> الصفحة </td> </r> <٪ endif ٪> |
عند إضافة مقال ، فقط أضف الفاصل || أينما تريد الترحيل.
حصة: كيفية الحد من الطريقة التي لا يمكن إدخالها إلا باللغة الصينية. وظيفة 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