| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 872 人关注过本帖
标题:[求助]页面跳转导航栏不刷新
只看楼主 加入收藏
阿智
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-6-29
收藏
 问题点数:0 回复次数:1 
[求助]页面跳转导航栏不刷新

页面跳转或刷新后,导航栏的下拉菜单会自动缩回去.请问要怎么做才能让页面跳转或刷新时,下拉菜单保持原来的样子.
<!--#include file="connect.asp"-->
<!--#include file="Security.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Opt_Page_Title%></title>
<link href="<%=HomeDir%>css/style.css" rel="stylesheet" type="text/css">
<script language="javascript">
function diva_show(div_id)
{
if (document.all.item("a"+div_id).style.display == "block")
{
document.all.item("a"+div_id).style.display = "none";
document.all.item("i"+div_id).src="images/+.gif";
}
else
{
document.all.item("a"+div_id).style.display = "block";
document.all.item("i"+div_id).src="images/-.gif";
}
}
</script>

<Script Language="JavaScript" Src="<%=HomeDir%>Js/Js_checkform.js">
</script>
<script Language="JavaScript">
<!--
function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true}
}
}
-->
</script>
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
-->
</style></head>
<body background="<%=HomeDir%>images/bg.gif" leftmargin="10" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('<%=HomeDir%>images/m_5_b.gif','<%=HomeDir%>images/m_7_b.gif')">
<table width="760" height="63" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="60" valign="top" bgcolor="#FFFFFF"><div align="center"><img src="<%=HomeDir%>images/logo.png" width="180" height="43"></div></td>
<td width="3" bgcolor="#FFFFFF"><div align="center"><img src="<%=HomeDir%>images/top_center1.png" width="3" height="59"></div></td>
<td width="180" bgcolor="#FFFFFF">
<div align="center">
<table width="100%" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="4" bgcolor="#1F85D0"></td>
</tr>
<tr>
<td height="56">
<table width="100%" border="0" cellspacing="2" cellpadding="3">
<tr>
<td height="34" valign="bottom" class="tit">厦门天桥数据技术有限公司</td>
</tr>
</table></td>
</tr>
</table>
</div>
</td>
<td width="387" bgcolor="#FFFFFF"><table width="370" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="356" height="22"> </td>
</tr>
<tr>
<td height="40"><div align="center">
<!--#include file="Include_Login.asp"-->
</div></td>
</tr>
</table></td>
</tr>
</table>

<table width="760" height="4" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="baseline">
<div align="right"></td>
</tr>
</table>
<table width="760" height="34" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" width="136" bgcolor="#4E606E"></td>
<td width="624" rowspan="2" bgcolor="#494952"><div align="center"><a href="<%=HomeDir%>default.asp" class="menu">首页</a> <font color="#FFFFFF">|</font> <a href="<%=HomeDir%>domain.asp" class="menu">域名注册</a> <font color="#FFFFFF">|</font> <a href="<%=HomeDir%>hosting.asp" class="menu">虚拟主机</a> <font color="#FFFFFF">|</font> <a href="<%=HomeDir%>groupemail.asp" class="menu">企业邮局</a> <font color="#FFFFFF">|</font> <a href="<%=HomeDir%>soultions.asp" class="menu">解决方案</a> <font color="#FFFFFF">|</font> <a href="<%=HomeDir%>design.asp" class="menu">网站制作</a> <font color="#FFFFFF">|</font> <a href="<%=HomeDir%>hostserver.asp" class="menu">租用托管</a> <font color="#FFFFFF">|</font> <a href="<%=HomeDir%>#" class="menu">网络推广</a></div></td>
</tr>
<tr>
<td width="136" height="33" bgcolor="#FFFFFF"><div align="center"><img src="<%=HomeDir%>images/user-manager.png"></div></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="760" height="528" bgcolor="#FFFFFF">
<tr>
<td width="780" height="1" colspan="3">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#7B7D7B" height="1"><img border="0" src="<%=HomeDir%>images/blank_2.gif"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100" height="545" background="<%=HomeDir%>images/bg_l.gif" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="122">
<tr>
<td width="100%" height="18" colspan="0">
<table width="130" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td><img src="<%=HomeDir%>images/m_no1.gif" width="134"></td>
</tr>

