Recomendado: ASP lee archivos de texto y los muestra html head http-oquiv = content-type content = text/html; Charset = GB2312 Título /Título /Cabeza de cabeza % Language = VBScript % CONST ForReading = 1, forwriting = 2, ForAppending = 8 const TristateUsedefault = -2, Tristatetrue = -1, TristateFalse
| < % establecer rs = server.createObject (ADODB.RecordSet) db = db.mdb 'Simplemente cambie el nombre de la base de datos directamente y verá el efecto. Establecer conn = server.createObject (ADODB.Connection) Connstr = Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & Server.Mappath (DB) Conn.open Connstr Establecer rs = conn.openschema (20) Hacer hasta RS.EOF Si Rs (3) = tabla entonces Respuesta. Escribe el nombre de la tabla: & rs (2) y <br /> Establecer rs1 = server.createObject (ADODB.RecordSet) sql = select * de & rs (2) Establecer rs1 = conn.execute (SQL) Respuesta. Escribe el nombre del campo: Para i = 0 a rs1.fields.Count-1 Respuesta.WRITE RS1.FIELDS (I) .NAME & Próximo Response.Write <Br /> Haz mientras no rs1.eof Respuesta. Escribe Para i = 0 a rs1.fields.Count-1 t = rs1.fields (i) .name Respuesta.WRITE RS1 (T) y Próximo Respuesta. Escribe rs1.movenext Bucle Respuesta. Escribe Final si Rs.Movenext Bucle Establecer RS = nada Establecer conn = nada %> |
Compartir: Cómo usar instrrev () para obtener nombres de archivo en ASP La función Instrrev comienza desde la última búsqueda de la cadena y es la cadena anterior. % Dim strtxt, pos strtxt = www.webjx.com pos = instrrev (strtxt ,.) respuesta.write pos % el comienzo de nuestra búsqueda está en orden inverso, desde un punto antes de com. La longitud del personaje inicial, incluido este punto, tiene diez caracteres en total, y el resultado devuelto será 9. Pase