智睿软件_技术交流论坛智睿系统交流智睿系统交流 → [分享]智睿系统栏目类别单独调用显示说明


  共有19584人关注过本帖树形打印

主题:[分享]智睿系统栏目类别单独调用显示说明

帅哥哟,离线,有人找我吗?
zhirui
  1楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:520 积分:8740 威望:0 精华:5 注册:2009-07-07
[分享]智睿系统栏目类别单独调用显示说明  发帖心情 Post By:2011-02-16 16:09:50

代码:

Function PocMenu(DateDase,List,topID)
  set rsm=conn.execute("select * from "&DateDase&" Where TopID="&topID&" order by num asc")
  I=0
  do while not rsm.eof
  I=I+1
 Response.Write("<div id='parent"&I&"'>")
 Response.Write("<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'><tr height='20'>")
 Response.Write("<td width='10%'><a href='#' ><img  src='images/na.gif' border='0''></a></td>")
 Response.Write("<td width='90%'><a  href='"&SitePath&""&list&"_list.asp?ClassId="&rsm("ID")&"&Topid="&rsm("TopID")&"' ></b>"&rsm("ClassName")&"</b></a></td></tr></table></div>")
    If Mydb("Select Count([ID]) From "&DateDase&" Where TopID="&rsm("ID")&"",1)(0)>0 then
      Sqlpp ="select * from  "&DateDase&"  Where TopID="&rsm("ID")&" order by num"  
      Set rsu=server.CreateObject("adodb.recordset")  
      rsu.open sqlpp,conn,1,1
 Response.Write("<div id='child"&I&"' style='display:none;'>")
   Do while not rsu.Eof
    Response.Write("<DIV STYLE='height: 24px;padding-top: 2px;'> <Img src='images/nb.gif'> <a href='"&SitePath&""&list&"_list.asp?ClassId="&rsu("ID")&"&Topid="&rsu("TopID")&"'>"&rsu("ClassName")&"</a></div>")
   rsu.Movenext  
        Loop
 Response.Write("</div>")
   rsu.close
   set rsu=nothing
      else
 Response.Write("<div id='child"&I&"' style='display:none;'></div>")
  end if
 rsm.movenext
 loop
 rsm.close
 set rsm=nothing
End function

调用:

<%=PocMenu("zhi_rui_e_io_Class","info",TopID)%> ' 指数据表

 

导航:

info_list.asp?ClassId=25&Topid=25 '25对应的栏目ID号


中小学校网站管理系统,中小学校的宣传伙伴 支持(0中立(0反对(0回到顶部