谁知道这是怎么算出来的 - ASP

随chu风liu

电梯直达

1^#

发表于 2010-1-14 01:27:32 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

谁知道里面的那个OrderId是怎么算出来的！！附件: 只有本站会员才能下载或查看附件，请您登录或注册

收藏0

使用道具举报

单身中

2^#

发表于 2010-1-14 01:27:36 | 只看该作者

干啥用的?

回复支持反对

使用道具举报

孤独的囚鸟

3^#

发表于 2010-1-14 01:27:40 | 只看该作者

无限级分类！！

回复支持反对

使用道具举报

半个灵魂

4^#

发表于 2010-1-14 01:27:44 | 只看该作者

看样子要看看程序是怎么加的

回复支持反对

使用道具举报

边走边看

5^#

发表于 2010-1-14 01:27:48 | 只看该作者

if Child>0 then
dim rsPrevOrderID
'得到与本栏目同级的最后一个栏目的OrderID
set rsPrevOrderID=ELOOK.Execute("select Max(OrderID) From [Elook_Class] where ParentID=" & ParentID)
PrevOrderID=rsPrevOrderID(0)
set trs=ELOOK.Execute("select ClassID From [Elook_Class] where ParentID=" & ParentID & " and OrderID=" & PrevOrderID)
PrevID=trs(0)

'得到同一父栏目但比本栏目级数大的子栏目的最大OrderID，如果比前一个值大，则改用这个值。
set rsPrevOrderID=ELOOK.Execute("select Max(OrderID) From [Elook_Class] where ParentPath like '" & ParentPath & ",%'")
if (not(rsPrevOrderID.bof and rsPrevOrderID.eof)) then
if not IsNull(rsPrevOrderID(0)) then
if rsPrevOrderID(0)>PrevOrderID then
PrevOrderID=rsPrevOrderID(0)
end if
end if
end if
else
PrevID=0
end if
end if

回复支持反对

使用道具举报

天地之一

6^#

发表于 2010-1-14 01:27:52 | 只看该作者

这个OrderID到底有什么作用，怎么得来的

回复支持反对

使用道具举报

可爱的人

7^#

发表于 2010-1-14 01:27:59 | 只看该作者

dim ClassID,ClassName,IsIndexShow,ShowOnTop,Setting,Readme,ClassMaster,ClassPicUrl,LinkUrl,PrevOrderID
dim sql,rs,trs
dim RootID,ParentDepth,ParentPath,ParentStr,ParentName,MaxClassID,MaxRootID,ForeignLink
dim PrevID,NextID,Child
ClassName=FilterGetString(ELOOK.CheckStr(trim(request("ClassName")))) 'Function.asp911行
ForeignLink=FilterGetString(ELOOK.CheckStr(trim(request("ForeignLink"))))
IsIndexShow=trim(request("IsIndexShow"))
'是否为首页调用
If IsIndexShow="" Then
IsIndexShow=1
Else
IsIndexShow=Cint(IsIndexShow)
End If
'该栏目介绍
Readme=FilterGetString(ELOOK.CheckStr(trim(request("Readme"))))
if ClassName="" then
FoundErr=True
ErrCodes=ErrCodes & "<br><li>栏目名称不能为空！</li>"
end if
'此栏目是否为外部链接,如果是,则不能在此栏目下添加
if ParentID="-9" then
FoundErr=True
ErrCodes=ErrCodes & "<br><li>不能在外部栏目里添加子栏目！</li>"
end if
if FoundErr=True then
exit sub
end if
'选取ClassID最大的,为了使要添加的栏目的CLASSID为下一个
set rs = ELOOK.Execute("select Max(ClassID) From [Elook_Class]")
MaxClassID=rs(0)
if isnull(MaxClassID) then
MaxClassID=0
end if
rs.close
'将要添加的ID加1,也就是取下一个ID
ClassID=MaxClassID+1
set rs=ELOOK.Execute("select max(rootid) From [Elook_Class]")
MaxRootID=rs(0)
if isnull(MaxRootID) then
MaxRootID=0
end if
rs.close
RootID=MaxRootID+1

那个OrderID和ROOTID都不知道有什么用，怎么算出来的，高手指点一下！！

回复支持反对

使用道具举报

随chu风liu

8^#

楼主| 发表于 2010-1-14 01:28:03 | 只看该作者

那个OrderId和ROOTID不知道主要做什么用!!和怎么得出来/. 附件: 只有本站会员才能下载或查看附件，请您登录或注册

回复支持反对

使用道具举报

最爱水晶

9^#

发表于 2010-1-14 01:28:09 | 只看该作者

排序用的吧

回复支持反对

使用道具举报

孤独与夜缠绵

10^#

发表于 2010-1-14 01:28:13 | 只看该作者

if ParentID>0 then
sql="select * From [Elook_Class] where ClassID=" & ParentID & ""
rs.open sql,conn,1,1
if rs.bof and rs.eof then
FoundErr=True
ErrCodes=ErrCodes & "<br><li>所属栏目已经被删除！</li>"
end if
if FoundErr=True then
rs.close
set rs=nothing
exit sub
else
RootID=rs("RootID")
ParentName=rs("ClassName")
ParentDepth=rs("Depth")
ParentPath=rs("ParentPath")
Child=rs("Child")
ParentPath=ParentPath & "," & ParentID '得到此栏目的父级栏目路径
PrevOrderID=rs("OrderID")
if Child>0 then
dim rsPrevOrderID
'得到与本栏目同级的最后一个栏目的OrderID
set rsPrevOrderID=ELOOK.Execute("select Max(OrderID) From [Elook_Class] where ParentID=" & ParentID)
PrevOrderID=rsPrevOrderID(0)
set trs=ELOOK.Execute("select ClassID From [Elook_Class] where ParentID=" & ParentID & " and OrderID=" & PrevOrderID)
PrevID=trs(0)

'得到同一父栏目但比本栏目级数大的子栏目的最大OrderID，如果比前一个值大，则改用这个值。
set rsPrevOrderID=ELOOK.Execute("select Max(OrderID) From [Elook_Class] where ParentPath like '" & ParentPath & ",%'")
if (not(rsPrevOrderID.bof and rsPrevOrderID.eof)) then
if not IsNull(rsPrevOrderID(0)) then
if rsPrevOrderID(0)>PrevOrderID then
PrevOrderID=rsPrevOrderID(0)
end if
end if
end if
else
PrevID=0
end if
end if
rs.close

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册