-
<% if classid = "" then sql = "select top 10 * from soft where DATEDIFF(day,Date,GETDATE())<=300 order by today desc" else sql = "select top 10 * from soft where DATEDIFF(day,Date,GETDATE())<=300 and class= "&classid&" order by today desc" end if set rs = server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof or rs.bof then %>没有找到信息<% else i = "0" do while not rs.eof or rs.bof i = i + 1 if i > rs.recordcount or i = "10" then exit do end if name = rs("name") if len(rs("name"))>30 then name=left(rs("name"),30)&".."%><%if rs("image") <> "" and rs("image") <> "#" then%> " width="35" height=35" border="0"><%else%><%end if%>
必备软件
推荐
WPS Mac
免费文字办公套件
网络聊天 视频播放 浏览器
Google Chrome输入法 图片处理
Photoshop
Pixelmator
Illustrator视频编辑
Final Cut Pro X 中文系统工具 常用办公
WPS 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%>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
-
[ 推广 ] 有道词典 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)&".."
%>
-
<%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
%>
<%if page < "6" then%>
[ <%=page%>
<%=page+1%>
<%=page+2%>
<%=page+3%>
<%=page+4%> ]
<%else%>
[ <%=page-4%>
<%=page-3%>
<%=page-2%>
<%=page-1%>
<%=page%>
<%=page+1%>
<%=page+2%>
<%=page+3%>
<%=page+4%> ]
<%end if%>
[第<%=page%>页/共<%=rs.pagecount%>页]
<%if page = "1" then%>
[首页] [上一页]
<%else%>
[首页] [上一页]
<%end if%>
<%if rs.pagecount-page < 1 then%>
[下一页] [尾页]
<%else%>
[下一页] [尾页]
<%end if%>