inc.asp

jkjgkjbkjklb hnbbnl,bmnmn

<%
On Error Resume Next
Dim NBMusic_Ver
NBMusic_Ver="NB555.com"
Function NB_GetPage(url)
Dim Retrieval
Set Retrieval=CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
NB_GetPage=NB_BytesToBstr(.ResponseBody)
End With
Set Retrieval=Nothing
End Function
Function NB_BytesToBstr(body)
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="GB2312"
NB_BytesToBstr=objstream.ReadText
objstream.Close
set objstream=nothing
End Function
Function NB_GetContent(str,start,last,n)
If Instr(lcase(str),lcase(start))>0 then
select case n
case 0
NB_GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
NB_GetContent=Left(NB_GetContent,Instr(lcase(NB_GetContent),lcase(last))-1)
case 1
NB_GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
NB_GetContent=Left(NB_GetContent,Instr(lcase(NB_GetContent),lcase(last))+Len(last)-1)
case 2
NB_GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
case 3
NB_GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
case 4
NB_GetContent=Left(str,Instr(lcase(str),lcase(start))-1)
case 5
NB_GetContent=Left(str,Instr(lcase(str),lcase(start))+Len(start)-1)
end select
Else
NB_GetContent=""
End if
End Function

Function NB_SongCode(song)
If song="" Then response.redirect "./"
NB_SongCode=server.urlencode(song)
End Function
Function NB_SS(s)
NB_SS="http://www.nb99.net/sms/?word="
End Function

Function NB_GetPage_adzx(url)
Dim Retrieval
Set Retrieval=CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
NB_GetPage_adzx=NB_BytesToBstr_adzx(.ResponseBody)
End With
Set Retrieval=Nothing
End Function
Function NB_BytesToBstr_adzx(body)
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="utf-8"
NB_BytesToBstr_adzx=objstream.ReadText
objstream.Close
set objstream=nothing
End Function
%>