建站代码网

热门标签

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

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