在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000822 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章
没有相关文章
发表文章
[分享]获取上(下)一条记录ID号

作者:sandy_jay     提交人:sandy_jay     发布时间:04-09-08     文章类型:原创     浏览量:3148
参考链结:http://    
关键字:函数 | 存储过程
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000822]

因为经常需要获取上一条记录和下一条记录的ID号,所以自己写了一个存储过程和调用过程,想了想还是放在ASP文档区吧。有什么错误希望大家指正。至少我用了一些时间,还没发现什么问题。呵呵。

存储过程:

CREATE procedure dbo.getid
    @selectsql  nvarchar(1000),  /* query sql */
    @curid      int          ,  /* current record id */
    @top        int  =  0        /* select top ??? */

as

set nocount on

declare @previd  int              /* output */
declare @nextid  int              /* output */
declare @sql  nvarchar(3000)

/*Deal with the SQL sentence spread into */
declare @tempsql nvarchar(1000)
declare @countsql nvarchar(1000)
declare @m int         /* Position in SQL sentence of "from" */
declare @j int         /* Position in SQL sentence of "order by" */
declare @n int         /* Length of the SQL sentence */
declare @k int         /* Total amount of records chosen in SQL sentence  */

set @tempsql = @selectsql
set @tempsql = lower(@tempsql)
set @n = len(@tempsql)
set @m = charindex('from',@tempsql)
set @j = charindex('order',@tempsql)
set @n = @n - @m + 1

if @top > 0
    set @tempsql = 'select top '+ cast(@top as varchar(10)) + ' id ' + substring(@tempsql,@m,@n)
else
    set @tempsql = 'select id ' + substring(@tempsql,@m,@n)

/*Without keywords "order by"*/
if @j is null or @j = 0
    set @countsql = 'select @k=count(id) ' + substring(@tempsql,@m,@n)
else
    begin
    set @n = @j - @m
    set @countsql = 'select @k=count(id) ' + substring(@tempsql,@m,@n)
    end

exec sp_executesql @countsql,N'@k int output',@k output

if @top > 0 and @k > @top
    set @k = @top
 
/*Make SQL*/
set @sql = ''+Char(13)+

    'declare @currow  int'+Char(13)+ 
    'declare @id      int'+Char(13)+
    'declare @i        int'+Char(13)+

    'declare cursor_getid scroll cursor'+Char(13)+
    'for'+Char(13)+
    ''+@tempsql+''+Char(13)+
    'open cursor_getid'+Char(13)+

    '/* get the row of the current record */'+Char(13)+
    'set @i = 0'+Char(13)+
    'set @id = 0'+Char(13)+

    'while (@id<>'+cast(@curid as varchar(100))+')'+Char(13)+
    'begin'+Char(13)+
    '    fetch next from cursor_getid into @id'+Char(13)+
    '    set @i = @i + 1'+Char(13)+ 
    '    if @i > '+cast(@k as varchar(100))+''+Char(13)+
    '        break'+Char(13)+ 
    'end'+Char(13)+

    'if @i > '+cast(@k as varchar(100))+''+Char(13)+
    'begin'+Char(13)+
    '    set @previd = 0'+Char(13)+
    '    set @nextid = 0'+Char(13)+
    'end'+Char(13)+

    'else'+Char(13)+

    'begin'+Char(13)+
    '    set @currow = @i'+Char(13)+

    '    /* get the next record id */'+Char(13)+
    '    set @i = @currow + 1'+Char(13)+
    '    fetch absolute @i from cursor_getid into @nextid'+Char(13)+
    '    if @@fetch_status <> 0'+Char(13)+
    '      set @nextid = 0'+Char(13)+
 
    '    /* get the prev record id */'+Char(13)+
    '    set @i = @currow - 1'+Char(13)+
    '    fetch absolute @i from cursor_getid into @previd'+Char(13)+
    '    if @@fetch_status <> 0'+Char(13)+
    '      set @previd = 0'+Char(13)+
    'end'+Char(13)+

    'close cursor_getid'+Char(13)+
    'deallocate cursor_getid'


exec sp_executesql @sql,N'@previd int output,@nextid int output',@previd output,@nextid output

select @previd as previd,@nextid as nextid

GO



<%
'调用存储过程,返回上一条记录的ID号和下一条记录的ID号
Sub GetID(objConn,sSQL,iCurId,byref iNext,byref iPrev)

' 参数sSQL应类似于“select [top n] id from table_name [where conditions] [order by fieldname]”,若有where,order by 关键字则需同索引(内容列表)页面选取内容的sSQL语句保持一致
' iCurId 为当前记录的ID号

  Dim Temp,i,j
  j = 0
  Temp = LCase(Replace(sSQL,"  "," "))
  If InStr(Temp,"select top") <> 0 Then
    Temp = Split(Temp," ")
    For i=0 To UBound(Temp)
      If Temp(i) = "top" Then
        Exit For
      End If
    Next
        j = Cint(Temp(i+1))
  End If

  Dim objRs
  If j > 0 Then
    Set objRs = objConn.Execute("EXEC getid '"&replace(sSQL,"'","''")&"',"&iCurId&","&j)
    Else
    Set objRs = objConn.Execute("EXEC getid '"&replace(sSQL,"'","''")&"',"&iCurId)
  End If
  If objRs.eof Then
      iNext = 0
    iPrev = 0
  Else
    iNext = objRs("nextid")
    iPrev = objRs("previd")
  End If
  Call CloseRecordSet(objRs)

End Sub
%>




关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2019 Yup Studio, all rights reserved.  
103.5156