asp alexa查询小偷程序(5)

    End If
    If rankcontent="$False$" Then 
        rankcontent="No Data"
    End if
    getAlexaRank=Replace(rankcontent,",","")

End Function
url=request.querystring("url")
%>

<form name="alexaform" method=get>
    输入网址:<input type="" name="url" value="<%=url%>" size=40> <input type="submit" value="查 询">
</form>
<%
If url<>"" Then

    response.write "您的网站在ALEXA的排名为："
    response.flush
    rank=getAlexaRank(url)
    response.write rank
End if
%>