非数据库实现数据对象的实例及说明

    If Sign="+" Then    '如果为只读属性

%>

<input type="hidden" name="<%=AttrID %>" value="" />系统计算：<%=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>