Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

Résumé du code source couramment utilisé de l'ASP (partie 2)

Auteur：Eve Cole Date de mise à jour：2025-03-19 01:48:02

Cet article partagera avec vous un code source qui est souvent utilisé dans la programmation ASP. Convient aux débutants à lire. J'espère que cela vous sera utile, jetons un coup d'œil ensemble!

ASP est l'abréviation de la page du serveur actif, ce qui signifie la page du serveur dynamique. ASP est une application développée par Microsoft pour remplacer les programmes de script CGI. Suite à l'article précédent >> http://www.vevb.com/kaifa/asp/70602.html

11. Connexion de la base de données Access:

  1. <%
  2. option Explicit
  3. DIMSTARTIME, FINDITE, Conn, Connstr, DB
  4. startTime = TIMER ()
  5. 'Changez le nom de la base de données
  6. db = données / dvbbs5.mdb
  7. SetConn = server.createObject (adodb.connection)
  8. Connstr = fournisseur = Microsoft.Jet.oledb.4.0; DataSource = & Server.Mappath (DB)
  9. 'Si votre serveur utilise une ancienne version du pilote d'accès, veuillez utiliser la méthode de connexion suivante
  10. 'Connstr = Driver = {Microsoft AccessDriver (*. MDB)}; DBQ = & Server.Mappath (DB)
  11. Conn.OpenConstr
  12. functionclosedatabase
  13. Conn.Close
  14. SetConn = rien
  15. Finition de fin
  16. %>

Connexion de la base de données 12.SQL:

  1. <%
  2. option Explicit
  3. DIMSTARTIME, FINDITE, Conn, Connstr, DB
  4. startTime = TIMER ()
  5. connstr = driver = {sqlServer}; server = hudenq-n11t33nb; uid = sa; pwd = xsfeihu; database = dvbbs
  6. SetConn = server.createObject (adodb.connection)
  7. Conn.OpenConstr
  8. functionclosedatabase
  9. Conn.Close
  10. SetConn = rien
  11. Finition de fin
  12. %>

13. Ouvrez le code de la page Web avec le clavier:

  1. <ScriptLanguage = JavaScript>
  2. functionctlent (eventObject)
  3. {
  4. if ((event.ctrlkey && window.event.keycode == 13) || (event.altkey & window.event.KeyCode == 83))
  5. {
  6. window.open ('site Web', '', '')
  7. }
  8. }
  9. </cript>

Voici les codes de Ctrl + Entrée et Alt + S par vous-même, puis les modifier.

14. Faites la couche non écrasée par le code de contrôle:

  1. <divz-index: 2> <objectxxx> </ object> </div> #front
  2. <divz-index: 1> <objectxxx> </ objet> </div> #back
  3. <divid = couche2style = position: absolu; en haut: 40; largeur: 400px; hauteur: 95px; index z: 2>
  4. <TableHeight = 100% largeur = 100% bgcolor = # ff0000> <tr>
  5. <tdHeight = 100% width = 100%> </td> </tr> </ table> <iframeWidth = 0Height = 0> </ iframe> </div>
  6. <divid = couche1style = position: absolu; en haut: 50; largeur: 200px; hauteur: 115px; index z: 1>
  7. <iframeHeight = 100% width = 100%> </iframe> </div>

15.Dongwang Flash Code de publicité:

  1. <objetClassId = ClSid: D27CDB6E-AE6D-11CF-96B8-444553540000
  2. CodeBase = http: //download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0
  3. largeur = 468height = 60>
  4. <paramname = filmvalue = images / yj16d.swf>
  5. <paramname = QualityValue = High>
  6. <embedsrc = images / dvbanner.swfquality = high
  7. pluginspage = http: //www.macromedia.com/shockwave/download/index.cgi? p1_prod_version = shockwaveflash;
  8. ;;;;;;;;;;;;;

16.VBS Code de fenêtre popup:

  1. <ScriptLanguage = VBScript>
  2. MSGBOX Vous n'avez pas inscrit ou connecté au forum Forum, 0, Boutique Forum
  3. location.href = login.asp
  4. </cript>

