<%
'#######################################################################################################################.
'데이터베이스 컨텐츠를 대체 할 수 있습니다. Lamking 2005-8-22
'업데이트 및 개정 : 2006-6-28
'http://www.imbbs.cn QQ : 628557
'공간 도메인 이름을 판매했습니다. 웹 페이지 제작.
'#######################################################################################################################.
'다른 상황을 변경하십시오
const s1 = "admin" '교체 할 문자열
const s2 = "1234" '는 문자열로 대체되었습니다
const db = "lamking.mdb" '데이터베이스
const gnorecase = true '사례를 무시하십시오
'다음 데이터를 변경할 필요가 없습니다
Dim Ors, Ors2, Conn, i
set conn = server.createobject ( "adodb.connection")
conn.open "공급자 = microsoft.jet.oledb.4.0; data source ="& server.mappath (db)
set ors = conn.openschema (20)
or.eof가 아닌 동안
if ucase (ors ( "table_type") = "table"은 사용자 테이블이면
'루프는 테이블의 각 필드를 대체합니다
set ors2 = server.createobject ( "adodb.recordset")
ORS2. ORS2. OPEN "SELECT * from ["& ORS ( "Table_Name") & "]", Conn, 1,3
ors2.eof가 아닙니다
i = 0으로 ORS2.Fields.count-1
'올레 객체 또는 자동 번호 매기기 필드 인 경우 교체되지 않습니다.
ORS2 (i) .properties ( "isaUtoincrement") = false 및 ors2 (i). 타입 <> 205
ors2 (Ors2 (i) .name) = myreplace (ors2 (i) .Value)
끝 If
다음
ors2.update
ors2.movenext
고리
ors2.close
ORS2 = 아무것도 설정하지 않습니다
끝 If
ors.movenext
고리
ors.close
ORS = 아무것도 설정하지 않습니다
conn.close
Conn = 아무것도 설정하지 않습니다
Response.write "교체 완료"
기능 myreplace (byval tstr)
희미한 정규식
TSTR = ""또는 ISNULL (TSTR) 인 경우 기능을 종료하십시오
REGEX = New Regexp를 설정하십시오
regex.global = true
regex.ignorecase = gnorecase
regex.multiline = true
regex.pattern = s1
myreplace = regex.replace (tstr, s2)
REGEX = 아무것도 설정하지 않습니다
엔드 기능
%>