<%
strSQL ="select d.TypeCode,d.TypePic,d.TypePic2,d.TypeName from T_DNS_UserRole a,T_DNS_RoleModule b,T_DNS_ModuleInfo c,T_DNS_ModuleType d where a.UserID=" & session("UserID") & " and a.RoleCode=b.RoleCode and b.ModuleCode = c.ModuleCode and c.TypeCode=d.TypeCode order by d.DispSeq"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
i=0
strTypeCode="0123456789012345"
Do While Not Rs.Eof
if (rs("TypeCode")<>strTypeCode) then
%>
<table width="124" align="center" bgcolor="#FFFFFF">
<tr>
<td height="24" background="<%=HomeDir%>images/leftmiddle.gif">&nbsp; <a href="#nourl" onClick="diva_show('<%=rs("TypeCode")%>');"><img name="i1" SRC="<%=HomeDir%>images/+.gif" border="0">&nbsp;<%=rs("TypeName")%></a></td>
</tr>

<tr>
<td >
<div id="a<%=rs("TypeCode")%>" style="display:none">
<%
strModuleCode="123456789012345"
strSQL ="select c.ModuleName,c.ModulePath,c.ModuleCode from T_DNS_UserRole a,T_DNS_RoleModule b,T_DNS_ModuleInfo c,T_DNS_ModuleType d where a.UserID=" & session("UserID") & " and a.RoleCode=b.RoleCode and b.ModuleCode = c.ModuleCode and c.TypeCode=d.TypeCode and d.TypeCode='" & rs("TypeCode") &"' order by c.DispSeq"
Set rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn,1,1
Do While Not Rs1.Eof
if rs1("ModuleCode")<>strModuleCode then
%>
&nbsp;&nbsp;<img src="<%=HomeDir%>images/-.gif" width="10" height="10" />&nbsp;<a href="<%=HomeDir%><%=rs1("ModulePath")%>" class="mf" target="main"><%=rs1("ModuleName")%></a><br />

<%
end if
strModuleCode=rs1("ModuleCode")
Rs1.MoveNext
Loop
Rs1.close
%>

<tr>
<%
i=i+1
end if
strTypeCode=rs("TypeCode")
Rs.MoveNext
Loop
Rs.close
Set Rs=Nothing
%>

</table>

<%
strSQL ="select d.TypeCode,d.TypePic,d.TypePic2 from T_DNS_UserRole a,T_DNS_RoleModule b,T_DNS_ModuleInfo c,T_DNS_ModuleType d where a.UserID=" & session("UserID") & " and a.RoleCode=b.RoleCode and b.ModuleCode = c.ModuleCode and c.TypeCode=d.TypeCode order by d.dispseq"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
i=0
j=150
strTypeCode="0123456789012345"
Do While Not Rs.Eof
if (rs("TypeCode")<>strTypeCode) then
%>

<%
j=j+25
i=i+1
end if
strTypeCode=rs("TypeCode")
Rs.MoveNext
Loop
Rs.close
Set Rs=Nothing
Set Rs1=Nothing
%>


</table>
<td width="612" height="545" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28"> <font face="webdings" style="font-size:9pt" color="#FF9900">4</font>
<a href="<%=HomeDir%>" class="a2">主页</a> -> <a href="<%=HomeDir%>manage.asp" class="a2">管理中心</a>
<%
strSQL ="select a.ModuleName,a.ModulePath,b.TypeName from T_DNS_ModuleInfo a,T_DNS_ModuleType b where a.TypeCode=b.TypeCode and a.ModuleCode='" & ModuleCode & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
if not(rs.bof and rs.eof) then
%>
-> <%=Rs("TypeName")%>
<%
end if
Rs.Close
Set Rs=Nothing
%>
</td>
</tr>
</table>
<%'--------------------------%>

<%'--------------------------%>
</td>
</tr>
</table>
</td>
</tr>
</table><table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td>
<!-----------END------------->

搜索更多相关主题的帖子: 页面 css 导航 div 
2006-08-03 09:03
firever
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2006-7-20
收藏
得分:0 
上面的写了=白写。还不如贴图出来清楚。

Firever Zone
2006-08-03 15:06
快速回复:[求助]页面跳转导航栏不刷新
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.053739 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved