nameexp3.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 30 行

ASP
30
字号
<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")	' 读取上网者所输入的名词
data = Trim(data)
For I = 0 To UBound(Name)
    If UCase(data) = UCase(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 + =
减小字号Ctrl + -
显示快捷键?