<% if xuexing <> "" then %> <% '获取血型信息 select case xuexing case "a" str2=" selected class=style5" case "b" str3=" selected class=style5" case "o" str4=" selected class=style5" case "ab" str1=" selected class=style5" end select %> <%end if%> 恋人血型配对血型恋爱配对情侣血型看性格 <% dim sqlstr if request("chk") = "xuexingpeidui" then sqlstr="select * from xuexinglove where xuexing1='"&trim(cstr(request("p3")))&"' and xuexing2='"&trim(cstr(request("p4")))&"'" set rs=conn.execute(sqlstr) %>
血型配对    千年阳光易理风水
<%=""&rs("xuexing1")%> 和 <%=rs("xuexing2")&""%>
<%=""&rs("title1")&""%>
<%=""&rs("title2")&""%>
  <%=rep(rs("content"))%>  
您的血型:     她(他)的血型:           
<%else%>
血型配对    千年阳光易理风水

血型配对,根据血型测试您和恋人的缘分和婚姻!
您的血型:     她(他)的血型:           
<%end if%> <% '输出 If Err Then response.Write "血型配对查询内容出错!" err.Clear Response.End End If %>