topnav.asp

方舟网免费空间申请程序(自助建站系统) v3.0 1 界面美观 2 后台管理功能强大：A 可以设置多种参数

<% dim memberNav
	memberNav=request.cookies("CooSel")("username")
	if memberNav="" then
%>
<%else%>
	<table height=25 bordercolorlight="#f3f3f3" bordercolordark="#f3f3f3"  width='100%' cellspacing=0 cellpadding=3 border=1  bgcolor='f3f3f3' align=center><tr><td background="pic/back.gif">
	<table height=25 bordercolorlight="#f3f3f3" bordercolordark="#f3f3f3"  width='100%' cellspacing=0 cellpadding=3 border=1  bgcolor='f3f3f3' align=center background="pic/back.gif">
	<tr>
	<td height=8 bgcolor='#f3f3f3' colspan=3 ><img width=0 height=1></td>
	</tr>
	<tr bordercolorlight="#f3f3f3" bordercolordark="#ffffff" background="pic/back.gif">
	<td width=35>&nbsp;</td>
	<td valign=middle ><nobr><font color=#75a6f2>●</font><font color=#75a6f2>  <b>                  
	<%=memberNav%></b>：</font><a href="login.asp?action=exit" target='_top'><font color="#75A6F2">退出登陆</font></a><font color=#75a6f2><a name="toper"></a>
	<%if SetPower(2,2)=true then%>  | <a href="reg_info.asp"  target='_self'></a></font> <a href="reg_info.asp"  target='_self'><font color="#75A6F2">帐户档案</font></a><font color="#75A6F2"><%end if%>                  
	<%if SetPower(2,4)=true then%>  </font><font color=#75a6f2>| <a href="Files_Brower.asp?path=<%=GetPath%>"  target='_self'></a></font> <a href="Files_Brower.asp?path=<%=GetPath%>"  target='_self'><font color="#75A6F2">文件管理</font></a><font color="#75A6F2"><%end if%>                    
	<%if SetPower(2,3)=true then%>   </font><font color="#75A6F2">|</font><font color=#000000>              
 <a href="This_upfile_adv.asp?path=<%=GetPath%>" target='_self'></a></font> <a href="This_upfile_adv.asp?path=<%=GetPath%>" target='_self'><font color="#75A6F2">文件上传</font></a><font color="#75A6F2"><%end if%>                    
	<%if SetPower(2,5)=true then%>   </font><font color="#75A6F2">| </font> <a href="EditBrower.asp" target='_self'></a> <a href="EditBrower.asp" target='_self'><font color="#75A6F2">文件编辑</font></a><font color="#75A6F2"><%end if%>                  
	<%if SetPower(2,7)=true then%>  | </font> <a href=ADO_recordset.asp target='_self'></a> <a href=ADO_recordset.asp target='_self'><font color="#75A6F2">数据库</font></a><font color="#75A6F2"><%end if%>                  
	<%if SetPower(2,6)=true and isMaster then%> </font><font color=#000000>              
      </font> <font color="#75A6F2">| </font><font color=#000000>                   
 <a href=Master.asp target='_self'></a></font> <a href=Master.asp target='_self'><font color="#75A6F2">系统管理</font></a><font color=#000000><%end if%></font></nobr></td>                
	   <td valign=middle align=left width=170><nobr>
	&nbsp;<a href="help.asp?id=<%=helpID%>" target='_blank'><img src="pic/wenhao.gif" border=0 alt="帮助信息" width="16" height="16"></a>&nbsp;     
	 <%
	 if isArray(pathArr) then
	 response.write "<a href=""login.asp?action=true&infos=1"" title=""空间帐号相关信息""><font color=#775500>空间信息</font></a>"%>
	 <select name=chgpaths      
	 onchange="if(this.options[this.selectedIndex].value!=''){document.navform.action=this.options[this.selectedIndex].value;document.navform.submit();}"
	 >
	 <%		response.write "<option>改变管理路径</option>"
		for i=0 to ubound(pathArr)
			response.write "<option value=""?path="&pathArr(i)&""" "
			if UserPath=pathArr(i) then response.write "selected"
				response.write ">"
				response.write pathArr(i)
			response.write "</option>"
		next
	 %>
	 </select><%end if%>&nbsp;</nobr></td></tr></table>
	 </tr><FORM METHOD=POST name=navform ACTION="" style="margin:0px;"></FORM>
	 </table>
 <%end if%>