Рекомендуется: ASP читает текстовые файлы и отображает их HTML Head Http-equiv = Content-Type Content = text/html; charset = gb2312 заголовок /заголовок /тело головы % ranguage = vbscript % const forreding = 1, forwriting = 2, forAppending = 8 const tristateUsefault = -2, tristateTrue = -1, tristatefalse
| < % Установить rs = server.createObject (adodb.recordset) DB = DB.MDB «Просто измените имя базы данных напрямую, и вы увидите эффект. Установить conn = server.createObject (adodb.connection) connstr = provider = microsoft.jet.oledb.4.0; data source = & server.mappath (db) Conn.Open Connstr Установите RS = Conn.Openschema (20) Делайте до Rs.eof Если rs (3) = таблица, то response.write name: & rs (2) & <br /> Установить rs1 = server.createObject (adodb.recordset) SQL = SELECT * FROM RS (2) Установите rs1 = conn.execute (sql) response.write Имя поля: Для i = 0 до rs1.fields.count-1 response.write rs1.fields (i) .name & Следующий response.write <br /> Делать, пока не rs1.eof response.write Для i = 0 до rs1.fields.count-1 t = rs1.fields (i) .name response.write rs1 (t) и Следующий response.write rs1.movenext Петля response.write Конец, если Rs.movenext Петля Установить RS = ничего Установить conn = ничего %> |
Поделиться: как использовать instrrev (), чтобы получить имена файлов в ASP Функция Instrrev начинается с последнего поиска строки и является предыдущей строкой. % Dim strtxt, pos strtxt = www.webjx.com pos = instrrev (strtxt ,.) response.write pos % Начало нашего поиска находится в обратном порядке, из точки до ком. Длина стартового символа, включая этот момент, имеет в общей сложности десять символов, и результат возвращается 9.