Empfohlen: ASP liest Textdateien und zeigt sie an HTML Head http-äquiv = content-type content = text/html; charSet = gb2312 Titel /Titel /Kopf Körper % Sprache = vbScript % % const Forreading = 1, Forwriting = 2, Forappending = 8 const tristateUsedEfault = -2, Tristatetrue = -1, TristateFalse
| < % Setzen Sie rs = server.createObject (adodb.Recordset) db = db.mdb „Ändern Sie einfach den Datenbanknamen direkt und Sie werden den Effekt sehen. Setzen Sie conn = server.createObject (adodb.Connection) connStr = provider = microsoft.jet.oledb.4.0; Data Source = & Server.Mappath (DB) Conn.open Connstr Setzen Sie Rs = Conn.openschema (20) Tun Sie bis zum Rs.Eof Wenn Rs (3) = Tabelle dann Antwort. Setzen Sie rs1 = server.createObject (adodb.recordset) SQL = Select * aus & rs (2) Setzen Sie RS1 = Conn.Execute (SQL) Antwort. Schreiben Sie Feldname: Für i = 0 bis rs1.Fields.count-1 response.write rs1.fields (i) .name & Nächste response.write <br /> Tun, während nicht Rs1.eof Antwort.Write Für i = 0 bis rs1.Fields.count-1 t = RS1.Fields (i) .Name response.write rs1 (t) & Nächste Antwort.Write RS1.Movenext Schleife Antwort.Write Ende wenn Rs.Movenext Schleife Setzen Sie Rs = nichts Setzen Sie Conn = nichts %> |
Teilen: So verwenden Sie Instrrev (), um Dateinamen in ASP zu erhalten Die Instrimierungsfunktion startet von der letzten Suche der Zeichenfolge und ist die vorhergehende Zeichenfolge. % Dim strtxt, pos strtxt = www.webjx.com pos = instrrev (strtxt,) response.write pos % Der Beginn unserer Suche ist in umgekehrter Reihenfolge von einem Punkt vor Com. Die Länge des Startcharakters, einschließlich dieses Punktes, hat insgesamt zehn Zeichen, und das zurückgegebene Ergebnis beträgt 9. Pass.