navichannel.inc

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

<script language="vbscript" runat=server>
Sub Navigate()
	Dim TopicName
	Sqlstr="select TopicName from PUB_HelpTopic where TopicID=1"
    set rs=conn.execute(Sqlstr)
    If not rs.EOF Then
		TopicName=rs("TopicName")
	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'> " & TopicName & " <img src='../images/arrow.gif' width='8' height='14' align='absmiddle'>" 
    Response.Write "[ 目录管理 ]</font></td>"
End Sub
</script>