% order_name=Request("Order")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if request("updown")<>"" then
updown="desc"
else
updown=""
end if
select case order_name
case "showname"
order_name="showname"
case "hot"
order_name="hot"
case "dateandtime"
order_name="dateandtime"
case "hits"
order_name="hits"
case "orders"
order_name="orders"
case "size"
order_name="size"
case else
order_name="id"
updown="desc"
end select
keyword=request("keyword")
if keyword="" then
errmsg=errmsg+" "+"请输入查询条件。"
founderr=true
else
keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")," "," ")
if request("action")="title" then
findword="showname like '%"&keyword&"%' "
else
findword="note like '%"&keyword&"%' "
end if
end if
set rs=server.createobject("adodb.recordset")
dim classid,Nclassid
dim classname,Nclassname
if request("classid")="" then
' classid=""
' classname="所有软件"
'classid="classid=14 and "
classid=""
sql="select class from Aclass"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "还没有任何栏目,请到管理页面添加"
response.end
else
classname=rs("class")
end if
rs.close
else
classid="classid="&cstr(request("classid"))&" and "
sql="select class from Aclass where classid="&cstr(request("classid"))
rs.open sql,conn,1,1
classname=rs("class")
rs.close
end if
if request("Nclassid")="" then
Nclassid=""
Nclassname="所有flash"
else
Nclassid=" Nclassid="&cstr(request("Nclassid"))&" and "
sql="select ANclass.Nclass,Aclass.class from ANclass,Aclass where ANclass.classid=Aclass.classid and ANclass.Nclassid="&cstr(request("Nclassid"))
rs.open sql,conn,1,1
classname=rs("class")
Nclassname=rs("Nclass")
rs.close
end if
%>