日中関係

<%
Sub SupportOptionsWriter

Select Case oRSs.CursorType
Case 0
vCursorType = "Forward Only - 0"
Case 1
vCursorType = "Keyset - 1"
Case 2
vCursorType = "Dynamic - 2"
Case 3
vCursorType = "Static - 3"
End Select

Select Case oRSs.LockType
Case 1
vLockType = "Read Only - 1"
Case 2
vLockType = "Pesimistic - 2"
Case 3
vLockType = "Optimistic - 3"
Case 4
vLockType = "Batch Optimistic - 4"
End Select

Response.Write "<HR>このレコードセットを使用:<BR>"
Response.Write "Cursor = " & vCursorType & "<BR>"
Response.Write "Lock = " & vLockType & "<HR>"

Response.write "AdAddNew = " & oRSs.Supports(AdAddNew) & "<BR>"
Response.write "AdApproxPosition = " & oRSs.Supports(AdApproxPosition) & _
"<BR>"
Response.write "AdBookmark = " & oRSs.Supports(AdBookmark) & "<BR>"
Response.write "AdDelete = " & oRSs.Supports(AdDelete) & "<BR>"
Response.write "AdHoldRecords = " & oRSs.Supports(AdHoldRecords) & _
"<BR>"
Response.write "AdMovePrevious = " & oRSs.Supports(AdMovePrevious) & _
"<BR>"
Response.write "AdNotify = " & oRSs.Supports(AdNotify) & "<BR>"
Response.write "AdResync = " & oRSs.Supports(AdResync) & "<BR>"
Response.write "AdUpdate = " & oRSs.Supports(AdUpdate) & "<BR>"
Response.write "AdUpdateBatch = " & oRSs.Supports(AdUpdateBatch) & _
"<BR>"
End Sub
%>

<table border='1'><TR>
<%
'すぐにプロシージャを使う
For CountLock=1 to 4
Response.Write "<TR>"
For CountCursor=0 to 3
set oRSs=server.createobject("ADODB.recordset")
oRSs.Open "People", "DSN=Sailors",CountCursor,CountLock
Response.Write "<TD>"
call SupportOptionsWriter
Response.Write "</TD>"
oRSs.close
set oRSs=nothing
next 'カーソルカウント
Response.Write "</TR>"
next 'ロックカウント
%>