singer.asp

jkjgkjbkjklb hnbbnl,bmnmn

<!--#include file="config.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/file.asp"-->
<!--#include file="inc/skin.asp"-->
<%Dim Singer,TheUrl,TheThie
Singer=request("singer")
If Singer="" Then
response.redirect"./"
else
TheUrl=replace(request.querystring,"singer=","")
TheUrl="http://music.cn.yahoo.com/onesearch_singer.html?p="&TheUrl&"&ei=utf-8"
End If
TheThie=NB_GetPage(TheUrl)
Singer=split(NB_GetContent(TheThie,"<title>","</title>",0),"_")(0)
Dim TheSinger,ThePage,SkinType,NBCache
If InStr(TheThie,"<div class=""singersongs"">") > 0 Then
TheSinger=Rp_singer(NB_GetContent(TheThie,"<div class=""singersongs"">","</div>",1))
SkinType="singer"
Else
TheLrc="<b>抱歉！网络忙 或 无法找到歌手相关歌曲。</b>"
SkinType="none"
End If
NBCache=NB_Skin(SkinType)
NBCache=Replace(NBCache,"{NB:singer}",Singer)
NBCache=Replace(NBCache,"{NB:contents}",TheSinger)
Response.Write NBCache
Function Rp_Singer(s)
s=Replace(s,"http://one.cn.yahoo.com/s?p=","song.asp?song=")
s=Replace(s,"&v=music&source=ysmt_combohotsong_r","")
s=Replace(s,"<div style=""clear:both;height:0px;overflow:hidden;""></div>","")
Rp_Singer=s
End Function%>