<% server1 = cstr (Request.ServerVariables) Server2 = cstr (Request.ServerVariables) IF MID (Server1, 8, Len (Server2)) <> Server2 Ten Response.end () end ifKeyword = VB_UNESCAPE ("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 25 * from MP3 WHERE MP3NAME LIKE '%" & keyword & "%' ORDER BY LEN (MP3NAME)") ife.eof and r. t r r r r.write (" Didn't find ") ELSE I = 1 for i = 1 to 25 if =" "on" "Opener.mklist ('" "Opener.mklist ('" & = "Opener.mklist ('" "Opener.Mklist ('" Mp3url ") &" "" & rs ("mp3name") & ");"> "& rs (" mp3name ") &" Download "rMOVENEXT NEXTEND IFSTR = VB_ESCAPE (STR) response.write (str) = NothingConN.Closset conn = NothingConn.closset conn = Nothing%>
