asp 上一篇，下一篇文章实例代码

Function prev_pic(Url,Id)
 Sql="Select  Top 1 * From young Where Id>"&id&" Order By Id Asc "
 Call Opendb()
 Set Rs0=Conn.Execute(Sql)
 If Not Rs0.Eof Then
  Response.Write("

"&Left(Rs0(4),5))
 Else
  Response.write("没有了
")
 End If 
 Rs0.close
 Set Rs0=nothing
End Function

Function Next_pic(Url,id)
 Sql="Select  Top 1 * From young Where Id<"&id&" Order By Id Desc "
 Call Opendb()
 Set Rs1=Conn.Execute(Sql)
 If Not Rs1.Eof Then
  Response.Write("

"&Left(Rs1(4),5))
 Else
  Response.write("没有了
")
 End If 
 Rs1.close
 Set Rs1=nothing
End Function