Mode
ストリームの権限設定
文法
Streamオブジェクト.Mode
パラメータ
権限の定数
機能説明
ストリームに対して、読み取り・書き込みなどの権限を設定
ユーザ権限定数
| 定数 | 値 | 説明 |
|---|
| adModeUnknown | 0 | 不明 |
| adModeRead | 1 | 読み取り専用（デフォルト） |
| adModeWrite | 2 | 書き込み専用 |
| adModeReadWrite | 3 | 読み取り、書き込み可能 |
| adModeShareDenyRead | 4 | 他のユーザーによる読み取りを禁止 |
| adModeShareDenyWrite | 8 | 他のユーザーにより書き込みを禁止 |
| adModeShareExclusive | 12 | 他のユーザーの接続を禁止 |
| adModeShareDenyNone | 16 | 他のユーザーも読み取り、書き込み可能 |
使用例
<![CDATA[
<%
Dim objSt
Set objSt = Server.CreateObject("ADODB.Stream")
objSt.Mode = adModeReadWrite
objSt.Open
objSt.LoadFromFile "D:\test\sample.html"
Select Case objSt.Mode
Case adModeUnknown
Response.Write "権限 : 不明<br>" & vbCrLf
Case adModeRead
Response.Write "権限 : 読み取り専用<br>" & vbCrLf
Case adModeWrite
Response.Write "権限 : 書き込み専用<br>" & vbCrLf
Case adModeReadWrite
Response.Write "権限 : 読み取り、書き込み可能<br>" & vbCrLf
Case adModeShareDenyRead
Response.Write "権限 : 他のユーザーによる読み取りを禁止<br>" & vbCrLf
Case adModeShareDenyWrite
Response.Write "権限 : 他のユーザーにより書き込みを禁止<br>" & vbCrLf
Case adModeShareExclusive
Response.Write "権限 : 他のユーザーの接続を禁止<br>" & vbCrLf
Case adModeShareDenyNone
Response.Write "権限 : 他のユーザーも読み取り、書き込み可能<br>" & vbCrLf
End Select
'オブジェクトを閉じる
objSt.Close
Set objSt = Nothing
%>
]]>
Topへ