页面跳转或刷新后,导航栏的下拉菜单会自动缩回去.请问要怎么做才能让页面跳转或刷新时,下拉菜单保持原来的样子.
<!--#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"> <a href="#nourl" onClick="diva_show('<%=rs("TypeCode")%>');"><img name="i1" SRC="<%=HomeDir%>images/+.gif" border="0"> <%=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
%>
<img src="<%=HomeDir%>images/-.gif" width="10" height="10" /> <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------------->
