📄 sms.asp
字号:
<!--#include file="inc/inc.asp"--><%
Dim Word,Name,TheUrl,TheThieWord=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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -