非數(shù)據(jù)庫實現(xiàn)數(shù)據(jù)對象的實例及說明

    If Sign="+" Then    '如果為只讀屬性

%>

<input type="hidden" name="<%=AttrID %>" value="" />系統(tǒng)計算：<%=Values(3) %>

<%

Else

  '按照類型進行顯示

      If Values(1)="BOOL" Then

        Response.Write "<input type=""checkbox"" name=""" & AttrID & """ value=""1"" />"

      Else

        If Values(1)="DICTIONARY" Then

          'ENVIRONMENT為Scripting.Dictionary對象

'ENVIRONMENT.Item(“ROOT”)中存儲了該程序管理的根目錄

          FName = ENVIRONMENT.Item("ROOT") & "\dictionary\" & Values(2) & ".dic"

%>

          <select name="<%=AttrID %>">

<%

          If FSO.FileExists(FName) Then

            Set F = FSO.OpenTextFile(FName, 1, False)

            Do While Not F.AtEndOfStream

              sValue = F.ReadLine

              Pos = InStr(sValue, "=")

              If Pos>0 Then

                Response.Write "<option value=""" & Left(sValue, Pos-1) & """>" & Right(sValue, Len(sValue)-Pos) & "</option>"

              End If

            Loop

            F.Close

          End If

%>

          </select>

<%

        Else

          Response.Write "<input type=""textbox"" name=""" & AttrID & """ size=""30"" />"

        End If

      End If

    End If

%>

                            </td>

                     </tr>

<%

    'Count = Count + 1

  End If

Next

%>

                     <tr>

                            <td width="10%">　</td>

                            <td>　</td>

                     </tr>

                     <tr>

                            <td width="10%">　</td>

                            <td>　</td>

                     </tr>

              </table>

              </td>

       </tr>

       <tr>