UC知道ASP高手进，解释一段sub过程代码！
来源：百度知道 编辑：UC知道 时间：2024/06/14 04:11:31
<%
sub Admin_ShowRootClass()
dim sqlRoot,rsRoot
sqlRoot="select ClassID,ClassName,RootID,Child from FaqClass where ParentID=0 and LinkUrl='' order by RootID"
Set rsRoot=nt2003.execute(sqlRoot)
if rsRoot.bof and rsRoot.eof then
response.Write("")
else
response.write "| "
do while not rsRoot.eof
if rsRoot(2)=RootID then
response.Write("<a href='" & FileName & "?ClassID=" & rsRoot(0) & "'><font color=red>" & rsRoot(1) & "</font></a> | ")
tID=rsRoot(0)
tChild=rsRoot(3)
else
response.Write("<a href='" & FileName & "?ClassID=" & rsRoot(0) & "'>" & rsRoot(1) & "</a> | ")
end if
rsRoot.movenext
loop
end if
rsRoot.close
set rsRoot=nothing
end sub
%>
这段程序
sub Admin_ShowRootClass()
dim sqlRoot,rsRoot
sqlRoot="select ClassID,ClassName,RootID,Child from FaqClass where ParentID=0 and LinkUrl='' order by RootID"
Set rsRoot=nt2003.execute(sqlRoot)
if rsRoot.bof and rsRoot.eof then
response.Write("")
else
response.write "| "
do while not rsRoot.eof
if rsRoot(2)=RootID then
response.Write("<a href='" & FileName & "?ClassID=" & rsRoot(0) & "'><font color=red>" & rsRoot(1) & "</font></a> | ")
tID=rsRoot(0)
tChild=rsRoot(3)
else
response.Write("<a href='" & FileName & "?ClassID=" & rsRoot(0) & "'>" & rsRoot(1) & "</a> | ")
end if
rsRoot.movenext
loop
end if
rsRoot.close
set rsRoot=nothing
end sub
%>
这段程序
rsRoot(0)是指获取的数据表内容的第1列
rsRoot(3)是指获取的数据表内容的第4列
rsRoot(0) 等于 rsRoot("ClassID")
rsRoot(3) 等于 rsRoot("Child")
替换试试看
当然把里面的 0，3的这些数字换成数据库里的字段名称也是一样的
SQL语句获取的内容是和一张表格一样
rsRoot
是把数据库里面的记录打开成一个数组了
rsRoot（0）就是这个数组中第一个元素，1就是第二个，依此类推。
对应这句：sqlRoot="select ClassID,ClassName,RootID,Child from FaqClass where ParentID=0 and LinkUrl='' order by RootID"
中的select后面的参数：ClassID,ClassName,RootID,Child
分别是：rsRoot(0),rsRoot(1),rsRoot(2),rsRoot(3)
第1个字段，序号是从0开始的！
这里应该是ClassID