<% dim sid sid=request("sid") dim searchstr,p searchstr=Request("searchstr") searchstr=server.urlencode(request("searchstr")) p=Request("p") if p="" then p=1 On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) End function function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") set http=nothing if err.number<>0 then err.Clear end function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim Url,Html,start,over,body,wap,wstr,str Url="http://down.lxyes.com/lrclist.aspx?searchstr="&searchstr&"&p="&p&"" wstr=getHTTPPage(url) start=Instr(wstr,"

") over=Instr(wstr,"返回重新搜索") body=mid(wstr,start,over-start) body = replace(body,"

","")'这是把

替换成空 body = replace(body,"

","") body = replace(body,"

","") body = replace(body,"

","") body = replace(body,"lrcdetail.aspx?","view.asp?sid="&sid&"&") body = replace(body,"&cd=923","") body = replace(body,".aspx",".asp") if body="" then Response.Write "很遗憾.暂停服务" else Response.write body end if %>
LRC歌词查询
返回首页