📄 29-6.cfm.htm
字号:
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">
<META NAME="Generator" CONTENT="Microsoft Word 97">
<TITLE>Find Consultant部分</TITLE>
</HEAD>
<BODY LINK="#0000ff">
<B><FONT FACE="宋体" LANG="ZH-CN" SIZE=5><P ALIGN="JUSTIFY">Find Consultant部分</P>
</B></FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY"> Find Consultant部分位于fconsult子目录，其中包含有3个ASP页（见图29.17）。在第一页中，用户可以输入寻找申请者的搜寻准则。在第二页搜寻结果将被显示。最后，在第三页上，用户可查看通过寻找所得的申请者的履历。</P>
<P ALIGN="JUSTIFY"> <B>图29.17 Find Consultant部分</P>
</B><P ALIGN="JUSTIFY"></P>
<P ALIGN="JUSTIFY"></P>
<P ALIGN="JUSTIFY"></P>
<P ALIGN="JUSTIFY"><HR WIDTH="2%" SIZE=1><HR ALIGN="RIGHT" WIDTH="2%" SIZE=1></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> fconsult.asp fconsult2.asp fconsult3.asp</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> </P>
</FONT><B><FONT FACE="宋体" LANG="ZH-CN"><P ALIGN="JUSTIFY">Find Consultant页</P>
</B></FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY"> Find Consultant页包含有用于输入搜寻准则的HTML表单（见图29.18）。用户可以基于他们的地理位置来查询申请者。例如，你可以只查询住在California,Fresno的申请者，或者你可以寻找在法国的申请者。</P>
<P ALIGN="JUSTIFY"> 进一步，一个用户可以搜找具有特别技能的求职者。这个表单可被用于确定合计三条技能的查询。例如，你可以查找懂得如何使用Delphi和JScript的求职者。</P>
<P ALIGN="JUSTIFY">你也可以使用表单来确定不同的布尔操作符。例如，你可以查找那些同时会用Delphi 和JScript或者会使用两者之一的求职者。</P>
<P ALIGN="JUSTIFY"><IMG SRC="Image9.gif" tppabs="http://210.74.168.175/guide/asp/part29/Image9.gif" WIDTH=533 HEIGHT=331><B>图29.18 Find Consultant页</P>
<P ALIGN="JUSTIFY"> </P>
</FONT><FONT FACE="宋体" LANG="ZH-CN"><P ALIGN="JUSTIFY">Find Consultant Results 页</P>
</B></FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY"> 查寻的结果在Find Consultant Results页上显示（见图29.19）。所有工作在这个ASP页中完成。在这个页里，一个SQL查询字符串将被产生用于动态查询resumes表。</P>
<P ALIGN="JUSTIFY"><IMG SRC="Image10.gif" tppabs="http://210.74.168.175/guide/asp/part29/Image10.gif" WIDTH=572 HEIGHT=406> <B>图29.19 Find Consultant Results页</P>
</B><P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> 表29.3显示了整个Find Consultant Results页的完整代码：</P>
<P ALIGN="JUSTIFY"> 表29.3 fconsult2.asp的代码：</P>
<P ALIGN="JUSTIFY"><HR ALIGN="RIGHT" SIZE=1></P>
<P ALIGN="JUSTIFY"><!-- #INCLUDE VIRTUAL="ADOVBS.INC" --></P>
<P ALIGN="JUSTIFY"><%</P>
<P ALIGN="JUSTIFY">' Shows Matching Job Skills In Red</P>
<P ALIGN="JUSTIFY">SUB ShowSkills</P>
<P ALIGN="JUSTIFY">DIM SkillA,SkillB,SkillC</P>
<P ALIGN="JUSTIFY">SkillA=Request.Form("SkillA")</P>
<P ALIGN="JUSTIFY">SkillB=Request.Form("SkillB")</P>
<P ALIGN="JUSTIFY">SkillC=Request.Form("SkillC")</P>
<P ALIGN="JUSTIFY"> FOR i=0 TO RS.Fields.Count-1</P>
<P ALIGN="JUSTIFY"> IF RS(i).type=vbBoolean THEN</P>
<P ALIGN="JUSTIFY"> IF RS(i) THEN </P>
<P ALIGN="JUSTIFY"> IF RS(i).NAME=SkillA OR RS(i).NAME=SkillB or RS(I).NAME=SkillC THEN</P>
<P ALIGN="JUSTIFY"> Response.Write("<FONT COLOR=""#FF0000""><B>"&RS(i).Name&"</B></FONT> ")</P>
<P ALIGN="JUSTIFY"> ELSE</P>
<P ALIGN="JUSTIFY"> Response.Write(RS(i).Name&" ")</P>
<P ALIGN="JUSTIFY"> END IF</P>
<P ALIGN="JUSTIFY"> END IF</P>
<P ALIGN="JUSTIFY"> End IF</P>
<P ALIGN="JUSTIFY"> NEXT</P>
<P ALIGN="JUSTIFY">END SUB</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"><HTML></P>
<P ALIGN="JUSTIFY"><HEAD><TITLE> Find A Consultant </TITLE></HEAD></P>
<P ALIGN="JUSTIFY"><BODY BGCOLOR="#FFFFFF" ALINK="#FF0000"></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><!-- Create Title Banner Table --></P>
<P ALIGN="JUSTIFY"><TABLE BGCOLOR="#00aaff" WIDTH="100%"></P>
<P ALIGN="JUSTIFY"><TR><TD VALIGN=CENTER></P>
<P ALIGN="JUSTIFY"><FONT FACE=ARIAL SIZE=+4> &nbsp;ASP Job Site</FONT><FONT SIZE=+2> &nbsp;&nbsp;<I> Find Consultant </I></FONT></P>
<P ALIGN="JUSTIFY"></TD></TR></P>
<P ALIGN="JUSTIFY"></TABLE></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><!-- Create Main Body Table --></P>
<P ALIGN="JUSTIFY"><TABLE HEIGHT="100%" CELLPADDING=20></P>
<P ALIGN="JUSTIFY"><TR></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><!-- The Left Cell Of The Body Table Contains The Navigation Strip --></P>
<P ALIGN="JUSTIFY"><TD ALIGN=CENTER VALIGN=TOP BGCOLOR="#D0D0D0" WIDTH=100></P>
<P ALIGN="JUSTIFY"><B></P>
<P ALIGN="JUSTIFY"><P><A HREF="../default.asp">Home</A></P>
<P ALIGN="JUSTIFY"><P><HR></P>
<P ALIGN="JUSTIFY"><P>Consultants</P>
<P ALIGN="JUSTIFY"><P><A HREF="/fjob/fjob1.asp">Find A Job</A></P>
<P ALIGN="JUSTIFY"><P><A HREF="/nresume/nresume1.asp">Post A Resume</A></P>
<P ALIGN="JUSTIFY"><P><A HREF="/uresume/uresume1.asp">Update Your Resume</A></P>
<P ALIGN="JUSTIFY"><P><HR></P>
<P ALIGN="JUSTIFY"><P>Employers</P>
<P ALIGN="JUSTIFY"><P><FONT COLOR="#808080">Find A Consultant</FONT></P>
<P ALIGN="JUSTIFY"><P><A HREF="/njob/njob1.asp">Post A Job</A></P>
<P ALIGN="JUSTIFY"><P><A HREF="/ujob/ujob1.asp">Update Job Information</A></P>
<P ALIGN="JUSTIFY"></B></P>
<P ALIGN="JUSTIFY"></TD></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><!-- The Right Cell Of The Body Table Contains The Page Contents --></P>
<P ALIGN="JUSTIFY"><TD ALIGN=CENTER VALIGN=CENTER></P>
<P ALIGN="JUSTIFY"><TABLE HEIGHT="100%" ALIGN=CENTER CELLSPACING=50></P>
<P ALIGN="JUSTIFY"><TR><TD></P>
<P ALIGN="JUSTIFY"><%</P>
<P ALIGN="JUSTIFY">' Create The Search String</P>
<P ALIGN="JUSTIFY">MySQL="SELECT * FROM resumes "</P>
<P ALIGN="JUSTIFY">IF Request.Form("City")<>"" THEN Loc="City='"&Request.Form("City")&"' AND "</P>
<P ALIGN="JUSTIFY">IF Request.Form("State")<>"" THEN Loc=Loc&"State='"&Request.Form("State")&"' AND "</P>
<P ALIGN="JUSTIFY">IF Request.Form("Country")<>"" THEN Loc=Loc&"Country='"&Request.Form("Country")&"' AND "</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">IF LEFT(Request.Form("SkillA"),1)<>"" THEN </P>
<P ALIGN="JUSTIFY"> Match=Request.Form("SkillA")&"=1 "</P>
<P ALIGN="JUSTIFY">END IF</P>
<P ALIGN="JUSTIFY">IF LEFT(Request.Form("SkillB"),1)<>"" THEN </P>
<P ALIGN="JUSTIFY"> IF Match<>"" THEN Match=Match&Request.Form("AndOrB")&" "</P>
<P ALIGN="JUSTIFY"> Match=Match&Request.Form("SkillB")&"=1 "</P>
<P ALIGN="JUSTIFY">END IF</P>
<P ALIGN="JUSTIFY">IF LEFT(Request.Form("SkillC"),1)<>"" THEN </P>
<P ALIGN="JUSTIFY"> IF Match<>"" THEN Match=Match&Request.Form("AndOrC")&" "</P>
<P ALIGN="JUSTIFY"> Match=Match&Request.Form("SkillC")&"=1 "</P>
<P ALIGN="JUSTIFY">END IF</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">IF Loc<>"" OR Match<>"" THEN</P>
<P ALIGN="JUSTIFY"> MySQL=MySQL&"WHERE "&Loc</P>
<P ALIGN="JUSTIFY"> IF Match<>"" THEN</P>
<P ALIGN="JUSTIFY"> MySQL=MySQL&"("&Match&")"</P>
<P ALIGN="JUSTIFY"> ELSE</P>
<P ALIGN="JUSTIFY"> MySQL=LEFT(MySQL,LEN(MySQL)-4)</P>
<P ALIGN="JUSTIFY"> END IF </P>
<P ALIGN="JUSTIFY"> MySQL=MySQL&" ORDER BY EntryDate"</P>
<P ALIGN="JUSTIFY">END IF</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">' Create ADO Objects</P>
<P ALIGN="JUSTIFY">Set MyConn=Server.CreateObject("ADODB.Connection") </P>
<P ALIGN="JUSTIFY">MyConn.Open Application("ConnectionString")</P>
<P ALIGN="JUSTIFY">Set RS=MyConn.Execute(MySQL)</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">' Check For No Matches</P>
<P ALIGN="JUSTIFY">IF RS.EOF THEN</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"><FONT SIZE=+2><i>No consultants matched your criteria.</i></FONT></P>
<P ALIGN="JUSTIFY"><P></P>
<P ALIGN="JUSTIFY"><FORM ACTION="fconsult1.asp"></P>
<P ALIGN="JUSTIFY"><INPUT TYPE="SUBMIT" VALUE="Search Again"></P>
<P ALIGN="JUSTIFY"></FORM></P>
<P ALIGN="JUSTIFY"><%</P>
<P ALIGN="JUSTIFY">ELSE</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"><FONT SIZE=+2>Consultants:</FONT></P>
<P ALIGN="JUSTIFY"><%</P>
<P ALIGN="JUSTIFY">' Show All Matches</P>
<P ALIGN="JUSTIFY">WHILE NOT RS.EOF</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"><HR WIDTH=80 ALIGN=LEFT></P>
<P ALIGN="JUSTIFY"><B>Name: </B><%=RS("FullName")%></P>
<P ALIGN="JUSTIFY"><BR><B>Location: </B><%=RS("City")&" "&UCASE(RS("State"))&" "&RS("Country")%></P>
<P ALIGN="JUSTIFY"><BR><B>Skills: </B><%ShowSkills%></P>
<P ALIGN="JUSTIFY"><BR><A HREF="fconsult3.asp?UserID=<%=RS("UserID")%>">View Resume</A></P>
<P ALIGN="JUSTIFY"><%</P>
<P ALIGN="JUSTIFY">RS.MoveNext</P>
<P ALIGN="JUSTIFY">WEND</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"><P></P>
<P ALIGN="JUSTIFY"><FORM ACTION="fconsult1.asp"></P>
<P ALIGN="JUSTIFY"><INPUT TYPE="SUBMIT" VALUE="Search Again"></P>
<P ALIGN="JUSTIFY"></FORM></P>
<P ALIGN="JUSTIFY"><%</P>
<P ALIGN="JUSTIFY">END IF ' For No Match</P>
<P ALIGN="JUSTIFY">RS.Close</P>
<P ALIGN="JUSTIFY">MyConn.Close</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"></TD></TR></TABLE></P>
<P ALIGN="JUSTIFY"></TD></TR></P>
<P ALIGN="JUSTIFY"></TABLE></P>
<P ALIGN="JUSTIFY"></BODY></P>
<P ALIGN="JUSTIFY"></HTML></P>
<P ALIGN="JUSTIFY"><HR ALIGN="RIGHT" SIZE=1></P>
<P ALIGN="JUSTIFY">用于查找resumes 表的SQL查寻字符串在Create The Search String代码段创建。查寻字符串来自用户在Find Consultant页HTML表单中输入的信息组合而成。</P>
<P ALIGN="JUSTIFY">这个查询字符串返回一个记录集，如果记录集为空，用户将被告之没有特定的求职者与搜寻准则相应匹配，否则将显示一个匹配条件的求职者信息列表。</P>
<P ALIGN="JUSTIFY">当这些求职者被列出时，他们的技能也同时列出。符合查寻准则的申请者的技能用红色字体列出，其它技能以黑色字体列出，这通过ShowSkills过程来实现。</P>
<P ALIGN="JUSTIFY"> ShowSkills过程使用了一个技巧，它通过检测字段的数据类型来区分判断resumes表中的技能字段。ADO字段对象的Type属性返回一列的数据类型。在resumes表中，技能被存储在BIT列中（VBScript是布尔列vbBoolean）。一个申请者可能有技能或者没有，因此，ShowSkills过程只显示BIT列的名字和值。</P>
<P ALIGN="JUSTIFY"> 对于每个所列出的申请者，同时也对应一个View Resume热链接。这个链接由以下代码产生：</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><BR><A HREF=</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>fconsult3.asp?UserID=<%=RS(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>UserID</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)%></FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>>View Resume</A></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">文本View Resume用来链接到ASP 页fconsult3.asp。这是View Resume页，当用户单击View Resume查看特定申请者信息时，这个申请者的UserID由字符串传递给View Resume页。</P>
<P ALIGN="JUSTIFY"> </P>
</FONT><B><FONT FACE="宋体" LANG="ZH-CN"><P ALIGN="JUSTIFY">View Resume页</P>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -