Recommandé: fonction de conversion de capitalisation de la monnaie ASP Fonction ATOC (A As Currency) As String 'Description: Cette fonction convient aux conversions de devises de moins d'un billion de yuan. La valeur de A est autorisée à être au plus deux décimales de définir deux cordes. Ici, les caractères et les nombres chinois sont calculés en un seul endroit Dim String1 comme string 'Définition comme suit Dim String2 comme chaîne' Définition comme suit Dim String3 comme String 'de l'original A
<% setRecordSet1 = server.createObject (adodb.recordSet) exec = select * fromnewswhereid = & id RecordSet1.OPENEXEC, Conn, 1,1 %> <TableWidth = 85% Border = 0Align = CenterellPadding = 3CellSpacing = 0> <tr> <td> ......... <% IfRequest (page) = alors pagenum = 0 Autre pagenum = demande (page) Endire ContentsTr = Split (RecordSet1 (détail), ||) Fori = pagenumtopagenum %> <% = Contente (i)%> <% Next%> </td> </tr> <% ifubund (contensttr)> = 1Then%> <tr> <tdheight = 30> Cet article est divisé en <% Forp = 0Toubund (ContentsTr) ifp + 1 = demande (page) + 1 a = <fontcolor = rouge> aa = </font> autre a = aa = endire %> <href = de détail.asp? id = <% = request (id)%> & page = <% = p% >> <% = a%> <% = p + 1%> <% = aa%> </a> <% Next%> Page </td> </tr> <% endif%> |
Lors de l'ajout d'un article, ajoutez simplement le séparateur || Où que vous vouliez paginer.
Partager: comment limiter la méthode qui ne peut être saisie qu'en chinois. fonction ischarsinbag (s, sac) {var i, c; pour (i = 0; i s.length; i ++) {c = s.Carat (i); // le caractère dans la chaîne s if (sac.indexof (c) -1) return c; } retour ; } Vérifier la fonction: fonction ischinese (s) {var errorchar; var badchar = abcdefghijklmnopqrst