myreplace 함수를 수정하여 복잡한 대체를 구현할 수 있습니다. 하하, 주요 목적은 액세스 테이블과 필드 목록
<%를
읽는 방법을 확인하는 것입니다.
'##################################
'데이터베이스 내용 램킹 교체 2005-8-22
'http://www.lamking.com QQ:628557
'##################################
희미한 Db,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd" '교체할 문자열
str2="1234" '문자열을 다음으로 바꾸세요.
Db="lamking.mdb"
conn=Server.CreateObject("ADODB.Connection") 설정
ConnStr="공급자=Microsoft.Jet.OLEDB.4.0;데이터 소스="&server.mappath(Db)
Conn.Open ConnStr
rs = conn.OpenSchema(20) 설정
rs.eof가 아닌 동안 수행
rs("TABLE_TYPE")="TABLE"인 경우 다음
Rs2=Server.Createobject("adodb.recordset") 설정
Rs2.Open "["&rs("TABLE_NAME")&"]에서 * 선택",conn,1,3
Rs2.Eof가 아닌 동안 수행
I=0 ~ Rs2.fields.count-1의 경우
Rs2(i).Properties("ISAAUTOINCREMENT") = False인 경우
Rs2(Rs2(i).name)=Myreplace(Rs2(i).value)
종료 조건
다음
Rs2.Movenext
고리
Rs2.닫기
Rs2=아무것도 설정하지 않음
종료 조건
Rs.Movenext
고리
Rs.close
Rs=아무것도 설정하지 않음
연결닫기
Conn=아무것도 설정하지 않음
Response.Write "교체 완료"
함수 myreplace(byval Tstr)
Tstr="" 또는 isnull(Tstr)이면
종료 기능
또 다른
myReplace=교체(Tstr,str1,str2)
종료 조건
기능 종료
%>