menu.asp

ASP编写的一个公司网站的源程序

<%

Dim rsmenu,StrSQLmenu,CatalogMenu
	Set rsmenu = Server.CreateObject("Adodb.Recordset")
	StrSQLmenu = "Select Catalog_Name From CatalogType where Catalog_ID="&Session("CatID")
	rsmenu.Open StrSQLmenu,conn,1,3 
	IF not rsmenu.EOF then
		CatalogMenu = rsmenu("Catalog_Name")
	Else
		CatalogMenu = "信息发布"
	End IF	
	rsmenu.Close 
	set rsmenu = nothing
%>
<table width=98% ID="Table1">
<tr>
<td class=menu width="15%" nowrap>
<%=CatalogMenu%>
</td>
<td align=left>

&nbsp;&nbsp;<a href="NewsManage.asp">内容列表</a> 
&nbsp;&nbsp;<a href="NewsSearch.asp">搜索内容</a> 

</td>
</tr>
<tr><td colspan=2>
<hr class=title size=2>
</td></tr>
</table>