|
|
按作品内容关键字查找,如:梅、藤萝、鸽等 |
|
|
|
| 最后更新日期:2006.6.21 |
|
<%
fenlei=Trim(Request("fenlei"))
xingshi=Trim(Request("xingshi"))
keyword=Trim(Request("keyword"))
%>
| 目前显示的作品范围是:
<%If fenlei="" and xingshi="" and keyword="" then
Response.Write("全部")
end if%>
<%=(fenlei)%><%=(xingshi)%><%=(keyword)%> |
<%
sql="select * from zheshan order by ID desc"
if fenlei<>"" then
sql="select * from zheshan where fenlei='"& fenlei &"'order by id desc"
end if
if xingshi<>"" then
select case xingshi
case "10寸扇"
sql="select * from zheshan where shu=10 order by id desc"
case "12寸扇"
sql="select * from zheshan where shu=12 order by id desc"
case "7寸扇"
sql="select * from zheshan where shu=7 order by id desc"
end select
end if
if keyword<>"" then
sql="select * from zheshan where mingcheng like '%"& keyword &"%' or neirong like '%"& keyword &"%' order by id desc"
end if
set tiezi=server.CreateObject("adodb.recordset")
tiezi.open sql,lj,1,2
if tiezi.bof and tiezi.eof then
Response.Write("尚未有您查找的作品发布,谢谢关注!
|
")
else
if request("ye")="" then
ye=1
else
ye=cint(request("ye"))
end if
tiezi.pagesize=4
tiezi.absolutepage=ye
zong=tiezi.pagecount
tou=4
do while not tiezi.eof and tou>0
tou=tou-1
%>
| |
|
(点击放大) |
作品编号:SM0<%=(tiezi("ID"))%> 检索分类:<%=(tiezi("fenlei"))%>
作品名称:《<%=(tiezi("mingcheng"))%>》
作品尺寸:共<%=(tiezi("heng"))%>根骨,骨长约<%=(tiezi("shu"))%>寸
说 明:<%=(tiezi("shuoming"))%> |
| |
|
<%tiezi.movenext
loop
end if%>
|
<%
if ye=1 then
response.Write("首页 上一页 ")
end if
if ye<>1 then
response.Write("首页 ")
response.Write("上一页 ")
end if
if ye<>zong then
response.Write("下一页 ")
response.Write("末页")
end if
if ye=zong then
response.Write("下一页 末页")
end if
response.Write(" 共"&zong&"页")
response.Write(" 第"&ye&"页")
%>
|