Recommandé: incontournable pour apprendre les pages Web dynamiques ASP: 38 fonctions couramment utilisées 1. Fonction Array () Fonction: Créez un format de variable de tableau: paramètre Array (liste): Liste est chaque colonne numérique dans la variable de tableau, avec un exemple d'espacement de la virgule: <% i = array (1,2,3 & quo
Étant donné que mon espace est limité, je ne peux pas générer toutes les pages statiques en lots à la fois, j'ai donc écrit un petit programme à partager avec vous. Le programme est assez simple, alors ne riez pas des experts! Ce code est une perte de temps. Le code est le suivant
<! - # Inclure File = Conn.asp -> <html> <éad- head> <ititle> Générer la page </TITME> <Meta http-equiv = contenu contenu contenu = text / html; charse = gb2312> <Link href = style.css type = text / css rel = Stylesheet> <Meta Content = Mshtml 6.00.2900.3020 Name = Générateur> </ Head> <Body BottomMargin = 0 Leftmargin = 0 topmargin = 0 droite de droite = 0> <BR Style = Overflow: Hidden; Hauteur de ligne: 3px> <% id dim id = cint (request.querystring (id)) Si id = alors id = 1 autre id = cint (request.querystring (id)) terminer si Nombre total faible SQL = SELECT ID From Table Order by ID DESC set rs = server.createObject (adodb.recordSet) Rs.Open SQL, Conn, 1,1 Rs.MoveFirst Si ce n'est pas Rs.Eof alors TotalNumber = Rs.RecordCount terminer si Pour obtenir le nombre total, vous pouvez utiliser un code à la place. Je crois que les amis peuvent résoudre ce problème par eux-mêmes. Rs.Close Définir RS = rien Response.Write <br> <br> & VBNewline Response.Write <Table Width = '400' Border = '0' Align = 'Center' CellPadding = '0' Cellpacing = '0'> & VBNewline Réponse.write <tr> & vbnewline Response.Write <td height = '50 '> Total Color =' Blue '> <b> & TotalNumber & </b> </font> Les pages sont générées ... </td> & vbnewline Réponse.write </tr> & vbnewline Réponse.write </ TABLE> & VBNEWLINE Réponse.flush Si id> totalNumber alors Response.Write Félicitations pour votre opération réussie! Réponse.flush Terminer si création (id) id = id 1 Response.Write <Meta Http-Equiv = Refresh Content = 1; url =? Id = & id &> %> </docy> </html> <% Fonction Create (ID) SQL = SELECT * FROM TABLE WHERE ID = & ID SET RS = Conn.Execute (SQL) nom dim name = rs (nom) Conn.execute (SQL) Rs.Close Définir RS = rien DIM FSO Dim Znwl art sombre talent FW set fso = createObject (scripting.fileSystemObject) Définir Znwl = fso.OpenTextFile (server.mappath (page de modèle)) art = znwl.readall znwl.close art = remplacer (art, {$ name $}, nom) set fw = fso.createtextfile (server.mappath (emplacement de stockage de page généré et nom de page), true) FW.Writeline Art fw.close Définir FSO = rien Fonction finale %> |
Il existe une autre méthode qui est plus rapide que la méthode ci-dessus, mais elle occupe beaucoup de CPU. J'ai des problèmes avec mon espace en utilisant la méthode suivante.
<! - # Inclure File = Conn.asp -> <html> <éad- head> <ititle> Générer la page </TITME> <Meta http-equiv = contenu contenu contenu = text / html; charse = gb2312> <Link href = style.css type = text / css rel = Stylesheet> <Meta Content = Mshtml 6.00.2900.3020 Name = Générateur> </ Head> <Body BottomMargin = 0 Leftmargin = 0 topmargin = 0 droite de droite = 0> <BR Style = Overflow: Hidden; Hauteur de ligne: 3px> <Table Border = 1 Width = 100% id = Table1> <tr> <TD> <% DIM ALID, PPP, ID, TOTALNUM SQL = SELECT * FROM TABLE ORDER BY ID DESC set rs = server.createObject (adodb.recordSet) Rs.Open SQL, Conn, 1,1 Si ce n'est pas Rs.Eof alors faire tout en pas Rs.Eof Si allid = alors allid = rs (id) else allid = allid &; & rs (id) Rs.MovEnext boucle autre Si Rs.Bof et Rs.Eof alors Response.Write Aucun article n'a encore été trouvé! Terminer si terminer si Rs.Close Définir RS = rien allid =; allié PPP = Split (Allid,;) Totalnum = Ubund (PPP) pour id = 1 à Totalnum Session (id) = session (id) 1 création (id) Response.Write génère Znwl_ & id & .htm ... <br> suivant %> </td> </tr> </ table> </docy> </html> <% Fonction Create (ID) SQL = SELECT * FROM TABLE WHERE ID = & ID SET RS = Conn.Execute (SQL) nom dim name = rs (nom) Conn.execute (SQL) Rs.Close Définir RS = rien DIM FSO Dim Znwl art sombre talent FW set fso = createObject (scripting.fileSystemObject) Définir Znwl = fso.OpenTextFile (server.mappath (page de modèle)) art = znwl.readall znwl.close %> art = remplacer (art, {$ name $}, nom) set fw = fso.createtextfile (server.mappath (emplacement de stockage de page généré et nom de page), true) FW.Writeline Art fw.close Définir FSO = rien Fonction finale |
Cette méthode est rapide, mais votre espace doit être illimité! - Réseau intelligent
La méthode ci-dessus est pour référence uniquement et n'est pas la dernière version que j'ai modifiée, mais elle est certainement facile à utiliser.
Partage: ASP Tip Exemple: Plusieurs lignes de code résolvent le problème de la prévention de la soumission répétée des formulaires Dans de nombreux cas, il est nécessaire d'empêcher le même formulaire de soumettre plusieurs fois. Les méthodes de mise en œuvre de nombreuses personnes sont relativement compliquées (le nombre de code dépasse des dizaines de lignes !!) Ce qui suit fournit une méthode qui ne nécessite que quelques lignes de code, ce qui empêche facilement les utilisateurs de rafraîchir plusieurs soumissions et d'utiliser le bouton de retour pour réexaminer le formulaire.