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%">
<%=CatalogMenu%>
</td>
<td align=left>

&nbsp;&nbsp;<a href="FeedbackManage.asp">信息列表</a> 
&nbsp;&nbsp;<a href="FeedbackManage.asp?replystate=0">未回复信息列表</a> 
&nbsp;&nbsp;<a href="FeedbackSearch.asp">搜索信息</a> 

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