예제 세부 사항 ASP에서 설정된 연결 해제 레코드 사용 방법

＜ % @language = vbscript % ＞

＜!-#포함 파일 = adovbs.inc-＞ includ

＜%

응답 .expires = 0

Dim CNN, OBJRS, Strout, Strq, Strc

strc = driver = {Microsoft Access Driver (*.mdb)}; dbq = & server.mappath ( /asp24) & /northwind.mdb;

'연결하십시오

cnn = server.createobject (adodb.connection)

CNN. OPEN STRC

'레코드 세트 개체를 만듭니다

set objrs = server.createobject (adodb.recordset)

objrs.cursorlocation = 신분을 맺습니다

objrs.cursortype = 채택

objrs.locktype = adlockoptiomistic

strq = Freighter ID, 회사 이름, Freighter의 전화 선택

objrs.open strq, cnn ,, adcmdtext

set objrs.ActiveConnection = nothing '끊김 레코드 세트

CNN.CLOSE '연결을 닫습니다

CNN = 아무것도 설정하지 않습니다

응답. write ＜ html ＞＜ 바디 ＞

'다음은 연결이 끊긴 레코드 세트를 사용합니다

할 때 (objrs.eof)

Strout = objrs (Freighter ID) &, & objrs (회사 이름) &, & objrs (tel)

response.write server.htmlencode (Strout) & ＜Br＞

objrs.movenext

고리

response.write ＜BRite 레코드를 추가하거나 삽입 할 준비 :

'데이터베이스를 업데이트 해야하는 경우 연결을 다시 설정해야합니다.

cnn = server.createobject (adodb.connection)

CNN. OPEN STRC

objrs.ActiveConnection = CNN을 설정하십시오

objrs.filter = 회사 이름 = 'wu feng'

그렇다면 objrs.eof라면

objrs.addnew

objrs (회사 이름) = wu feng

OBJRS (전화) = 571-7227298

objrs.update

응답.이 조건을 충족하는 레코드가 존재하지 않으면 추가됩니다. <br>

또 다른

OBJRS (전화) = 571-7227071

Response.Write이 조건을 충족하는 레코드가 존재하는 경우 업데이트.

objrs.update

끝 If

objrs.ActiveConnection = 아무것도 설정하지 않습니다

CNN.CLOSE

CNN = 아무것도 설정하지 않습니다

objrs.close

OBJRS = 아무것도 설정하지 않습니다

응답. write ＜/body ＞＜/html ＞

%＞