2010: 华为展望下一个十年通信行业趋势

<%


'数据库连接


setconn=Server.CreateObject("ADODB.Connection")


conn.open"driver={SQLServer};server=chaiwei;DATABASE=chaiwei;UID=sa;PWD="


'打开所有父层数据


setrs=Server.CreateObject("ADODB.Recordset")


rs.Open"select*frompowerswherebelongidisnullorderbypowerid",conn,1,3


'层次数表态变量赋初值


format_i=1


'列表主程序段


dowhilenotrs.eof


'打印父层数据信息


response.write"<ahref='powerlist.asp?SelfID="&rs("powerid")&"&BelongID="&rs("belongid")&"'>"&rs("powername")&"</a>"


response.write"<br>"


'子程序调用，子层数据处理


CallListSubPower(rs("powerid"))


rs.movenext


loop


'关闭父层数据集


rs.close


setrs=nothing


'子层数据处理子程序


SubListSubPower(id)


'打开隶属于上层powerid的所有子层数据信息


setrs_sub=Server.CreateObject("ADODB.Recordset")


rs_sub.Open"select*frompowerswherebelongid="&id&"orderbypowerid",conn,1,3


'列子层数据


dowhilenotrs_sub.eof


'层次数表态变量递进累加


format_i=format_i+1


'循环缩进格式控制，因为顶层与二层不需要缩进，所以从第三层开始引用此程序段


fori=format_ito3step-1


response.write"|"


response.write""


next


'打印子层数据信息


response.write"|----"


response.write"<ahref='powerlist.asp?SelfID="&rs_sub("powerid")&"&BelongID="&rs_sub("belongid")&"'>"&rs_sub("powername")&"</a>"


response.write"<br>"


'递归调用子程序本身，对子层数据进行逐渐处理


ListSubPower(rs_sub("powerid"))


rs_sub.movenext


loop


'层次数表态变量递退累减


format_i=format_i-1


'关闭子层数据集


rs_sub.close


setrs_sub=nothing


EndSub


%>