<% Keys=Request.QueryString("Keys") Keyscode=TextEnCode(Keys) Ord=Request.QueryString("Ord") Page = Request.QueryString("Page") qid=Request.QueryString("qid") if qid="" or Not IsNumeric(qid) Then conn.close set Conn=Nothing Response.Redirect "/" End If If Ord<>"" Then OrdStr=Ord&"," Else OrdStr="" End If Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "select productId from productFAQ where questionId="&qid,conn,1,1 productStr="," Do while Not Rs.bof and Not Rs.eof productStr=productStr&Rs("productId")&"," Rs.moveNext loop Rs.close Rs.Open "Select id,productName,productPic,productAddtime from product where productName like '%"&Keyscode&"%' Order By productAddtime Desc",Conn,1,1 Keys=Server.UrlEnCode(Keys) Ord=Server.UrlEnCode(Ord) hrefstr = "?keys="&Keys %> <% If Not Rs.Bof And Not Rs.Eof Then Rs.PageSize = 7 If Page = "" Then Page = 1 If Page = "end" Then Page = Rs.PageCount If Not IsNumeric(Page) Or Page < 1 Then Page = 1 Page = Cint(Page) If Page > Rs.PageCount Then Page = Rs.PageCount Rs.AbsolutePage = Page TempNum = Rs.PageSize * (Page - 1) Set Rs1=Server.CreateObject("ADODB.RecordSet") For i=1 To Rs.PageSize If Rs.Bof Or Rs.Eof Then Exit For TempNum=TempNum+1:classid=Rs(1) %> <% Rs.MoveNext Next Else If Keys="" Then %> <% Else %> <% End If End If %>

	序号	产品名称	图片	添加时间
name="chkbox" class="relatedProducts" onChange="relatedProducts(<%=qid%>,<%=Rs("id")%>)" />	<%=TempNum%>	<%=Rs("productName")%>	" height="60px">	<%=Rs("productAddtime")%>
Sorry，当前暂无信息
Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回
<% If Rs.PageCount > 1 Then PageName="?qid="&qid&"&Keys="&Keys&"&Ord="&Ord&"&" Pagelen=3 If Page>1 Then Response.Write "首页" Response.Write "上一页" End If If Pagelen*2+1 >= Rs.PageCount Then StartPage=1:EndPage=Rs.PageCount Else If Page<=Pagelen+1 Then StartPage=1 EndPage=Pagelen*2+1 Else StartPage=Page-Pagelen EndPage=Page+Pagelen End If If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount End If For i = StartPage To EndPage If i = Page Then Response.Write ""&i&"" Else Response.Write ""&i&"" End If Next If Page Pagelen Then Response.Write "..."&Rs.PageCount&"" Response.Write "下一页" Response.Write "尾页" End If Response.Write "" End If %> " onFocus="if(this.value == '<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>'){this.value='';}" onBlur="if(this.value == ''){this.value='<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>';}" onKeyDown="if(event.keyCode==13){location.href='?qid=<%=qid%>&Keys='+escape(document.getElementById('keys').value)}" /> 显示 隐藏 删除

<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>