func_navigationbar.asp

企业办公简单管理系统,可以发布信息以及论坛

<table width="100%" align="center" border=1 cellspacing="0" >
  <tr> 
    <td height="25" width="40%"><a href="defaultA.asp"><%=site_title%></a> 
      → <FONT color=#000000><%
	  
	    select case navigation_flag
		case 0
			response.Write("消息提示")		
	  	case 1 
			response.Write("登陆")
		case 2 
			response.Write("用户注册")
		case 3 
			response.Write("用户信息")
		case 4 
			response.Write("企业名录")
		case 5 
			response.Write("搜索")
		case 6 
			response.Write("控制面板")
		case 7 
			response.Write("<a href=baseinfo.asp>控制面板</a>→个人资料维护")
		case 8 
			response.Write("<a href=baseinfo.asp>控制面板</a>→公司信息维护")
		case 9 
			response.Write("<a href=baseinfo.asp>控制面板</a>→发布信息维护")
		case 10 
			response.Write("<a href=baseinfo.asp>控制面板</a>→多图信息维护")
		case 11 
			response.Write("<a href=baseinfo.asp>控制面板</a>→更新发布日期")
		case 12 
			response.Write("<a href=baseinfo.asp>控制面板</a>→推荐新的用户")
		case 13 
			response.Write("访问统计")
		case 14 
			response.Write("访问统计→日访问量")
		case 15 
			response.Write("访问统计→月访问量")
		case 16 
			response.Write("访问统计→浏览器")
		case 17 
			response.Write("访问统计→操作系统")
		case 18 
			response.Write("访问统计→访问渠道")
		case 19 
			response.Write("访问统计→地区统计")
		case 20 
			response.Write("访问统计→访问纪录")
		case 21 
			response.Write("广告业务")
		case 22 
			response.Write("信息互动→留言簿")
		case 23 
			response.Write("关于...")
		case 24 
			response.Write("信息平台")
		case 25 
			response.Write("公司详细信息")
		case 26 
			response.Write("发布信息详情")
		case 27 
			response.Write("激活用户")
		case 28 
			response.Write("<a href=infofirst.asp>信息平台</a>→信息列表")
		case 29 
			response.Write("信息互动→最新交易会")
		case 30 
			response.Write("信息互动→最新招聘会")
		case 31 
			response.Write("信息互动→网站推广")
		case 32 
			response.Write("网站公告")
		case 33 
			response.Write("行业动态")
		case 34 
			response.Write("<a href=sharelist.asp>BBS</a>")
		case 35 
			response.Write("二手专卖")
		case 36
			response.Write("密码修改")	
		case 37
			response.Write("友情链接")	
		
		end select
	  
	  %></FONT></td><td>
	  	  <% 

	  if  session("userid")<>"" and session("stationid")<>"" then
	  		set rsabcd = Server.CreateObject("ADODB.Recordset")
		  	sql = "select count(*) as sumcount from cci_oa_flowlist where ((status=1 or status=2)  and nextstation=" & session("stationid") &") or (status=0 and startuser=" & session("userid")& ")"
			
			
			rsabcd.Open Sql,connObj,1,1
			if not rsabcd.eof then
				sumcount=rsabcd("sumcount")
			end if
			rsabcd.close
			if sumcount>0 then
				response.Write("<img src=skins/head.gif><b><a href=defaultA.asp><font color=#0000FF>您有" & sumcount & "条信息!</font></a></b>")
			else
				response.Write("&nbsp;&nbsp;")
			end if
		else
			response.Write("&nbsp;&nbsp;")
		end if
	  %>
	  
	  </td>
  </tr>
</table>