search.in.2fly.asp

来自「2Fly通讯录v1.1,一个不错的系统」· ASP 代码 · 共 21 行

<%
key=request("key")
submit=request("submit")

 '定义列表文件
 	select case submit
	
	case "百度综合搜索"  		Response.Redirect( "http://www1.baidu.com/baidu?tn=slosh&word=" & key ) '百度
	case "百度曲"  				Response.Redirect( "http://mp3search.baidu.com/wstsearch?tn=slosh&ct=134217728&lm=-1&word=" & key ) '百度曲
	case "百度词"  				Response.Redirect( "http://www.baidu.com/m?tn=baidump3lyric&ct=150994944&rn=10&word=" & key ) '百度词

	case "搜刮曲"  				Response.Redirect( "http://search.sogua.com/search/search.asp?search=music&key=" & key ) '搜刮曲
	case "搜刮词"  				Response.Redirect( "http://search2.sogua.com/search/lyric_search.asp?search=lyric&key=" & key ) '搜刮词

	case "一搜曲"  				Response.Redirect( "http://music.yisou.com/search?p=" & key ) '百度
	case "一搜词"  				Response.Redirect( "http://music.yisou.com/lyric.html?p=" & key ) '百度

	Case Else  				    '默认播放列表
	end select 

%>