<% Dim FunClass Set FunClass=New Tkl_StringClass Dim sKey sKey=Replace(Request("sKey"),"'","") Dim Work Work=Request("Work") Dim Conn Set Conn = Server.CreateObject("Adodb.Connection") Conn.Open ConnStr %>
<% If Len(sKey)<500 Then Call InfoList() Else Call ErrorInfo() End If Sub InfoList() Dim Rs,Sql,CurrentPage If Request("CurrentPage")="" Then CurrentPage=1 Else CurrentPage=Request("CurrentPage") End If Set Rs=Server.CreateObject("ADODB.RecordSet") Sql=ExeSql() Rs.PageSize=15 Rs.CacheSize=Rs.PageSize Rs.Open Sql,Conn,1,1 If Not(Rs.Eof And Rs.Bof) Then Rs.AbsolutePage=CurrentPage End If %>
Catelogies
  • Edge machinery wheels series
  • Bevelling machinery wheels series
  • Shape bevelling edge wheels series
  • Shape grinding machinery wheels series
  • CNC machinery wheels series
  • Import polishing wheels series
  • Polishing wheels series
  • Drill bit series
  • Glass polishing material series
  • Sandblast series
  • Glass suction series
  • Glass tools series
    		•  
     ¡¡¡¡Home > > <%=sKey%> Result <%=Rs.RecordCount%>

    <% Dim I,J For I=1 To 4 If Rs.Eof Then Exit For End If %> <% For J=1 To 4 If Rs.Eof Then %> <% Else %> <% Rs.MoveNext End If Next %> <% Next %>
     
    " target="_blank"> " target="_blank">" border="0" width=150 height=110 onload="javascript:if(this.height>110)this.style.width=(this.width*150)/this.height;">
    " target="_blank"><%=Rs("Title")%>
    <% If Rs.Eof And Rs.Bof Then %>
    Sorry, No item.
    <% End If %>
    <% Rs.Close Set Rs=Nothing End Sub Sub ErrorInfo() %>

    Some error: 1.No item; 2. keyword too long.

    <% End Sub %>  
    <% Function ExeSql() Dim tSql Select Case Work Case Else 'ÐÂÎÅÁбí tSql="SELECT Id,Title,AddTime,FilePath,SmallImg From view_NewsInfo Where (Title+','+keyWord+','+ShortContent) Like '%"&sKey&"%' {Where01} Order By Id DESC" End Select If IsNumeric(Request("Class")) And Request("Class")<>"" Then tSql = Replace(tSql,"{Where01}"," And Class In (" & Request("Class") & AllChildClass(Request("Class")) & ")") Else tSql = Replace(tSql,"{Where01}","") End If ExeSql=tSql End Function %>