sms.asp

来自「jkjgkjbkjklb hnbbnl,bmnmn」· ASP 代码 · 共 17 行

<!--#include file="inc/inc.asp"-->
<%
Dim Word,Name,TheUrl,TheThie
Word=request("word")
if Word="" or request.querystring="" then
response.write"<script>alert('参数错误！');window.close();</script>"
response.end
else
Word=split(replace(request.querystring,"word=",""),"/")(0)
TheUrl="http://one.cn.yahoo.com/s?p="&word&"&v=music&ei=UTF-8&mimetype=lyric&source=ysearch_music_result_topsearch"
TheThie=NB_GetPage_adzx(TheUrl)
If InStr(TheThie,"<title>") > 0 Then
Name=split(NB_GetContent(TheThie,"<title>","</title>",0),"_")(0)
End If
response.redirect""&NB_SS(song)&""&Name&""
end if
%>