我做的是点击菜单时就打开已收缩的部份,再次点击又收缩,现在问题是有部份菜单可正常,有的没反应!
不知道这原因出在哪?请朋友指点,本人将不胜感激!以下是页面全部代码<!-- #include file="conn.asp" -->
<!-- #include file="../yhqx.asp" -->
<!--#include file="../Base64.asp"-->
<%
flbh = request.querystring("flbh")
set rs_2 = server.createobject("adodb.recordset")
if flbh = "" then
sql_2 ="select * from wd_ml order by wdbh"
else
sql_2 ="select * from wd_ml where flbh='"&flbh&"' order by wdbh"
end if
rs_2.open sql_2,conn,1,1
%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
td { font-size: 9pt; line-height: 15pt}
a:link {color: #0080FF; text-decoration: none }
a:visited {color: #0080FF; text-decoration: none }
a:hover {color: #ee9c00; text-decoration: underline }
</style>
</head>
<body>
<script language="JavaScript">
function show_div(menu)
{
var Imgname;
if (document.all.item(menu).style.display == "none")
{document.all.item(menu).style.display = "block";
}
else
{document.all.item(menu).style.display = "none";
}
}
</script>
<div style="width:100%;;border:0px solid #000000">
<%
do while not rs_2.eof
i=i+1
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border:none;border-bottom:1px solid #999999:" bgcolor="#ffffff" onMouseOver="this.bgColor='#ececec'" onMouseOut="this.bgColor='#ffffff'">
<tr>
<td width="80%" style="border:none;border-bottom:1px solid #999999"><A HREF="#" onClick="show_div('menu&<%=i%>')"><span class="l"><%=rs_2("wdbh")%> </b></span></A><a href="#" onClick="show_div('menu&<%=i%>')"><span class="l"><b><%=rs_2("wd_name")%></span></a></td>
<td width="20%" align="left" valign="bottom" style="border:none;border-bottom:1px solid #999999" type="text"word-break="break-all"><font size="-4"><A HREF="#" onClick="window.open('wd_yj_up.asp?flbh=<%=rs_2("flbh")%>&fl_name=<%=rs_2("fl_name")%>&wdbh=<%=rs_2("wdbh")%>&wd_name=<%=rs_2("wd_name")%>','_self');"> 扫描件</a>|<%if rs_2("wd_dzd")<>"" then response.write "<a href=""../data/wdxt/upload/" & Server.URLEncode(rs_2("wd_dzd")) & """>下载附件</a>" else response.write "<a href=""#"" onclick=""window.open('wd_fj_up.asp?wdbh=" & Server.URLEncode(rs_2("wdbh")) & "&wd_name=" & Server.URLEncode(rs_2("wd_name")) & "','_self');"">上传附件</a>" end if %></font></td>
</tr>
<tr><td colspan="2">
<%
wdbh = rs_2("wdbh")
set rs_3 = server.createobject("adodb.recordset")
sql_3 ="select * from wd_yj where wdbh='"&wdbh&"'"
rs_3.open sql_3,conn,1,1
%>
<table width="100%" ID="menu&<%=i%>" style="display:none" cellspacing="0">
<%
do while not rs_3.eof
img_name=rs_2("fl_name")&"/"&rs_3("img_name")
%>
<tr>
<td width="5%" bgcolor="#ffffff" ></td>
<td width="95%" style="border:none;border-bottom:1px solid #999999"><a href="wd_ck.asp?img_name=<%=enCode_base64(img_name)%>" target="_blank"><%=rs_3("img_name_1")%></a></td>
</tr>
<%
rs_3.movenext
loop
%>
</table>
</td></tr>
</table>
<%
rs_2.movenext
loop
%>
</div>
</body>
<%
conn.close
set conn = nothing
%>
</html>
不知道这原因出在哪?请朋友指点,本人将不胜感激!以下是页面全部代码<!-- #include file="conn.asp" -->
<!-- #include file="../yhqx.asp" -->
<!--#include file="../Base64.asp"-->
<%
flbh = request.querystring("flbh")
set rs_2 = server.createobject("adodb.recordset")
if flbh = "" then
sql_2 ="select * from wd_ml order by wdbh"
else
sql_2 ="select * from wd_ml where flbh='"&flbh&"' order by wdbh"
end if
rs_2.open sql_2,conn,1,1
%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
td { font-size: 9pt; line-height: 15pt}
a:link {color: #0080FF; text-decoration: none }
a:visited {color: #0080FF; text-decoration: none }
a:hover {color: #ee9c00; text-decoration: underline }
</style>
</head>
<body>
<script language="JavaScript">
function show_div(menu)
{
var Imgname;
if (document.all.item(menu).style.display == "none")
{document.all.item(menu).style.display = "block";
}
else
{document.all.item(menu).style.display = "none";
}
}
</script>
<div style="width:100%;;border:0px solid #000000">
<%
do while not rs_2.eof
i=i+1
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border:none;border-bottom:1px solid #999999:" bgcolor="#ffffff" onMouseOver="this.bgColor='#ececec'" onMouseOut="this.bgColor='#ffffff'">
<tr>
<td width="80%" style="border:none;border-bottom:1px solid #999999"><A HREF="#" onClick="show_div('menu&<%=i%>')"><span class="l"><%=rs_2("wdbh")%> </b></span></A><a href="#" onClick="show_div('menu&<%=i%>')"><span class="l"><b><%=rs_2("wd_name")%></span></a></td>
<td width="20%" align="left" valign="bottom" style="border:none;border-bottom:1px solid #999999" type="text"word-break="break-all"><font size="-4"><A HREF="#" onClick="window.open('wd_yj_up.asp?flbh=<%=rs_2("flbh")%>&fl_name=<%=rs_2("fl_name")%>&wdbh=<%=rs_2("wdbh")%>&wd_name=<%=rs_2("wd_name")%>','_self');"> 扫描件</a>|<%if rs_2("wd_dzd")<>"" then response.write "<a href=""../data/wdxt/upload/" & Server.URLEncode(rs_2("wd_dzd")) & """>下载附件</a>" else response.write "<a href=""#"" onclick=""window.open('wd_fj_up.asp?wdbh=" & Server.URLEncode(rs_2("wdbh")) & "&wd_name=" & Server.URLEncode(rs_2("wd_name")) & "','_self');"">上传附件</a>" end if %></font></td>
</tr>
<tr><td colspan="2">
<%
wdbh = rs_2("wdbh")
set rs_3 = server.createobject("adodb.recordset")
sql_3 ="select * from wd_yj where wdbh='"&wdbh&"'"
rs_3.open sql_3,conn,1,1
%>
<table width="100%" ID="menu&<%=i%>" style="display:none" cellspacing="0">
<%
do while not rs_3.eof
img_name=rs_2("fl_name")&"/"&rs_3("img_name")
%>
<tr>
<td width="5%" bgcolor="#ffffff" ></td>
<td width="95%" style="border:none;border-bottom:1px solid #999999"><a href="wd_ck.asp?img_name=<%=enCode_base64(img_name)%>" target="_blank"><%=rs_3("img_name_1")%></a></td>
</tr>
<%
rs_3.movenext
loop
%>
</table>
</td></tr>
</table>
<%
rs_2.movenext
loop
%>
</div>
</body>
<%
conn.close
set conn = nothing
%>
</html>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货