topcat 姍舞之間的極度凝聚

<?xml version="1.0" encoding="utf-8" ?>
<OpenSearchDescription xmlns="http://a9.com/-/spec/opensearch/1.1/">
    <ShortName>Topcat Example Search</ShortName>
    <Url type="text/html" template="http://[your ip or server name]/tVisualSearch/results.aspx?q={searchTerms}" />
    <Url type="application/x-suggestions+xml" template="http://[your ip or server name]/tVisualSearch/suggestions.aspx?q={searchTerms}"/>
    <Image height="16" width="16" type="image/icon">http://[your ip or server name]/tVisualSearch/TOPCAT.ico</Image>
</OpenSearchDescription>

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"
    DataKeyNames="id" DataSourceID="SqlDataSource1" EmptyDataText="沒有資料錄可顯示。"
    EnableViewState="False">
    <Columns>
        <asp:BoundField DataField="id" HeaderText="id" ReadOnly="True"
            SortExpression="id" />
        <asp:BoundField DataField="MODEL" HeaderText="MODEL" SortExpression="MODEL" />
        <asp:BoundField DataField="Description" HeaderText="Description"
            SortExpression="Description" />
        <asp:HyperLinkField DataNavigateUrlFields="Url" DataTextField="Url"
            HeaderText="Url" />
        <asp:TemplateField HeaderText="Img">
            <EditItemTemplate>
                <asp:TextBox ID="TextBox1" runat="server" Text='<%# Eval("Img") %>'
                    Tooltip='<%# Eval("Img") %>'></asp:TextBox>
            </EditItemTemplate>
            <ItemTemplate>
                <asp:Image ID="Image1" runat="server"
                    ImageUrl='<%# "images/" & Eval("Img") %>' />
            </ItemTemplate>
        </asp:TemplateField>
    </Columns>
</asp:GridView>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
    ConnectionString="<%$ ConnectionStrings:DatabaseConnectionString1 %>"
    ProviderName="<%$ ConnectionStrings:DatabaseConnectionString1.ProviderName %>"
    SelectCommand="SELECT [id], [MODEL], [Description], [Img], [Url] FROM [T1] WHERE ([MODEL] LIKE @MODEL)">
    <SelectParameters>
        <asp:Parameter Name="MODEL" Type="String" />
    </SelectParameters>
</asp:SqlDataSource>

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim q As String = Request.QueryString("q")
    If q IsNot Nothing Then
        Dim MODEL As String = q & "%"
        Me.SqlDataSource1.SelectParameters(0).DefaultValue = MODEL
    End If
End Sub

<%@ Page ContentType="text/xml" Language="VB" AutoEventWireup="false" CodeFile="suggestions.aspx.vb" Inherits="suggestions" %>
<%@ OutputCache Location="None" %><?xml version="1.0"?> 
<SearchSuggestion xmlns ="http://schemas.microsoft.com/Search/2008/suggestions"> 
    <Query><%=Server.HtmlEncode(Request.QueryString("q"))%></Query>  
    <Section> 
        <Separator title="My Visual Suggestions"/>
        <asp:Literal id="L1" runat="server"></asp:Literal>
    </Section> 
</SearchSuggestion> 

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim x As String = ""
    Try
        Dim q As String = Request.QueryString("q")
        If q IsNot Nothing Then
            Dim SURL As String = "http://" + Request.ServerVariables("SERVER_NAME") + "/tVisualSearch/"
            Dim ConnStr As String = ConfigurationManager.ConnectionStrings("DatabaseConnectionString1").ConnectionString
            Using Conn As New SqlConnection(ConnStr)
                Dim SqlTxt As String = ""
                SqlTxt += "SELECT * FROM T1 WHERE MODEL LIKE @MODEL"
                Using cmmd As New SqlCommand(SqlTxt, Conn)
                    cmmd.Parameters.AddWithValue("@MODEL", q & "%")
                    Dim Da As New SqlDataAdapter(cmmd)
                    Dim Dt As New DataTable
                    Da.Fill(Dt)
                    If Dt.Rows.Count > 0 Then
                        Dim y As Integer
                        For y = 0 To Dt.Rows.Count - 1
                            x += "<Item>" + vbCrLf
                            x += "<Text>" + Dt.Rows(y).Item("MODEL") + "</Text>" + vbCrLf
                            x += "<Url>" + Dt.Rows(y).Item("Url") + "</Url>" + vbCrLf
                            x += "<Description>" + Server.HtmlEncode(Dt.Rows(y).Item("Description")) + "</Description>" + vbCrLf
                            x += "<Image source='" + SURL + ResolveClientUrl("~/images/") + Dt.Rows(y).Item("Img") + "' alt='" + Dt.Rows(y).Item("MODEL") + "' width='100' height='100'/> "
                            x += "</Item>" + vbCrLf
                        Next
                    End If
                End Using
            End Using
        End If
    Catch ex As Exception

    End Try


    Me.L1.Text = x
End Sub

<?xml version="1.0" ?>
<SearchSuggestion xmlns="http://schemas.microsoft.com/Search/2008/suggestions">
  <Query>TH-6</Query>
  <Section>
    <Separator title="My Visual Suggestions" />
    <Item>
      <Text>TH-65PZ800T</Text>
      <Url>http://pmst.panasonic.com.tw/frontend/product/PSPCcontent.aspx?id=964</Url>
      <Description>Full HD面板(1920x1080) ● Full HD PEAKS高畫質系統搭載 ● 全新純黑面版(MAX 30,000:1) ● NEW VIERA揚聲系統&31W大出力 ● 聲音AI&環場音效 ● 音量補正控制 ● VIERA Link</Description>
      <Image source="http://localhost/tVisualSearch/images/TH-65PZ800T_S.jpg" alt="TH-65PZ800T" width="100" height="100" />
    </Item>
    <Item>
      <Text>TH-65PZ700T</Text>
      <Url>http://pmst.panasonic.com.tw/frontend/product/PSPCcontent.aspx?id=715</Url>
      <Description>Full HD 1920x1080面板 ●10000：1超高對比 ●搭載數位無線解碼轉換盒 ●HDMI可串連DVD與家庭劇院 ●BBE VIVA HD 3D音效 ●雙畫面顯示 ●VIERA Link連結週邊影音 ●SD讀卡功能</Description>
      <Image source="http://localhost/tVisualSearch/images/TH-65PZ700T_S.jpg" alt="TH-65PZ700T" width="100" height="100" />
    </Item>
  </Section>
</SearchSuggestion>

<a href="javascript:window.external.AddSearchProvider('opensearch.xml')">點這裡，將Topcat Example Search加入IE8!!</a>