📄 nameexp2.asp
字号:
<HTML>
<BODY>
<%
Name = Array("HTML", "ASP", "ADO", "RDS" ) ' 名词
ReDim Meaning(3) ' 名词解释
Meaning(0) = "HyperText Markup Language, 超文本标记语言"
Meaning(1) = "Active Server Pages, 动态服务器端网页"
Meaning(2) = "ActiveX Data Object, 数据存取对象"
Meaning(3) = "Remote Data Service, 远程数据存取服务"
data = Request("Name") ' 读取上网者所输入的名词
For I = 0 To UBound(Name)
If UCase(data) = UCase(Name(I)) Then
' 或 If LCase(data) = LCase(Name(I)) Then
Response.Write "<DL>"
Response.Write "<DT>" & Name(I)
Response.Write "<DD>" & Meaning(I)
Response.Write "</DL>"
Exit For
End If
Next
If I > UBound(Name) Then ' 表示没有找到名词解释
Response.Write data & " 没有对应的名词解释"
End If
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -