navicontent.inc

精品OA,已经本人测试成功,完全可用,使我花钱从别人那买的.商业源码仅供学习交流,请勿用于商业用途. 在建立数据库时

<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>