ex03ans.asp

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

<%
Pages = Array( "F8308", "F8315", "F8316", "F8317")
URL = Array("api/vbapi.htm", "ba/vbba6.htm", "ex/vbex6.htm", "db/vbdb6.htm")

page = Request("Page")
For I = 0 To UBound(Pages)
    If Trim(uCase(page)) = Pages(I) Then
        Response.Redirect URL(I)
        Exit For
    End If
Next

If I > UBound(Pages) Then
    Response.Write "您所输入网页编号 " & page & "不存在!"
End If
%>