search.asp

该软件是用asp编写的

<!--#include file="conn.asp" -->
<!--#include file="top.asp" -->

<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#ffffff>
  <TBODY>
  <TR>
    <TD bgColor=#ffa200 class=bodyleft width=7><IMG height=1 
      src="img/blank.gif" width=7></TD>
      <TD 
    width=743 valign="top" 
    style="BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td valign="top"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td><div align="center"><font color="#FF0000" size="4"><br>
                      你的查询结果如下(按个人情况排序)</font> </div>
                    <hr size="1" color="#FF6600"></td>
                </tr>
                <tr>
                  <td>
                    <%
 dim lx,dq,zd
 lx=request.form("lx")
 dq=request.form("dq")
 zd=request.form("zd")	
	%>
                    <%
	if lx="xy" then %>
                    <%
				set rst=server.CreateObject("adodb.recordset")
				sqlstr="select * from xyb where( gk like '%"& zd &"%' or kc like '%"& zd &"%' or yq like '%"& zd &"%' or bc like '%"& zd &"%') and del=1 and dq='"&request.form("dq")&"'"
				rst.open sqlstr,conn,3,3
				if rst.eof or rst.bof then
					response.write "真遗憾，没有您要找的你查询相关信息，请你按照正式的查询方式查询！"
				else
					do until rst.eof or rst.bof
						response.Write "<A href='#' onClick=window.open('dispxy.asp?id="&trim(rst("id"))&"','surveywin','scrollbarst=yes,width=487,height=400')>"&left(rst("gk"),5)&"</a>&nbsp;|&nbsp;"
					rst.movenext	
					loop
				end if
				rst.close
				set rst=nothing
				%>
                    <%else %>
                    <%
	if lx="jy" then 
	%>
               <%
				set rst=server.CreateObject("adodb.recordset")
				sqlstr="select * from jyb where( gk like '%"& zd &"%' or kc like '%"& zd &"%' or yq like '%"& zd &"%' or bc like '%"& zd &"%') and  del=1 and dq='"&request.form("dq")&"'"
				rst.open sqlstr,conn,3,3
				if rst.eof or rst.bof then
					response.write "真遗憾，没有您要找的你查询相关信息，请你按照正式的查询方式查询！"
				else
					do until rst.eof or rst.bof
						response.Write "<A href='#' onClick=window.open('dispjy.asp?id="&trim(rst("id"))&"','surveywin','scrollbarst=yes,width=487,height=400')>"&left(rst("gk"),5)&"</a>&nbsp;|&nbsp;"
					rst.movenext	
					loop
				end if
				rst.close
				set rst=nothing
				%>
                    <%
	                  else
	                %>
                   <%
				set rst=server.CreateObject("adodb.recordset")
				sqlstr="select * from author where( gk like '%"& zd &"%' or kc like '%"& zd &"%' or yq like '%"& zd &"%' or bc like '%"& zd &"%') and  del=1 or del=2 and dq='"&request.form("dq")&"'"
				rst.open sqlstr,conn,3,3
				if rst.eof or rst.bof then
					response.write "真遗憾，没有您要找的你查询相关信息，请你按照正式的查询方式查询！"
				else
					do until rst.eof or rst.bof
						response.Write "<A href='#' onClick=window.open('dispjs.asp?userid="&trim(rst("userid"))&"','surveywin','scrollbarst=yes,width=487,height=600')>"&left(rst("gk"),5)&"</a>&nbsp;|&nbsp;"
					rst.movenext	
					loop
				end if
				rst.close
				set rst=nothing
				%>
                    <%end if %>
                    <%end if%>
                  </td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                </tr>
              </table> </td>
          </tr>
        </table></TD>
    <TD bgColor=#ffa200 class=bodyright width=6><IMG height=1 
      src="img/blank.gif" width=6></TD></TR></TBODY></TABLE>
<!--#include file="up.asp" -->
</BODY></HTML>