javascript|vbscript| function
<%
Server1=cstr (Request.ServerVariables ("Http_referer"))
Server2=cstr (Request.ServerVariables ("SERVER_NAME"))
If Mid (Server1,8,len (server2)) <>server2 Then
Response.End ()
End If
Keyword=vb_unescape (Request ("keyword"))
Keyword=replace (keyword, "'", "" ")
Set Conn=server.createobject ("ADODB. CONNECTION ")
Connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath (". /***")
Conn.Open ConnStr
Str= ""
Set Rs=conn.execute ("SELECT top * mp3 where mp3name like '%" &keyword& "% ' ORDER by Len (mp3name)")
If rs.eof and Rs.bof then
Response. Write ("Not Found")
Else
I=1
For I=1 to 25
If Rs.eof then exit for
str=str&i& ". <span style=" "Cursor:hand" "onclick=" "Opener.mklist" ("&rs") & "', '" Mp3url ( "Mp3name") & "');" > "&rs (" Mp3name ") &" </span><a href= ' "&rs (" Mp3url ") &" > Download </a><br> "
Rs.movenext
Next
End If
Str=vb_escape (str)
Response. Write (str)
Rs.close
Set rs=nothing
Conn.close
Set conn=nothing
%>
<script language= "javascript" runat= "Server" >
function Vb_escape (str)
{
return Escape (str);
}
function Vb_unescape (str)
{
return unescape (str);
}
</script>