您当前的位置:天天ASP(学习网)ASP编程进阶技巧 → 文章内容

图片上一张 下一张(以ID作为排序)

作者:本站  来源:本站原创  发布时间:2013-12-16 8:48:22
<%             
sql2="select * from CompVisualize where id="&id
set rs2=conn.execute(sql2) 
n=getThePage(rs2("id"),"3","next","") 
response.Write(n&"&nbsp;&nbsp;") 
p=getThePage(rs2("id"),"3","pre","") 
response.Write(p&"&nbsp;") 

function getThePage(id,classid,order,inDate) 
dim rs,sql,pre,re 
sql="select top 1 * from CompVisualize where id>0"
if order="next" then 
   sql=sql&" and id>"&id&" order by id asc" 
else 
   sql=sql&" and id<"&id&" order by id desc" 
end if 
set rs=conn.execute(sql) 
if not rs.eof then 
   if order="next" then 
   re="<a href=’?ID=" & rs("id") & "’>下一张</a>" 
   else
   re="<a href=’?ID=" & rs("id") & "’>上一张</a>" 
   end if
   getThePage=re 
 
   
else 
   getThePage="没有了" 

end if 
rs.close 
set rs=nothing 
end function 

rs2.close 
set rs2=nothing
  %>
文章评论 (评论内容只代表网友观点,与本站立场无关!)

用户名: 查看更多评论

分 值:100分 85分 70分 55分 40分 25分 10分 0分

内 容:

         (注“”为必填内容。)