17. Utilisez FSO pour modifier les fonctions de contenu spécifiques au fichier:

  1. functionfsochange (nom de fichier, cible, chaîne)
  2. Dimobjfso, objCountFile, filempdata
  3. SetObjfso = server.createObject (scripting.fileSystemObject)
  4. SetObjCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)
  5. FilempData = objCountFile.readall
  6. objCountFile.close
  7. FilempData = remplacer (filempdata, cible, chaîne)
  8. SetObjCountFile = objfso.CreateTextFile (server.mappath (nom de fichier), true)
  9. objCountFile.WriteFilempdata
  10. objCountFile.close
  11. SetObjCountFile = rien
  12. SetObjfso = rien
  13. Finition de fin

18. Fonctions qui utilisent FSO pour lire le contenu du fichier:

  1. functionfsofileread (nom de fichier)
  2. Dimobjfso, objCountFile, filempdata
  3. SetObjfso = server.createObject (scripting.fileSystemObject)
  4. SetObjCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)
  5. FsoFileRead = objCountFile.readall
  6. objCountFile.close
  7. SetObjCountFile = rien
  8. SetObjfso = rien
  9. Finition de fin

19. Fonctions qui utilisent FSO pour lire une certaine ligne d'un fichier:

  1. functionfsolinedit (nom de fichier, linem)
  2. iflinenum <1Thenexitfunction
  3. dimfso, f, temparray, tempcnt
  4. setfso = server.createObject (scripting.fileSystemObject)
  5. ifnotfso.fileexists (server.mappath (nom de fichier)) alorsxitfunction
  6. setf = fso.OpenTExtFile (server.mappath (nom de fichier), 1)
  7. ifnotf.atendofstreamhen
  8. tempcnt = f.readall
  9. f.close
  10. setf = rien
  11. template = Split (Tempcnt, Chr (13) & Chr (10))
  12. iflinenum> ubund (temparray) + 1Then
  13. sortie
  14. autre
  15. Fsolinedit = temparray (linenum-1)
  16. endire
  17. endire
  18. finition de fin

20. Fonctions qui modifient le contenu spécifique au fichier à l'aide de FSO:

  1. functionfsochange (nom de fichier, cible, chaîne)
  2. Dimobjfso, objCountFile, filempdata
  3. SetObjfso = server.createObject (scripting.fileSystemObject)
  4. SetObjCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)
  5. FilempData = objCountFile.readall
  6. objCountFile.close
  7. FilempData = remplacer (filempdata, cible, chaîne)
  8. SetObjCountFile = objfso.CreateTextFile (server.mappath (nom de fichier), true)
  9. objCountFile.WriteFilempdata
  10. objCountFile.close
  11. SetObjCountFile = rien
  12. SetObjfso = rien
  13. Finition de fin

21. Fonctions qui utilisent FSO pour lire le contenu des fichiers

:

  1. functionfsofileread (nom de fichier)
  2. Dimobjfso, objCountFile, filempdata
  3. SetObjfso = server.createObject (scripting.fileSystemObject)
  4. SetObjCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)
  5. FsoFileRead = objCountFile.readall
  6. objCountFile.close
  7. SetObjCountFile = rien
  8. SetObjfso = rien
  9. Finition de fin

22. Fonctions qui utilisent FSO pour lire une certaine ligne d'un fichier:

  1. functionfsolinedit (nom de fichier, linem)
  2. iflinenum <1Thenexitfunction
  3. dimfso, f, temparray, tempcnt
  4. setfso = server.createObject (scripting.fileSystemObject)
  5. ifnotfso.fileexists (server.mappath (nom de fichier)) alorsxitfunction
  6. setf = fso.OpenTExtFile (server.mappath (nom de fichier), 1)
  7. ifnotf.atendofstreamhen
  8. tempcnt = f.readall
  9. f.close
  10. setf = rien
  11. template = Split (Tempcnt, Chr (13) & Chr (10))
  12. iflinenum> ubund (temparray) + 1Then
  13. sortie
  14. autre
  15. Fsolinedit = temparray (linenum-1)
  16. endire
  17. endire
  18. finition de fin

À ce stade, je vous le présenterai dans le résumé des codes ASP couramment utilisés.

Articles connexes