<%
kindid = trim(request("kindid"))
find = trim(request("find"))
if find<>empty then
if kindid<>"" then
SQL = "Select * From zaixiangame where name like '%" & find &"%' and kindid like "& kindid &" order by id desc"
else
sql = "Select * From zaixiangame where name like '%" & find &"%' order by id desc"
end if
else
if kindid<>"" then
SQL = "Select * From zaixiangame where kindid like "& kindid &" order by id desc"
else
SQL = "Select * From zaixiangame order by id desc"
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 3
if rs.eof then
Response.Write "很抱歉，没有搜索的纪录!"
Response.End
end if
%>
<%
rs.PageSize = 10
page=clng(request("page"))
if page<1 then
page=1
end if
if page>rs.PageCount then
page=rs.PageCount
end if
if page=1 then
upye=""
downye="下一页"
elseif page=rs.PageCount then
upye="上一页"
downye=""
else
upye="上一页"
downye="下一页"
end if
%>
有线游乐园
