|
关键字相关教程：
JavaScript |
网页特效 |
动态网页 |
|
<td＞
<%
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＞
<td bgcolor="#C 0C 0C 0" align="right" valign="middle"＞<input type="submit" name="btnSave" value=" 保存 " /＞ <input type="button" name="btnReset" value=" 重输 " /＞</td＞
</tr＞
</table＞
</form＞
</body＞
</html＞
三是利用代码说明 xml 存储的实现
<% @LANGUAGE=VBSCRIPT %＞
(study.iader.com)
