最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 上一篇,下一篇文章实例代码
时间:2010-04-16 编辑:简简单单 来源:一聚教程网
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
-
上一个: asp 查询指定id记录进行修改
-
下一个: asp 视频播放代码
相关文章
- asp For Next语句实例 10-14
- asp For Each语句实例 10-14
- asp do while与while语句实例 10-14
- asp For Next 循环语句语法与实例 03-03
- asp do while 循环语法与do while实例教程 03-03
- asp For Each Next 用法与For Each实例教程 03-03