navicontent.inc

来自「精品OA,已经本人测试成功,完全可用,使我花钱从别人那买的.商业源码仅供学习交流」· INC 代码 · 共 20 行

<script language="vbscript" runat=server>
Sub Navigate(treeid)
	Dim classname
	Sqlstr="select channelname from sq_channel_admin where treeid=" & treeid
    set rs=conn.execute(Sqlstr)
    If not rs.EOF Then
		classname=rs("channelname")
	Else
		Response.write "应用程序出错！"
		Response.End
	End If
    rs.close
    set rs=nothing
    
    Response.Write "<td height='21' bgcolor='#dfdfdf'>&nbsp;<img src='../images/folder.gif' width='14' height='11'>" 
    Response.Write "<font color='#000099'> " & classname & " <img src='../images/arrow.gif' width='8' height='14' align='absmiddle'>" 
    Response.Write "[ 栏目管理 ]</font></td>"
End Sub
</script>