gotolist.asp

jkjgkjbkjklb hnbbnl,bmnmn

<%Sub GoToList()
Dim TheTitle,TheToList
TheTitle=NB_GetContent(TheThie,"<title>","</TITLE>",0)
If TheTitle="雅虎音乐搜索_列表目录" Then
TheToList=NB_GetContent(TheThie,">> <b>","</b>",0)
select case TheToList
case "新歌飙升榜"
response.redirect "list.asp?song=1"
case "流行金曲"
response.redirect "list.asp?song=3"
case "难忘老歌"
response.redirect "list.asp?song=4"
case "华语男歌手"
response.redirect "list.asp?song=5"
case "华语女歌手"
response.redirect "list.asp?song=6"
case "华语组合"
response.redirect "list.asp?song=7"
case "劲爆舞曲"
response.redirect "list.asp?song=8"
case "摇滚另类"
response.redirect "list.asp?song=9"
case "搞笑歌曲"
response.redirect "list.asp?song=10"
case "日韩歌曲"
response.redirect "list.asp?song=11"
case "粤语歌曲"
response.redirect "list.asp?song=12"
case "欧美歌曲"
response.redirect "list.asp?song=13"
case "经典对唱"
response.redirect "list.asp?song=14"
case else
response.redirect "list.asp?song=2"
end Select
End If
End Sub%>