<% 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%>

  • [ 推广 ] 有道词典 Mac版 <- 点击免费下载
    有道词典是国内最好的英语、日语、韩语、法语免费全能查词翻译软件,用户数已经突破5亿大关。Mac上最好用的翻译软件.

  • [ 推荐 ] WPS Mac 2019 <- 点击下载
    WPS Office for Mac, 正式版,现已发布。
    小巧玲珑: 本地存储只有630M,下载时间260秒*
    功能不止office: 文字 表格 演示 PDF 流程图 脑图,6种效率工具合而为一
    兼容能力强大: 不再被文件格式束缚 , 告别双系统切换烦恼
    简洁清爽: 深度适配Mac OS系统 界面干净纯粹、不分心
    既快又稳 : 响应飞快、运行稳定 同时打开多文档、大文档,无压力
    随时随地云备份 : 一个账号云端保管,到哪里都能打开 网页、win端、移动端、小程序
    稻壳模板 省时省力 海量模板覆盖全场景 实用模板、事半功倍


  • <% 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)&".." %>
  • .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 %>