Recommandé: brève analyse des conseils de recherche ASP Ajax similaires à Google Les fichiers principaux sont: la fonction d'implémentation index.html, une zone de texte, l'entrée du contenu et implément la fonction de requête de recherche invite.asp, permettez au contenu entré dans la zone de texte soit interrogé dans la base de données, puis la renvoie à la fonction de connexion de la base de données Conn.asp Conn.asp, implémentaire et implémentation
Il existe de nombreux systèmes d'information qui génèrent du HTML, mais ils utilisent tous des modèles. Cette fonction enregistre le code HTML généré par la page ASP dans un fichier HTML, il n'est donc pas nécessaire de modifier la page d'origine et il peut être facilement
Complétez un système d'information qui génère du HTML. ^ _ ^
Puisque le code est court, je ne commenterai pas ici
<%
«Lorsque la page cible contient le fichier, c'est-à-dire la page #include, il y a un problème avec ce programme.
«Remarque: ce fichier doit être placé dans le même répertoire que le fichier pointé par le nom de fichier
| Ce qui suit est le contenu cité: dim hughchiu_rtcode Fonction get_exe_code (nom de fichier) dim exécuter tmp_str dim Dim re, re1, contenu, fso, f, aspstart, aspend Dim MS, M exécuter = set fso = createObject (scripting.fileSystemObject) SET F = FSO.OPENEXTFILE (server.mappath (nom de fichier)) Contenu = F.Readall f.close Définir F = rien Définir FSO = rien Définir Re = nouveau regexp re.ignorecase = true re.global = true re.Pattern = <% @ [^%]%> contenu = re.replace (contenu,) re.global = false re.Pattern = <! - S * # inclut * fichiers * = s * ([^]) s * -> faire set ms = re.execute (contenu) Si Ms.Count <> 0 alors Définir M = MS (0) tmp_str = get_exe_code (M.Submatches (0)) contenu = re.replace (contenu, tmp_str) autre sortir faire terminer si boucle définir m = rien Définir MS = rien re.Pattern = ^ s * = AsPend = 1 Aspstart = instr (aspended, contenu, <%) 2 Définir RE1 = New Regexp re1.ignorecase = true re1.global = false re1.Pattern = réponse.write (.) faire en aspstart> Aspender 1 execode = execode & vbcrlf & hughchiu_rtcode = Hughchiu_rtcode && remplacter (remplacer (mid (contenu, asPend, aspstart-assend-2) ,,), vbcrlf, & vbcrlf &) && vbcrlf asPend = instr (aspstart, contenu,%>) 2 tmp_str = mid (contenu, aspstart, aspennd-astart-2) faire set ms = re1.execute (tmp_str) Si Ms.Count <> 0 alors Définir M = MS (0) tmp_str = re1.replace (tmp_str, Hughchiu_rtcode = Hughchiu_rtcode && m.submatches (0)) autre sortir faire terminer si boucle définir m = rien Définir MS = rien execode = execode & re.replace (tmp_str, Hughchiu_rtcode = Hughchiu_rtcode &) Aspstart = instr (aspended, contenu, <%) 2 boucle Définir RE1 = rien Définir RE = rien execode = execode & vbcrlf & hughchiu_rtcode = Hughchiu_rtcode && remplacer (remplacer (mid (contenu, asPend),,), vbcrlf, & vbcrlf &) && vbcrlf get_exe_code = <% & exécuter &%> Fonction finale fonction asp2html (nom de fichier) code DIM Code = remplacer (remplacer (remplacer (get_exe_code (nom de fichier), Hughchiu_rtcode = Hughchiu_rtcode && vbcrlf,), <%,),%>,) 'Response.Write (code) exécuter (code) 'Response.Write (Hughchiu_rtcode) asp2html = Hughchiu_rtcode fonction finale %> |
Exemple d'utilisation:
| Ce qui suit est le contenu cité: F.WriteLine (ASP2HTML (YouPage.asp)) f.close Définir F = rien Définir FSO = rien |
Partager: percevoir la puissance de l'ASP via les scripts de démarrage Comme la plupart des scripts de langue, la meilleure façon d'apprendre ASP est d'essayer ASP vous-même et d'installer des PWS ou des IIS en utilisant votre propre système. Vous pouvez tester les composants et fonctions ASP sur votre propre serveur lors de l'apprentissage. Pour faciliter l'apprentissage, nous avons compilé quelques baise