childp.asp

新闻发布系统

 <%
  Function getChild(classid)
    Set rscd=Server.CreateObject("adodb.recordset")
    sql="select * from newsclass where id="&classid
    rscd.open sql,conn,1,1
    getChild="'"&rscd("classcn")&"'"
    sql="select classcn,parentstr from newsclass where Depth>="&rscd("Depth")&" and RootID="&rscd("RootID")
    rscd.close
    rscd.open sql,conn,1,1
    do while not rscd.eof
       temp1=rscd("parentstr")
       For Each temp In split(temp1,",")
          if cint(temp)=classid then
             getchild=getchild+",'"+rscd("classcn")&"'"
             exit for
          end if
       Next
    rscd.movenext
    loop
  End Function
  
Function GetDaohang(GDClassID)
    set rsgd=Server.CreateObject("ADODB.RECORDSET")
    sql="Select * from NewsClass where id="&GDClassID
    rsgd.open sql,conn,1,1
    Gparentstr=rsgd("parentstr")
    GClassCN=rsgd("ClassCN")
    sql="select * from newsclass where id in ("&Gparentstr&") order by RootID asc,orders asc"
    rsgd.close
    GetDaohang="<a href=""http://"&sowinpath&""">首页</a>&nbsp;>>&nbsp;<a href=http://"&sowinpath&"Photo>图片首页</a>&nbsp;>>&nbsp;"
    rsgd.open sql,conn,1,1
    do while not rsgd.eof
       GetDaohang=GetDaohang+"<a href=""http://"&sowinpath&"Photo/"&rsgd("ClassEN")&"/"">"&rsgd("ClassCN")&"</a>&nbsp;>>&nbsp;"
       rsgd.movenext
    loop
    GetDaohang=GetDaohang+"<font color=red>"&GClassCN&"</font>"
    rsgd.close
    set rsgd=nothing
End Function
  %>