Recomendado: asp lê arquivos de texto e os exibe HTML Head HTTP-Equiv = Conteúdo do Tipo de Conteúdo = Texto/Html; charset = gb2312 título /título /cabeçote de corpo % idioma = vbscript % % const forreading = 1, forwriting = 2, forappending = 8 constateUsedusefault = -2, tristatetrue = -1, tristatefalse
| < % set rs = server.createObject (adodb.recordset) db = db.mdb 'Basta alterar o nome do banco de dados diretamente e você verá o efeito. Definir Conn = Server.CreateObject (Adodb.Connection) Connstr = provedor = microsoft.jet.oledb.4.0; fonte de dados = & server.mappath (dB) Conn.Open Connstr Definir rs = Conn.openschema (20) Faça até Rs.eof Se rs (3) = tabela então Response.write tabela Nome: & rs (2) & <r /> SET RS1 = Server.createObject (adodb.recordset) sql = selecione * de & rs (2) SET RS1 = Conn.Execute (SQL) Response.Write Nome do campo: Para i = 0 a rs1.fields.count-1 Response.Write rs1.fields (i) .name & Próximo Response.write <r /> Faça enquanto não é rs1.eof Response.Write Para i = 0 a rs1.fields.count-1 t = rs1.fields (i) .name Response.Write RS1 (T) & Próximo Response.Write rs1.movenext Laço Response.Write Final se rs.movenext Laço Defina rs = nada Definir conn = nada %> |
Compartilhar: Como usar o Instrrev () para obter nomes de arquivos no ASP A função Instrrev começa na última pesquisa da string e é a string anterior. % Dim strtxt, pos strtxt = www.webjx.com POS = Instrrev (strtxt ,.) Response.Write POS % O início de nossa pesquisa está em ordem inversa, de um ponto antes da com. A duração do personagem inicial, incluindo este ponto, tem dez caracteres no total, e o resultado retornado será 9. Passe