Вы можете изменить функцию myreplace для реализации сложных замен. Ха-ха, похоже, от нее мало пользы. Основная цель — увидеть, как читать таблицу доступа и список полей
<%.
'####################################
'Заменить содержимое базы данных, 22 августа 2005 г.
'http://www.lamking.com QQ:628557
'####################################
Dim Db,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd" 'Строка, которую необходимо заменить
str2="1234" 'Замените строку на
Дб="lamking.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Источник данных="&server.mappath(Db)
Conn.Open ConnStr
Установите rs = conn.OpenSchema(20)
Делай, пока не rs.eof
Если rs("TABLE_TYPE")="ТАБЛИЦА" Тогда
Set Rs2=Server.Createobject("adodb.recordset")
Rs2.Open "выберите * из ["&rs("TABLE_NAME")&"]",conn,1,3
Делай, пока нет рупий 2.Eof
Для I=0 до Rs2.fields.count-1
Если Rs2(i).Properties("ISAUTOINCREMENT") = False Тогда
Rs2(Rs2(i).имя)=Myreplace(Rs2(i).значение)
Конец, если
Следующий
Rs2.Movenext
Петля
Rs2.Закрыть
Установите Rs2 = ничего
Конец, если
Rs.Movenext
Петля
рупийблизко
Установите Rs = ничего
Конн.закрыть
Установить Conn=ничего
Ответ. Напишите «Замена завершена».
Функция myreplace(byval Tstr)
Если Tstr="" Или isnull(Tstr) Тогда
Выход из функции
Еще
myReplace=заменить(Tstr,str1,str2)
Конец, если
Конечная функция
%>