Tom quickly matches thieves

Database: (astro_pd)

Pd_id automatic ID

Ifirst text' condition 1

Iseconde text' condition 2

Pd_result remarks pairing result

========================================================== ====
= Astro_search.htm (quick configuration page table) =
========================================================== ====

<Table width = "100%" border = "0" cellpadding = "3" cellspacing = "0" bgcolor = "# bae9d8">
<Form name = "form" Action = "search_result.asp" target = "_ blank">
<Input type = "hidden" name = "action" value = "astrovsastro">
<Tr>
<TD width = "50"> <Div align = "center" class = "style1"> male </div> </TD>
<TD>
<Select name = "first" style = "font-size: 12px">
<Option selected value = "Aries"> Aries </option>
<Option value = "Taurus"> Taurus </option>
<Option value = "Gemini"> Gemini </option>
<Option value = "cancer"> cancer </option>
<Option value = ""> Leo </option>
<Option value = ""> Virgo </option>
<Option value = "Libra"> Libra </option>
<Option value = "scorpio"> Scorpio </option>
<Option value = "Shooter"> Sagittarius </option>
<Option value = "Capricorn"> Capricorn </option>
<Option value = "water bottle"> Aquarius </option>
<Option value = "Pisces"> Pisces </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD> <Div align = "center" class = "style1"> female: </div> </TD>
<TD>
<Select name = "second" style = "font-size: 12px">
<Option selected value = "Aries"> Aries </option>
<Option value = "Taurus"> Taurus </option>
<Option value = "Gemini"> Gemini </option>
<Option value = "cancer"> cancer </option>
<Option value = ""> Leo </option>
<Option value = ""> Virgo </option>
<Option value = "Libra"> Libra </option>
<Option value = "scorpio"> Scorpio </option>
<Option value = "Shooter"> Sagittarius </option>
<Option value = "Capricorn"> Capricorn </option>
<Option value = "water bottle"> Aquarius </option>
<Option value = "Pisces"> Pisces </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD colspan = "2" align = "right" style = "color: # fd0183">
<Div align = "center">
<Input name = "image3" type = "image" src = "images/xingzuo_51.gif">
</Div> </TD>
</Tr>
</Form>
</Table>
<Table width = "100%" border = "0" cellpadding = "3" cellspacing = "0" bgcolor = "# bae9d8">
<Form name = "form" Action = "search_result.asp" target = "_ blank">
<Input type = "hidden" name = "action" value = "astrovsshuxiang">
<Tr>
<TD width = "50" class = "style1"> <Div align = "center"> constellation: </div> </TD>
<TD>
<Select name = "first" style = "font-size: 12px">
<Option selected value = "Aries"> Aries </option>
<Option value = "Taurus"> Taurus </option>
<Option value = "Gemini"> Gemini </option>
<Option value = "cancer"> cancer </option>
<Option value = ""> Leo </option>
<Option value = ""> Virgo </option>
<Option value = "Libra"> Libra </option>
<Option value = "scorpio"> Scorpio </option>
<Option value = "Shooter"> Sagittarius </option>
<Option value = "Capricorn"> Capricorn </option>
<Option value = "water bottle"> Aquarius </option>
<Option value = "Pisces"> Pisces </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD class = "style1"> <Div align = "center"> Chinese zodiac: </div> </TD>
<TD>
<Select name = "second" style = "font-size: 12px">
<Option selected value = "rat"> rat </option>
<Option value = ""> Niu </option>
<Option value = "tiger"> tiger </option>
<Option value = "rabbit"> rabbit </option>
<Option value = "dragon"> dragon </option>
<Option value = "snake"> snake </option>
<Option value = "horse"> horse </option>
<Option value = "goat"> goat </option>
<Option value = "monkey"> monkey </option>
<Option value = "chicken"> chicken </option>
<Option value = "dog"> dog </option>
<Option value = "pig"> pig </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD colspan = "2" align = "right" style = "color: # fd0183">
<Div align = "center">
<Input name = "image2" type = "image" src = "images/xingzuo_51.gif">
</Div> </TD>
</Tr>
</Form>
</Table>
<Table width = "100%" border = "0" cellpadding = "3" cellspacing = "0" bgcolor = "# bae9d8">
<Form name = "form" Action = "search_result.asp" target = "_ blank">
<Input type = "hidden" name = "action" value = "bloodvsastro">
<Tr>
<TD width = "50" class = "style1"> <Div align = "center"> blood type: </div> </TD>
<TD>
<Select name = "first" style = "font-size: 12px">
<Option selected value = "O"> O-type blood </option>
<Option value = "Type A"> type A blood </option>
<Option value = "B"> B type blood </option>
<Option value = "AB"> AB type blood </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD> <Div align = "center" class = "style1"> constellation: </div> </TD>
<TD>
<Select name = "second" style = "font-size: 12px">
<Option selected value = "Aries"> Aries </option>
<Option value = "Taurus"> Taurus </option>
<Option value = "Gemini"> Gemini </option>
<Option value = "cancer"> cancer </option>
<Option value = ""> Leo </option>
<Option value = ""> Virgo </option>
<Option value = "Libra"> Libra </option>
<Option value = "scorpio"> Scorpio </option>
<Option value = "Shooter"> Sagittarius </option>
<Option value = "Capricorn"> Capricorn </option>
<Option value = "water bottle"> Aquarius </option>
<Option value = "Pisces"> Pisces </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD colspan = "2" align = "right" style = "color: # fd0183">
<Div align = "center">
<Input type = "image" src = "images/xingzuo_51.gif">
</Div> </TD>
</Tr>
</Form>
</Table>
<Table width = "100%" border = "0" cellpadding = "3" cellspacing = "0" bgcolor = "# bae9d8">
<Form name = "form" Action = "search_result.asp" target = "_ blank">
<Input type = "hidden" name = "action" value = "bloodvsblood">
<Tr>
<TD width = "50" class = "style1"> <Div align = "center"> blood type: </div> </TD>
<TD>
<Select name = "first" style = "font-size: 12px">
<Option selected value = "O"> O-type blood </option>
<Option value = "Type A"> type A blood </option>
<Option value = "B"> B type blood </option>
<Option value = "AB"> AB type blood </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD class = "style1"> <Div align = "center"> blood type: </div> </TD>
<TD>
<Select name = "second" style = "font-size: 12px">
<Option selected value = "O"> O-type blood </option>
<Option value = "Type A"> type A blood </option>
<Option value = "B"> B type blood </option>
<Option value = "AB"> AB type blood </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD colspan = "2" align = "right" style = "color: # fd0183">
<Div align = "center">
<Input name = "image" type = "image" src = "images/xingzuo_51.gif">
</Div> </TD>
</Tr>
</Form>
</Table>
<Table width = "100%" Height = "0" border = "0" cellpadding = "3" cellspacing = "0" bgcolor = "# bae9d8">
<Form name = "form" Action = "search_result.asp" target = "_ blank">
<Input type = "hidden" name = "action" value = "shengxiaovsblood">
<Tr>
<TD width = "50" class = "style1"> <Div align = "center"> Chinese zodiac: </div> </TD>
<TD>
<Select name = "first" style = "font-size: 12px">
<Option selected value = "rat"> rat </option>
<Option value = ""> Niu </option>
<Option value = "tiger"> tiger </option>
<Option value = "rabbit"> rabbit </option>
<Option value = "dragon"> dragon </option>
<Option value = "snake"> snake </option>
<Option value = "horse"> horse </option>
<Option value = "goat"> goat </option>
<Option value = "monkey"> monkey </option>
<Option value = "chicken"> chicken </option>
<Option value = "dog"> dog </option>
<Option value = "pig"> pig </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD class = "style1"> <Div align = "center"> blood type: </div> </TD>
<TD>
<Select name = "second" style = "font-size: 12px">
<Option selected value = "O"> O-type blood </option>
<Option value = "Type A"> type A blood </option>
<Option value = "B"> B type blood </option>
<Option value = "AB"> AB type blood </option>
</SELECT>
</TD>
</Tr>
<Tr>
<TD colspan = "2" align = "right" style = "color: # fd0183">
<Div align = "center">
<Input name = "image4" type = "image" src = "images/xingzuo_51.gif">
</Div> </TD>
</Tr>
</Form>
</Table>

========================================================== =
= Search_result.asp (quick configuration result) =
========================================================== =

<! -- # Include file = "../connections/conn1.asp" -->
<%
Rem ================================
Rem = File Name: search_result.asp
Rem = function: constellation pair
Rem = Author: shenzhe (shenzhe__@sohu.com)
Rem = Note: This page uses XMLHTTP technology to capture
Rem = as long as Tom does not change the link address, we can update it with Sina.
Rem ================================
Dim Ifirst, isecond
Ifirst = trim (Request ("first "))
Isecond = trim (Request ("second "))
Action = trim (Request ("action "))
Dim title
Title = "->" & Ifirst & "vs" & isecond & "quick configuration result"
Dim iurl
Iurl = "http://astro.tom.com/script/vs/astro.php? Dirname = "& Action &" & First = "& Ifirst &" & Second = "& isecond
'Response. Write iurl
Rem ========================================
Rem = process name: ichange
Rem = function: Convert the captured data format
Rem ==========================================
Function ichange (STR)
Dim finalstr
Dim icharcode
Dim inextcode
For I = 1 to lenb (STR)
Icharcode = ASCB (midb (STR, I, 1 ))
If icharcode <& h80 then
Finalstr = finalstr & CHR (icharcode)
Else
Inextcode = ASCB (midb (STR, I + 1, 1 ))
Finalstr = finalstr & CHR (clng (icharcode) * & h100 + CINT (inextcode ))
I = I + 1
End if
Next
Ichange = finalstr
End Function

Rem ======================================
Rem = next page, first from the database. If you already have a note
Rem = record, which is called directly. Otherwise
Rem = URL, extract the desired data from Tom
Rem = Entering the database .......
Rem ======================================
SQL = "select pd_result from astro_pd where Ifirst = '" & Ifirst & "' and isecond = '" & isecond &"'"
Set rs = conn. Execute (SQL)
If Rs. EOF or Rs. bof then
Set iconnect = Createobject ("Microsoft. XMLHTTP ")
Icode = iconnect. Open ("get", iurl, false)
Iconnect. Send ()

Icode = ichange (iconnect. responsebody)
'Response. Write icode
Rem = get pairing content start =
Inum = Len (icode)-instr (icode, "<TD class =" & CHR (34) & "text" & CHR (34) & ">")-16
Icode = right (icode, inum)
'Response. Write icode
Inum = instr (icode, "</TD>")-1
Pd_result = left (icode, inum)
'Response. Write pd_content
Rem = get pairing content end =
Set iconnect = nothing

Pd_result = Replace (pd_result ,"'","")

Rem = save to database
Conn.exe cute ("insert into astro_pd (Ifirst, isecond, pd_result) values ('" & Ifirst & "', '" & isecond & "', '" & pd_result &"') ")
Else
Pd_result = RS (0)
End if
Rs. Close ()
Set rs = nothing
%>