menu.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 31 行

<%

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="downtypeManage.asp">类别管理</a> 
&nbsp;&nbsp;<a href="downInfoManage.asp">信息管理</a> 
&nbsp;&nbsp;<a href="DownInfoSearch.asp">搜索内容</a> 

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