home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / source / chap11 / query.alx < prev    next >
Encoding:
Text File  |  1996-09-13  |  14.2 KB  |  364 lines
  1.  
  2. <SCRIPT LANGUAGE="VBScript">
  3. <!--
  4. Dim query_string
  5. Dim mode_str
  6. Dim maxhits_str
  7. Dim what_str 
  8. what_str = "Web"
  9.  
  10. Sub txtboxQuery_Change()
  11.     query_string = txtboxQuery.Value
  12. end sub
  13.  
  14. Sub Layout1_OnLoad()
  15.     call lbNames.AddItem("Yahoo")
  16.     call lbNames.AddItem("WebCrawler")
  17.     call lbNames.AddItem("DejaNews UseNet")
  18.     call lbNames.AddItem("AltaVista")
  19.     lbNames.Value = "Yahoo"
  20. end sub
  21.  
  22. Sub btnGo_MouseUp(Button, Shift, X, Y)
  23.  Dim frmSearchFormIdDeja
  24.  Dim frmSearchFormIdYahoo 
  25.  Dim frmSearchFormIdCrawler
  26.  Dim frmSearchFormIdAlta
  27.  Dim comp
  28.  comp = StrComp(lbnames.Value,"DejaNews UseNet") 
  29.  if comp = 0 then
  30.      Set frmSearchFormIdDeja = Document.SearchFormIdDeja
  31.      frmSearchFormIdDeja.query.Value = query_string
  32.      frmSearchFormIdDeja.maxhits.Value = maxhits_str
  33.      frmSearchFormIdDeja.Submit
  34.  End If
  35.  
  36.  comp = StrComp(lbnames.Value,"Yahoo") 
  37.  if comp = 0 then
  38.      Set frmSearchFormIdYahoo = Document.SearchFormIdYahoo
  39.      frmSearchFormIdYahoo.p.Value = query_string
  40.      frmSearchFormIdYahoo.Submit
  41.  End If
  42.  
  43.  comp = StrComp(lbnames.Value,"Web Crawler") 
  44.  if comp = 0 then    
  45.      Set frmSearchFormIdCrawler = Document.SearchFormIdCrawler
  46.      frmSearchFormIdCrawler.searchText.Value = query_string
  47.      frmSearchFormIdCrawler.mode.Value = mode_str
  48.      frmSearchFormIdCrawler.maxHits.Value = maxhits_str
  49.      frmSearchFormIdCrawler.Submit
  50.  End If
  51.  
  52.  comp = StrComp(lbnames.Value,"AltaVista") 
  53.  if comp = 0 then    
  54.      Set frmSearchFormIdAlta = Document.SearchFormIdAlta
  55.      frmSearchFormIdAlta.what.Value = what_str
  56.      frmSearchFormIdAlta.fmt.Value = mode_str 
  57.      frmSearchFormIdAlta.q.Value = query_string
  58.      frmSearchFormIdAlta.Submit
  59.  End If
  60. end sub
  61.  
  62. Sub lbNames_Change()
  63.  optbtnHitType1.Visible = True
  64.  Dim comp
  65.  comp = StrComp(lbnames.Value,"WebCrawler") 
  66.  if comp = 0 then
  67.      optbtnHitType1.Visible = True
  68.      optbtnHitType1.Caption = "Compact"
  69.      optbtnHitType2.Visible = True
  70.      optbtnHitType2.Caption = "Titles"
  71.      optbtnHitType3.Visible = True
  72.      optbtnHitType3.Caption = "Summaries"
  73.      optbtnHitType1.Value = True
  74.      optbtnWeb.Visible = False
  75.      optbtnNews.Visible = False
  76.  
  77.      optbtnHitType3.Value = True
  78.      lblReturn.Visible = True
  79.      lblGet.Visible = True
  80.      lblHits.Visible = True
  81.      txtboxHits.Visible = True
  82.      lblSearch.Visible = False
  83.  End If
  84.  comp = StrComp(lbnames.Value,"Yahoo") 
  85.  if comp = 0 then
  86.      optbtnHitType1.Visible = False
  87.      optbtnHitType2.Visible = False
  88.      optbtnHitType3.Visible = False
  89.      optbtnWeb.Visible = False
  90.      optbtnNews.Visible = False
  91.  
  92.      lblReturn.Visible = False
  93.      lblGet.Visible = False
  94.      lblHits.Visible = False
  95.      txtboxHits.Visible = False
  96.      lblSearch.Visible = False
  97.  End If
  98.  comp = StrComp(lbnames.Value,"DejaNews UseNet") 
  99.  if comp = 0 then
  100.      optbtnHitType1.Visible = False
  101.      optbtnHitType2.Visible = False
  102.      optbtnHitType3.Visible = False
  103.      optbtnWeb.Visible = False
  104.      optbtnNews.Visible = False
  105.  
  106.      lblReturn.Visible = False
  107.      lblGet.Visible = True
  108.      lblHits.Visible = True
  109.      txtboxHits.Visible = True
  110.      lblSearch.Visible = False
  111.  End If
  112.  
  113.  comp = StrComp(lbnames.Value,"AltaVista") 
  114.  if comp = 0 then
  115.      optbtnHitType1.Caption = "Standard"
  116.      optbtnHitType1.Visible = True
  117.      optbtnHitType2.Caption = "Compact"
  118.      optbtnHitType2.Visible = True
  119.      optbtnHitType3.Caption = "Detailed"
  120.      optbtnHitType3.Visible = True
  121.      optbtnHitType1.Value = True
  122.      optbtnWeb.Visible = True
  123.      optbtnNews.Visible = True
  124.      lblReturn.Visible = True
  125.      lblGet.Visible = False
  126.      lblHits.Visible = False
  127.      lblSearch.Visible = True
  128.      optbtnWeb.Value = True
  129.      txtboxHits.Visible = False
  130.  End If
  131. end sub
  132.  
  133. Sub optbtnHitType3_Change()
  134.  Dim comp
  135.  comp = StrComp(lbnames.Value,"Altavista") 
  136.  if comp = 0 then
  137.      mode_str = "d"
  138.  else    
  139.      mode_str = optbtnHitType3.Caption
  140.  End If
  141. end sub
  142.  
  143. Sub optbtnHitType2_Change()
  144.  Dim comp
  145.  comp = StrComp(lbnames.Value,"Altavista") 
  146.  if comp = 0 then
  147.      mode_str = "c"
  148.  else    
  149.      mode_str = optbtnHitType2.Caption
  150.  End If
  151. end sub
  152.  
  153. Sub optbtnHitType1_Change()
  154.  Dim comp
  155.  comp = StrComp(lbnames.Value,"Altavista") 
  156.  if comp = 0 then
  157.      mode_str = "."
  158.  else    
  159.      mode_str = optbtnHitType1.Caption
  160.  End If
  161. end sub
  162.  
  163. Sub txtboxHits_Change()
  164.     maxhits_str = txtboxHits.Value
  165. end sub
  166.  
  167. Sub optbtnNews_MouseUp(Button, Shift, X, Y)
  168.     what_str = "news"
  169. end sub
  170.  
  171. Sub optbtnWeb_MouseUp(Button, Shift, X, Y)
  172.     what_str = "web"
  173. end sub
  174. -->
  175. </SCRIPT>
  176. <DIV ID="Layout1" STYLE="LAYOUT:FIXED;WIDTH:612pt;HEIGHT:406pt;">
  177.     <OBJECT ID="lblTitle"
  178.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:8pt;LEFT:8pt;WIDTH:218pt;HEIGHT:218pt;ZINDEX:0;">
  179.         <PARAM NAME="BackColor" VALUE="16777088">
  180.         <PARAM NAME="Caption" VALUE="ActiveX Search Page">
  181.         <PARAM NAME="Size" VALUE="7691;7691">
  182.         <PARAM NAME="FontEffects" VALUE="1073741830">
  183.         <PARAM NAME="FontHeight" VALUE="240">
  184.         <PARAM NAME="FontCharSet" VALUE="0">
  185.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  186.         <PARAM NAME="ParagraphAlign" VALUE="3">
  187.     </OBJECT>
  188.     <OBJECT ID="lbNames"
  189.      CLASSID="CLSID:8BD21D30-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:97pt;LEFT:32pt;WIDTH:116pt;HEIGHT:16pt;TABINDEX:0;ZINDEX:1;">
  190.         <PARAM NAME="VariousPropertyBits" VALUE="547375131">
  191.         <PARAM NAME="MaxLength" VALUE="25">
  192.         <PARAM NAME="DisplayStyle" VALUE="7">
  193.         <PARAM NAME="Size" VALUE="4092;564">
  194.         <PARAM NAME="cColumnInfo" VALUE="1">
  195.         <PARAM NAME="MatchEntry" VALUE="1">
  196.         <PARAM NAME="ShowDropButtonWhen" VALUE="2">
  197.         <PARAM NAME="FontName" VALUE="Arial Narrow">
  198.         <PARAM NAME="FontEffects" VALUE="1073741825">
  199.         <PARAM NAME="FontHeight" VALUE="200">
  200.         <PARAM NAME="FontCharSet" VALUE="0">
  201.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  202.         <PARAM NAME="FontWeight" VALUE="700">
  203.         <PARAM NAME="Width" VALUE="2645">
  204.     </OBJECT>
  205.     <OBJECT ID="txtboxQuery"
  206.      CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:55pt;LEFT:32pt;WIDTH:171pt;HEIGHT:16pt;TABINDEX:1;ZINDEX:2;">
  207.         <PARAM NAME="VariousPropertyBits" VALUE="746604571">
  208.         <PARAM NAME="Size" VALUE="6033;564">
  209.         <PARAM NAME="FontCharSet" VALUE="0">
  210.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  211.     </OBJECT>
  212.     <OBJECT ID="lblQuery"
  213.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:39pt;LEFT:32pt;WIDTH:62pt;HEIGHT:16pt;ZINDEX:3;">
  214.         <PARAM NAME="VariousPropertyBits" VALUE="8388627">
  215.         <PARAM NAME="Caption" VALUE="Enter query:">
  216.         <PARAM NAME="Size" VALUE="2187;564">
  217.         <PARAM NAME="FontName" VALUE="Arial">
  218.         <PARAM NAME="FontEffects" VALUE="1073741825">
  219.         <PARAM NAME="FontHeight" VALUE="200">
  220.         <PARAM NAME="FontCharSet" VALUE="0">
  221.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  222.         <PARAM NAME="FontWeight" VALUE="700">
  223.     </OBJECT>
  224.     <OBJECT ID="lblEngine"
  225.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:80pt;LEFT:32pt;WIDTH:187pt;HEIGHT:16pt;ZINDEX:4;">
  226.         <PARAM NAME="VariousPropertyBits" VALUE="8388627">
  227.         <PARAM NAME="Caption" VALUE="Select search engine:">
  228.         <PARAM NAME="Size" VALUE="6597;564">
  229.         <PARAM NAME="FontName" VALUE="Arial">
  230.         <PARAM NAME="FontEffects" VALUE="1073741825">
  231.         <PARAM NAME="FontHeight" VALUE="200">
  232.         <PARAM NAME="FontCharSet" VALUE="0">
  233.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  234.         <PARAM NAME="FontWeight" VALUE="700">
  235.     </OBJECT>
  236.     <OBJECT ID="btnGo"
  237.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:94pt;LEFT:164pt;WIDTH:47pt;HEIGHT:23pt;TABINDEX:4;ZINDEX:5;">
  238.         <PARAM NAME="BackColor" VALUE="12615935">
  239.         <PARAM NAME="Caption" VALUE="Go!">
  240.         <PARAM NAME="Size" VALUE="1658;811">
  241.         <PARAM NAME="FontName" VALUE="Arial">
  242.         <PARAM NAME="FontEffects" VALUE="1073741825">
  243.         <PARAM NAME="FontHeight" VALUE="200">
  244.         <PARAM NAME="FontCharSet" VALUE="0">
  245.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  246.         <PARAM NAME="ParagraphAlign" VALUE="3">
  247.         <PARAM NAME="FontWeight" VALUE="700">
  248.     </OBJECT>
  249.     <OBJECT ID="optbtnHitType1"
  250.      CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:170pt;LEFT:31pt;WIDTH:59pt;HEIGHT:14pt;TABINDEX:6;DISPLAY:NONE;ZINDEX:6;">
  251.         <PARAM NAME="VariousPropertyBits" VALUE="746588179">
  252.         <PARAM NAME="BackColor" VALUE="2147483663">
  253.         <PARAM NAME="ForeColor" VALUE="2147483669">
  254.         <PARAM NAME="DisplayStyle" VALUE="5">
  255.         <PARAM NAME="Size" VALUE="2081;494">
  256.         <PARAM NAME="Caption" VALUE="Compact">
  257.         <PARAM NAME="FontCharSet" VALUE="0">
  258.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  259.     </OBJECT>
  260.     <OBJECT ID="optbtnHitType2"
  261.      CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:185pt;LEFT:31pt;WIDTH:61pt;HEIGHT:17pt;TABINDEX:7;DISPLAY:NONE;ZINDEX:7;">
  262.         <PARAM NAME="VariousPropertyBits" VALUE="746588179">
  263.         <PARAM NAME="BackColor" VALUE="2147483663">
  264.         <PARAM NAME="ForeColor" VALUE="2147483666">
  265.         <PARAM NAME="DisplayStyle" VALUE="5">
  266.         <PARAM NAME="Size" VALUE="2152;600">
  267.         <PARAM NAME="Caption" VALUE="Titles">
  268.         <PARAM NAME="FontCharSet" VALUE="0">
  269.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  270.     </OBJECT>
  271.     <OBJECT ID="optbtnHitType3"
  272.      CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:201pt;LEFT:31pt;WIDTH:60pt;HEIGHT:18pt;TABINDEX:8;DISPLAY:NONE;ZINDEX:8;">
  273.         <PARAM NAME="VariousPropertyBits" VALUE="746588179">
  274.         <PARAM NAME="BackColor" VALUE="2147483663">
  275.         <PARAM NAME="ForeColor" VALUE="2147483666">
  276.         <PARAM NAME="DisplayStyle" VALUE="5">
  277.         <PARAM NAME="Size" VALUE="2117;635">
  278.         <PARAM NAME="Caption" VALUE="Summaries">
  279.         <PARAM NAME="FontCharSet" VALUE="0">
  280.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  281.     </OBJECT>
  282.     <OBJECT ID="lblReturn"
  283.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:154pt;LEFT:31pt;WIDTH:66pt;HEIGHT:17pt;DISPLAY:NONE;ZINDEX:9;">
  284.         <PARAM NAME="VariousPropertyBits" VALUE="8388627">
  285.         <PARAM NAME="Caption" VALUE="Return:">
  286.         <PARAM NAME="Size" VALUE="2328;600">
  287.         <PARAM NAME="FontName" VALUE="Arial">
  288.         <PARAM NAME="FontEffects" VALUE="1073741825">
  289.         <PARAM NAME="FontHeight" VALUE="200">
  290.         <PARAM NAME="FontCharSet" VALUE="0">
  291.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  292.         <PARAM NAME="FontWeight" VALUE="700">
  293.     </OBJECT>
  294.     <OBJECT ID="lblGet"
  295.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:123pt;LEFT:31pt;WIDTH:23pt;HEIGHT:16pt;DISPLAY:NONE;ZINDEX:10;">
  296.         <PARAM NAME="VariousPropertyBits" VALUE="8388627">
  297.         <PARAM NAME="Caption" VALUE="Get">
  298.         <PARAM NAME="Size" VALUE="811;564">
  299.         <PARAM NAME="FontName" VALUE="Arial">
  300.         <PARAM NAME="FontEffects" VALUE="1073741825">
  301.         <PARAM NAME="FontHeight" VALUE="200">
  302.         <PARAM NAME="FontCharSet" VALUE="0">
  303.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  304.         <PARAM NAME="ParagraphAlign" VALUE="3">
  305.         <PARAM NAME="FontWeight" VALUE="700">
  306.     </OBJECT>
  307.     <OBJECT ID="txtboxHits"
  308.      CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:123pt;LEFT:62pt;WIDTH:50pt;HEIGHT:17pt;TABINDEX:11;DISPLAY:NONE;ZINDEX:11;">
  309.         <PARAM NAME="VariousPropertyBits" VALUE="746604571">
  310.         <PARAM NAME="Size" VALUE="1764;600">
  311.         <PARAM NAME="FontCharSet" VALUE="0">
  312.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  313.     </OBJECT>
  314.     <OBJECT ID="lblSearch"
  315.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:156pt;LEFT:125pt;WIDTH:78pt;HEIGHT:16pt;DISPLAY:NONE;ZINDEX:12;">
  316.         <PARAM NAME="VariousPropertyBits" VALUE="8388627">
  317.         <PARAM NAME="Caption" VALUE=" Search:">
  318.         <PARAM NAME="Size" VALUE="2752;564">
  319.         <PARAM NAME="FontName" VALUE="Arial">
  320.         <PARAM NAME="FontEffects" VALUE="1073741825">
  321.         <PARAM NAME="FontHeight" VALUE="200">
  322.         <PARAM NAME="FontCharSet" VALUE="0">
  323.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  324.         <PARAM NAME="FontWeight" VALUE="700">
  325.     </OBJECT>
  326.     <OBJECT ID="optbtnWeb"
  327.      CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:172pt;LEFT:125pt;WIDTH:70pt;HEIGHT:13pt;TABINDEX:13;DISPLAY:NONE;ZINDEX:13;">
  328.         <PARAM NAME="VariousPropertyBits" VALUE="746588179">
  329.         <PARAM NAME="BackColor" VALUE="2147483663">
  330.         <PARAM NAME="ForeColor" VALUE="2147483666">
  331.         <PARAM NAME="DisplayStyle" VALUE="5">
  332.         <PARAM NAME="Size" VALUE="2469;459">
  333.         <PARAM NAME="Caption" VALUE="Web">
  334.         <PARAM NAME="GroupName" VALUE="altavista">
  335.         <PARAM NAME="FontCharSet" VALUE="0">
  336.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  337.         <PARAM NAME="FontWeight" VALUE="0">
  338.     </OBJECT>
  339.     <OBJECT ID="optbtnNews"
  340.      CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:187pt;LEFT:125pt;WIDTH:70pt;HEIGHT:16pt;TABINDEX:14;DISPLAY:NONE;ZINDEX:14;">
  341.         <PARAM NAME="VariousPropertyBits" VALUE="746588179">
  342.         <PARAM NAME="BackColor" VALUE="2147483663">
  343.         <PARAM NAME="ForeColor" VALUE="2147483666">
  344.         <PARAM NAME="DisplayStyle" VALUE="5">
  345.         <PARAM NAME="Size" VALUE="2469;564">
  346.         <PARAM NAME="Caption" VALUE="UseNet">
  347.         <PARAM NAME="GroupName" VALUE="altavista">
  348.         <PARAM NAME="FontCharSet" VALUE="0">
  349.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  350.         <PARAM NAME="FontWeight" VALUE="0">
  351.     </OBJECT>
  352.     <OBJECT ID="lblHits"
  353.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:123pt;LEFT:125pt;WIDTH:55pt;HEIGHT:16pt;ZINDEX:15;">
  354.         <PARAM NAME="VariousPropertyBits" VALUE="8388627">
  355.         <PARAM NAME="Caption" VALUE="Hits">
  356.         <PARAM NAME="Size" VALUE="1940;564">
  357.         <PARAM NAME="FontName" VALUE="Arial">
  358.         <PARAM NAME="FontEffects" VALUE="1073741825">
  359.         <PARAM NAME="FontHeight" VALUE="200">
  360.         <PARAM NAME="FontCharSet" VALUE="0">
  361.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  362.         <PARAM NAME="FontWeight" VALUE="700">
  363.     </OBJECT>
  364. </DIV>