原创,实现上一张和下一张切换功能
原创,实现上一张和下一张切换功能!大家可以参考,可以对代码修改,帮小弟改得更好点的.谢谢!!<%
if request("id")<>"" then
id = request("id")
else
response.Redirect("product.asp")
end if
'===================================================================================
'功能：显示上下一张
'思路：先用查询条件where_sql判断该产品所属产品类别，确定所属类别之后再分别查询比当前ID号小和大的ID，注意：小的要读取最大ID，大的要取最小ID
'函数名：zhang()
sub zhang()
dim flag1,flag2,next_sql,sh_sql,rs_next,strs,next_id,sh_id,where_sql,all_sql,n,s
all_sql="select id from pro_list " ' 头条查询语句
n="and id<"&id&" order by id DESC" ' 查询ID号小于当前ID号的产品
s="and id>"&id&" order by id ASC" ' 查询ID号大于当前ID号的产品
where_sql="where pro_type IN(select pro_type from pro_list where id="&id&")" ' 属于子查询条件（查询该产品所属产品类别）
next_sql=all_sql&where_sql&n ' 显示下一张,注意这里查询的是一倒叙，读取比当前的ID小，并且在记录中的最大的ID号
sh_sql=all_sql&where_sql&s ' 显示上一张，注意这里是以与上面的排序刚好相反
set rs_next=server.CreateObject("ADODB.Recordset")
rs_next.open next_sql,conn,1,1
if rs_next.eof or rs_next.bof then
flag1=false '如果没记录，赋为flase
else
flag1=true '存在记录则赋为true
next_id=rs_next("id") '取得记录中的ID
end if
rs_next.close
rs_next.open sh_sql,conn,1,1
if rs_next.eof or rs_next.bof then
flag2=false '同上
else
flag2=true
sh_id=rs_next("id")
end if
rs_next.close
set rs_next=nothing
strs="&nbsp;"
strs=strs&"<table align='center' width='20%' border='0'>"
strs=strs&"<tr>"
if flag2=false then '1.已经点到最前一张时，设置超连接为不可点击状态
strs=strs&"<td class='c'>"&"上一张"&"</td>"
if flag1=false then
strs=strs&"<td class='c'>"&"下一张"&"</td>" '2.如果下一张为最后一张，设置超连接为不可点击状态
else
strs=strs&"<td>" '3.如果下一张不为最后一张，设置超连接为可点击状态
strs=strs&"<a href="&"product_view.asp?id="&next_id&">"
strs=strs&"下一张"&"</a>"
strs=strs&"</td>"
end if
else '4.还未点到最前一张时，设置超连接为可点击状态
strs=strs&"<td>"
strs=strs&"<a href="&"product_view.asp?id="&sh_id&">"
strs=strs&"上一张"&"</a>"
strs=strs&"</td>"
if flag1=false then
strs=strs&"<td class='c'>"&"下一张"&"</td>" '同2
else
strs=strs&"<td>" '同3
strs=strs&"<a href="&"product_view.asp?id="&next_id&">"
strs=strs&"下一张"&"</a>"
strs=strs&"</td>"
end if
end if
strs=strs&"</tr></table>"
response.Write strs
End sub
'End
'该函数结束。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
'===================================================================================
%>
