非數(shù)據(jù)庫實(shí)現(xiàn)數(shù)據(jù)對(duì)象的實(shí)例及說明
If Sign="+" Then '如果為只讀屬性
%>
<input type="hidden" name="<%=AttrID %>" value="" />系統(tǒng)計(jì)算:<%=Values(3) %>
<%
Else
'按照類型進(jìn)行顯示
If Values(1)="BOOL" Then
Response.Write "<input type=""checkbox"" name=""" & AttrID & """ value=""1"" />"
Else
If Values(1)="DICTIONARY" Then
'ENVIRONMENT為Scripting.Dictionary對(duì)象
'ENVIRONMENT.Item(“ROOT”)中存儲(chǔ)了該程序管理的根目錄
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>