<% Call SiteInfo() SeoTitle = "站内搜索" %> <%=SeoTitle %> - <%=SiteTitle %>
  1. 首页
  2. <%=SeoTitle %>

<%=SeoTitle %>

<%=WebContent(Trim(Request("Keyword")), Trim(Request("Range")))%>
<% Function WebMenu() Dim rs, sql Set rs = server.CreateObject("Adodb.Recordset") sql = "Select * From Qianbo_NewsSort Where ViewFlag And ParentID <> 0 Order By ID Asc" rs.Open sql, conn, 1, 1 If Not rs.EOF Then Do If ISHTML = 1 Then AutoLink = "" & NewSortName & Separated & rs("ID") & Separated & "." & HTMLName & "" Else AutoLink = "NewsList.Asp?SortID=" & rs("ID") & "" End If If SortPath = rs("SortPath") Then tmpCss = " current-menu-item" Else tmpCss = "" End If Response.Write "
  • " & rs("SortName") & "
    • " rs.movenext Loop Until rs.EOF End If rs.Close Set rs = Nothing End Function Function WebContent(Keyword, Range) If Range = "Void" Or Range = "" Or CheckBadChar(request("Keyword")) <> True Then Range = "News" End If Dim idCount Dim pages pages = 12 Dim pagec Dim page page = CLng(request("Page")) Dim pagenc pagenc = 5 Dim pagenmax Dim pagenmin Dim pageprevious Dim pagenext Dim datafrom Dim datawhere Select Case Range Case "Product" datafrom = "Qianbo_Products" datawhere = "Where ViewFlag And ProductName Like '%" & KeyWord & "%'" Case "News" datafrom = "Qianbo_News" datawhere = "Where ViewFlag And NewsName Like '%" & KeyWord & "%'" End Select Dim sqlid Dim Myself, PATH_INFO, QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' If QUERY_STRING = "" Then Myself = PATH_INFO & "?" ElseIf InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then Myself = PATH_INFO & "?" & QUERY_STRING & "&" Else Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1) End If Dim taxis taxis = "Order By ID Desc" Dim i Dim rs, sql Set rs = server.CreateObject("Adodb.Recordset") sql = "Select Count(ID) AS IDCount From [" & datafrom & "]" & datawhere Set rs = server.CreateObject("Adodb.Recordset") rs.Open sql, conn, 0, 1 idCount = rs("idCount") If(idcount>0) Then If(idcount Mod pages = 0)Then pagec = Int(idcount / pages) Else pagec = Int(idcount / pages) + 1 End If sql = "Select ID From [" & datafrom & "] " & datawhere & taxis Set rs = server.CreateObject("Adodb.Recordset") rs.Open sql, conn, 1, 1 rs.pagesize = pages If page < 1 Then page = 1 If page > pagec Then page = pagec If pagec > 0 Then rs.absolutepage = page For i = 1 To rs.pagesize If rs.EOF Then Exit For If(i = 1)Then sqlid = rs("ID") Else sqlid = sqlid & "," & rs("ID") End If rs.movenext Next End If If(idcount>0 And sqlid<>"") Then sql = "Select * From [" & datafrom & "] Where ID IN(" & sqlid & ") " & taxis Set rs = server.CreateObject("Adodb.Recordset") rs.Open sql, conn, 0, 1 Response.Write" " & vbCrLf Else Response.Write "暂无相关信息" Exit Function End If Response.Write"
    " Response.Write "共" & idcount & "条记录 页次：" & page & "/" & pagec & " 每页：" & pages & "条记录" & vbCrLf pagenmin = page - pagenc pagenmax = page+pagenc If(pagenmin<1) Then pagenmin = 1 If(page>1) Then Response.Write ("首页 ") If page - (pagenc * 2 + 1)<= 0 Then pageprevious = 1 Else pageprevious = page - (pagenc * 2 + 1) End If If(pagenmin>1) Then Response.Write ("上一页") If(pagenmax>pagec) Then pagenmax = pagec For i = pagenmin To pagenmax If(i = page) Then Response.Write ("" & i & "") Else Response.Write ("" & i & "") End If Next If page+(pagenc * 2 + 1)>= pagec Then pagenext = pagec Else pagenext = page+(pagenc * 2 + 1) End If If(pagenmax尾页") If(page尾页") Response.Write"
    " & vbCrLf rs.Close Set rs = Nothing End Function %>