信息技术

<%
Dim aName
If Request.QueryString("name") <> "" Then
        aName = Trim(Request.QueryString("name"))
        Select Case aName
                Case "new"
                        Response.Write "New"
                        Response.End
                Case "top"
                        Response.Write "Top"
                        Response.End
                Case Else
                        Response.Write "Other"
                        Response.End
        End Select
Else
        Response.Write "No Value"
        Response.End
End If
%>

所以确保不出现意想不到的错误，在select  Case中先将条件转成大/小写，这样
<%
Dim aName
If Request.QueryString("name") <> "" Then
        aName = LCase(Request.QueryString("name"))
        Select Case aName
                Case "new"
                        Response.Write "New"
                        Response.End
                Case "top"
                        Response.Write "Top"
                        Response.End
                Case Else
                        Response.Write "Other"
                        Response.End
        End Select
Else
        Response.Write "No Value"
        Response.End
End If
%>