%
keyword=trim(checksql(request("keyword")))
keyword=replace(keyword," "," ")
keyword="Christmas"
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from search where keyword='"&keyword&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("keyword")=keyword
rs("hits")=rs("hits")+1
rs("addtime")=now()
rs.update
rs.close
keyword2=replace(keyword," ","|")
if Instr(keyword2,"|") then
keyword1=split(keyword2,"|")
for i=0 to Ubound(keyword1)
if i=0 then
sqlb="(sclass like '%"&keyword1(i)&"%')"
else
sqlb=sqlb&" and (sclass like '%"&keyword1(i)&"%')"
end if
next
else
sqlb="(sclass like '%"&keyword&"%')"
end if
%>
Home | Free Wallpaper<%
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from class where ParentID=0 order by pnum desc ,id desc"
rs.open sql,conn,1,1
do while not rs.eof
%> | /"><%=rs("classtype")%><%
rs.movenext
loop
rs.close
%>
<%=keyword%> Wallpaper
It seems that Christmas time is here once again, and it is
time again to bring in the New Year. We wish the merriest
of Christmas to you and your loved ones, and we wish you
happiness and prosperity in the year ahead. May you have the best Christmas ever.bookmarkContact us
<%
sql="select * from sclass where "&sqlb&" order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
pagesize=25
Rs.pagesize=pagesize
page=checksql(Request("page"))
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
iii=0
do while not rs.eof
iii=iii+1
%>
<%
if iii>=rs.pagesize then exit do
if iii mod 5=0 then response.Write "
"
rs.movenext
loop
%>
[ First
<%for go=(page-3) to (page+3)%>
<%if go>0 and go<= rs.pagecount then%>
<%if int(page)=int(go) then%>
<%=go%>
<%else%>
<%=go%>
<%end if%>
<%end if%>
<%next%>
<% if page<>1 and page<>2 then %>
Last
<%end if%>
<%if page=2 then%>
Last
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
Next
<%end if%>
Previous ]
<%
end if
rs.close
set rs=nothing
%>
Copyright 2003-2009 www.TopSir.com All Rights Reserved