<%
'###################################################################
'Замените контент базы данных, флагирующие 2005-8-22
'Обновлено и пересмотрено: 2006-6-28
'http://www.imbbs.cn QQ: 628557
'Проданное космическое доменное имя. Производство веб -страницы.
'###################################################################
'Пожалуйста, внесите изменения в разные ситуации
Const s1 = "admin" 'строка, которая должна быть заменена
Const s2 = "1234" 'заменен строкой
Const db = "lamking.mdb" 'база данных
Const ignorecase = true 'игнорировать случай
'Следующие данные не должны быть изменены
Dim ors, ors2, conn, i
Установить conn = server.createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0; Data Source =" & server.mappath (db)
Установить ors = conn.openschema (20)
Делать, пока нет ors.
Если ucase (ors ("table_type")) = "table", то «если это пользовательская таблица
'Loop заменяет каждое поле таблицы
Установить ors2 = server.createObject ("adodb.recordset")
ors2.open "select * from [" & ors ("table_name") & "]", conn, 1,3
Делать, пока не ors2.eof
Для i = 0 to ors2.fields.count-1
'Если это объект OLE или поле для автоматического нумерации, он не будет заменен
Если ors2 (i) .properties ("isautoincrent") = false и ors2 (i) .type <> 205 тогда
ors2 (ors2 (i) .name) = myreplace (ors2 (i).
Конец, если
Следующий
ORS2.UPDATE
ORS2.movenext
Петля
ORS2.Close
установить ors2 = ничего
Конец, если
Or.movenext
Петля
или
Установить ors = ничего
Conn.close
Установить conn = ничего
Response.write "Замена завершена"
Функция myreplace (byval tstr)
Dim Regex
Если tstr = "" или isnull (tstr), то выход функции
Установить regex = new Regexp
Regex.global = true
Regex.ignorecase = игнорировать
Regex.multiline = true
Regex.pattern = s1
myreplace = regex.replace (tstr, s2)
Установить regex = ничего
Конечная функция
%>