==================================================== Search_Result.asp (speed match results ) ======================================================================================================================================================
% r ========================== == Rem = filename: search_result.aspRem = function: constellation constellation matching Rem = author: shenzhe (shenzhe __ @ sohu.com) Rem = Description: This page uses XMLHTTP technology, arrested over the network from Rem = TOM TOM long as no Change the link address, we can update the rem ====================================================================================================== = trim "First")) ISECOND = Trim (Request ("Second")) Action = Trim (Request ("Action")) DIM Titletep = "Jieji Constellation ->" & IFirst & "VS" & ISECOND & "Speed Assembly" DIM IURLIURL = " http://astro.tom.com/script/vs/astro.php?dirname="&action&1&first="&ift&irst&"&second="&isecond'Response.write Iurlrem ============= ===================== REM = process name: ichangerem = effect: convert the format of the grab data REM ==================================================================================================================================================================================================================== ====================== function iChange (STR) DIM FinalStrdim iCharcodedim inextcode for i = 1 to lenb (str) iCharcode = ASCB (MIDB (Str, i, 1)) f crcode <& h80 kilcode "else inextcode = ASCB (MIDB (STR, I 1, 1) Finalstr = FinalStr &
CHR (ClNG (Icharcode) * & H100 CINT (INEXTCODE))) i = i 1 end if nextICHANGE = FinalStrend functionRem ========================= ======= = The next page is first judged from the database. If there is already a record, it is called directly, otherwise the REM = URL followed by the structure, extracting the desired data saves from Tom, and in the database ....... Rem ======= ========================= sql = "SELECT PD_RESULT from ask astro_pd where impirst = '" & impirst "' and ISECOND = '" & ISECOND & "'" SET RS = conn.execute (sql) if xi = creteObject ("microsoft.xmlhttp") iCode = iconnect.open ("get", Iurl, false iconnect.send ()
ICODE = ichange (iconnect.responsebody) 'response.write icoderem = acquisition content start == inum = len (icode) -instr (icode, "
") - 16iDE = Right (icode, inum) 'response.write icode inum = instr (iCode, "") - 1 pd_result = left (icode, inum)' response.write pd_content trans = acquisition pair End of content == set iconnect = Nothing
PD_RESULT = Replace (PD_RESULT, "'", "" "
转载请注明原文地址:https://www.9cbs.com/read-75741.html
| 
