<% if request.querystring("classid") <> "" then classid = int(left(request.querystring("classid"),2)) end if if request.querystring("categoryid") <> "" then categoryid = left(int(request.querystring("categoryid")),2) end if if request.querystring("page") <> "" then page = int(left(request.querystring("page"),3)) end if if request.querystring("keyword") ="" then keyword = Checkxss(request.form("keyword")) else keyword = Checkxss(request.querystring("keyword")) end if if request.querystring("cpu") <> "" then cpu = int(request.querystring("cpu")) if request.querystring("cpu") = "0" then cpup = "0" end if if request.querystring("cpu") = "1" then cpup = "1" end if end if order = left(request.querystring("order"),5) if order = "date" then order1 = " order by date desc" end if if order = "total" then order1 = " order by today desc" end if if order = "fen" then order1 = " order by fen desc" end if if order = "free" then order1 = "and score=10 and un = 0 order by date desc" end if if order = "pay" then order1 = "and price1 <> '' order by date desc" end if if order = "" then order1 = " order by date desc" end if %> Mac软件_下载最好用的Mac软件_mac输入法_mac播放器_Mac网银_Mac炒股_Mac游戏

<% if not categoryid = "" then sql1 = "select * from class where category=" & categoryid set rs1 = server.createobject("adodb.recordset") rs1.open sql1,conn,1,1 if rs1.eof or rs1.bof then else do while not rs1.eof or rs1.bof %> &categoryid=<%=categoryid%>"><%=rs1("class")%> <% rs1.movenext loop end if rs1.close set rs1 = nothing end if%>

    <% if cpu = "" then if keyword = "" then if classid = "" then sql = "select * from soft where score > 1 "& order1 else sql = "select * from soft where class=" & classid & " and score > 1 "& order1 end if else if classid = "" then sql = "select * from soft where name like '%" & keyword & "%' or content like '%" & keyword & "%' and score > 1 "& order1 else sql = "select * from soft where class=" & classid & " and name like '%" & keyword & "% or content like '%" & keyword & "%' and score > 1 "& order1 end if end if else if keyword = "" then if classid = "" then sql = "select * from soft where cpu = " & cpu & " and score > 1 "& order1 else sql = "select * from soft where class=" & classid & " and cpu = " & cpu & " and score > 1 "& order1 end if else if classid = "" then sql = "select * from soft where name, like '%" & keyword & "%' or content like '%" & keyword & "%' and cpu = " & cpu & " and score > 1"& order1 else sql = "select * from soft where class=" & classid & " and name like '%" & keyword & "%' and cpu = " & cpu & " and score > 1 "& order1 end if end if end if set rs = server.createobject("adodb.recordset") If err Then Rs.Close Set Rs = Nothing Err.Clear ExcuteErr = "您输入的内容没有被列入查询范围或其它错误。" End if rs.open sql,conn,1,1 if not rs.eof or rs.bof then rs.pagesize = "20" if page = "" or page < "1" then page = "1" end if if rs.pagecount > "0" then rs.absolutepage = page end if i = "0" if rs.eof or rs.bof then %> 没有找到信息 <% else do while not rs.eof or rs.bof i = i + 1 if i > rs.pagesize then exit do end if classsql = "select * from class where id=" & rs("class") set classrs = server.createobject("adodb.recordset") classrs.open classsql,conn,1,1 if not classrs.eof or classrs.bof then classname = classrs("class") category = classrs("category") end if classrs.close set classrs = nothing categorysql = "select * from category where id=" & category set categoryrs = server.createobject("adodb.recordset") categoryrs.open categorysql,conn,1,1 if not categoryrs.eof or categoryrs.bof then categoryname = categoryrs("category") categoryurl = categoryrs("id") end if categoryrs.close set categoryrs = nothing if rs("score") = "5" then score = "11.gif" end if if rs("cpu") = "0" then cpu = "PowerPC" end if if rs("cpu") = "1" then cpu = "PowerPC+Intel" end if time1 = rs("date") time2 = time1-date name2=REPLACE(REPLACE(rs("name"),".","")," ","") content=rs("content") if len(content)>50 then content=left(content,48)&".." %>
  • <%if rs("image") <> "" and rs("image") <> "#" then%> " width="60" height="60" border="0" title="<%=rs("name")%>"> <%else%> <%end if%>
    .htm" title="<%=rs("name")%>"><%=rs("name")%> <%=rs("ver")%>  <%if rs("price1") > "0" then%> 特价<%=rs("price1")%>元 <%end if%>
    <%if rs("score") = "4" then%>
    <%end if%>
    <%if rs("score")=10 and time2 < 4 then%> <%end if%>
    <%=content%>
    <%if not rs("date") < date then%> 今日最新~ <%else%> <%=REPLACE(rs("date"),"2014","14")%> <%end if%>
    ( <%=categoryname%> - "><%=classname%> )

  • <% rs.movenext loop %>
<% end if end if rs.close set rs = nothing %>