<% start="ماقالىلەر" dim founderr founderr=false if request.querystring("cat_id")<>"" then if not isInteger(request.querystring("cat_id")) then founderr=true Response.Write "" end if end if if request("page")<>"" then if not isInteger(request("page")) then founderr=true Response.Write "" end if end if if request("keyword")<>"" then if instr(request("keyword"),"'")>0 then founderr=true Response.Write "" end if end if call head() call menu() dim totalart,Currentpage,totalpages,i,j,colname sql="select art_id,cat_id,art_title,art_date,art_count,art_content,isbest,review,reviewcount from art order by art_id DESC" if request("cat_id")<>"" then sql="select art_id,cat_id,art_title,art_date,art_count,art_content,isbest,review,reviewcount from art where cat_id="&request("cat_id")&" order by art_id DESC" elseif request("keyword")<>"" then sql="select art_id,cat_id,art_title,art_date,art_count,art_content,isbest,review,reviewcount from art where "&request("select")&" like '%"&request("keyword")&"%'order by art_id DESC" end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %>

<% if not rs.eof then rs.movefirst rs.pagesize=articleperpage if trim(request("page"))<>"" then currentpage=clng(request("page")) if currentpage>rs.pagecount then currentpage=rs.pagecount end if else currentpage=1 end if totalart=rs.recordcount if currentpage<>1 then if(currentpage-1)*articleperpage <% i=i+1 rs.movenext loop else if rs.eof and rs.bof then %> <%end if end if%> &keyword=<%=request("keyword")%>&cat_id=<%=request("cat_id")%>">  <%=rs("art_title")%> <% if rs("isbest")<>1 then response.write"" elseif rs("isbest")=1 then response.write"" end if %>