如下代码如何改写

[bbzy]

我有如下代码,是在首页显示的,其功能是,当鼠标滑动,然后显示相应内容,由于每个js文件内容比较多,因此在首页显示时候,由于需要下载显示全部内容,严重影响首页的速度,
我现在想,在首页第一次显示时,只下载显示"县市局动态"的内容
<script language="javascript" src="js/xsjnews0.js"></script>
在首页显示完毕时候,再根据用户鼠标滑动,再下载显示相关内容,比如移动到城市A,则下载显示城市A的有关信息.
请问,代码该如何改写?
谢谢!

<style>#button {
width: 764px;
border-right: 0px solid #000;
padding: 0 0 0em 0;
margin-bottom: 0.2em; <!-- 控制行间距离 -->
font-size: 90%;
background-color: #FCFCFE;
color: #333;
}

#button ul {
list-style: none;
margin: 0;
padding: 0;
border: none;
}

#button li {
border-bottom: 1px solid #FCFCFE;
width:109px; <!-- 控制文字宽度 -->

margin: 0;
}

#button li a {
display: block;
padding: 2px 2px 2px 0.2em; <!-- 控制文字高度 -->
border-left: 0px solid #1958b7;
border-right: 0px solid #508fc4;
border-bottom: 1px solid #508fc4;

background-color: #E0E3F6;
color: #0099ff;
text-decoration: none;
width: 100%;
}

html>body #button li a {
width: auto;
}

#button li a:hover {
border-left: 1px solid #1c64d1;
border-right: 1px solid #5ba3e0;
border-bottom: 0px solid #508fc4;
background-color: #FFFFFF;
color: #0099ff;
font-weight: bold;
}

marquee
{
border:1px black solid;
display:none;
background-color:#7788FF;
}

</style>
<script>
function display(marqueeid)
{
if(marqueeid=="marquee1")
{
document.getElementById("marquee1").style.display='block';
document.getElementById("marquee2").style.display='none';
document.getElementById("marquee3").style.display='none';
document.getElementById("marquee4").style.display='none';
document.getElementById("marquee5").style.display='none';
document.getElementById("marquee6").style.display='none';
document.getElementById("marquee7").style.display='none';
}
if(marqueeid=="marquee2")
{
document.getElementById("marquee2").style.display='block';
document.getElementById("marquee1").style.display='none';
document.getElementById("marquee3").style.display='none';
document.getElementById("marquee4").style.display='none';
document.getElementById("marquee5").style.display='none';
document.getElementById("marquee6").style.display='none';
document.getElementById("marquee7").style.display='none';
}
if(marqueeid=="marquee3")
{
document.getElementById("marquee3").style.display='block';
document.getElementById("marquee1").style.display='none';
document.getElementById("marquee2").style.display='none';
document.getElementById("marquee4").style.display='none';
document.getElementById("marquee5").style.display='none';
document.getElementById("marquee6").style.display='none';
document.getElementById("marquee7").style.display='none';
}
if(marqueeid=="marquee4")
{
document.getElementById("marquee4").style.display='block';
document.getElementById("marquee1").style.display='none';
document.getElementById("marquee2").style.display='none';
document.getElementById("marquee3").style.display='none';
document.getElementById("marquee5").style.display='none';
document.getElementById("marquee6").style.display='none';
document.getElementById("marquee7").style.display='none';
}
if(marqueeid=="marquee5")
{
document.getElementById("marquee5").style.display='block';
document.getElementById("marquee1").style.display='none';
document.getElementById("marquee2").style.display='none';
document.getElementById("marquee3").style.display='none';
document.getElementById("marquee4").style.display='none';
document.getElementById("marquee6").style.display='none';
document.getElementById("marquee7").style.display='none';
}
if(marqueeid=="marquee6")
{
document.getElementById("marquee6").style.display='block';
document.getElementById("marquee1").style.display='none';
document.getElementById("marquee2").style.display='none';
document.getElementById("marquee3").style.display='none';
document.getElementById("marquee4").style.display='none';
document.getElementById("marquee5").style.display='none';
document.getElementById("marquee7").style.display='none';
}
if(marqueeid=="marquee7")
{
document.getElementById("marquee7").style.display='block';
document.getElementById("marquee1").style.display='none';
document.getElementById("marquee2").style.display='none';
document.getElementById("marquee3").style.display='none';
document.getElementById("marquee4").style.display='none';
document.getElementById("marquee5").style.display='none';
document.getElementById("marquee6").style.display='none';
}
}
</script>
<%
Dim oyear,omonth,nyear,nmonth,oday,nday,date1,xdate1,date2,xdate2
oyear=2004
omonth=1
nyear=year(now())
nmonth=month(now())
oday=1
nday=setDay(nyear,nmonth)

date1 = cstr(oyear) & "-" & cstr(omonth) & "-" & cstr(oday)
xdate1 =cdate(date1)
date2 = cstr(nYear) & "-" & cstr(nMonth) & "-" & cstr(nday)
'response.write "*"&date1&"*"&date2
xdate2 =cdate(date2)

function wordlen(strChinese)
dim lenTotal,strWord,i
lenTotal = 0
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then
lenTotal = lenTotal + 2
else
lenTotal = lenTotal + 1
end if
next
wordlen=lenTotal
end function
Dim flag,maxlen

%>
<!-- 把下列代码加入到body区内 -->
<div id="button">
<ul style="list-style:none;">
<li style="float:left" onmouseover="display('marquee1');"><a href=xsjlist.asp?BName=县市局动态&"&"odate="&xdate1&"&ndate="&xdate2&"&sort=2><b>县市局动态</b></a></li>
<li style="float:left" onmouseover="display('marquee2')" ><a href="xsjlist2.asp?BName=城市A&SName=城市A&odate=<%=xdate1%>&ndate=<%=xdate2%>"><b>城市A</b></a></li>
<li style="float:left" onmouseover="display('marquee3')" ><a href="xsjlist2.asp?BName=城市B&SName=城市B&odate=<%=xdate1%>&ndate=<%=xdate2%>"><b>城市B</b></a></li>
<li style="float:left" onmouseover="display('marquee4')" ><a href="xsjlist2.asp?BName=城市C&SName=城市C&odate=<%=xdate1%>&ndate=<%=xdate2%>"><b>城市C<b></a></li>
<li style="float:left" onmouseover="display('marquee5')"><a href="xsjlist2.asp?BName=城市D&SName=城市D&odate=<%=xdate1%>&ndate=<%=xdate2%>"><b>城市D<b></a></li>
<li style="float:left" onmouseover="display('marquee6')"><a href="xsjlist2.asp?BName=城市E&SName=城市E&odate=<%=xdate1%>&ndate=<%=xdate2%>"><b>城市E<b></a></li>
<li style="float:left" onmouseover="display('marquee7')"><a href="xsjlist2.asp?BName=城市F&SName=城市F&odate=<%=xdate1%>&ndate=<%=xdate2%>"><b>城市F<b></a></li>
</ul>
</div>

<div id="marquee1" style="text-align:center;text-valign:top;margin:0;">
<script language="javascript" src="js/xsjnews0.js"></script>
</div>
<div id="marquee2" style="text-align:center;display:none;">
<script language="javascript" src="js/xsjnews0.js"></script>
</div>
<div id="marquee3" style="text-align:center;display:none;">
<script language="javascript" src="js/xsjnews0.js"></script>
</div>
<div id="marquee4" style="text-align:center;display:none;">
<script language="javascript" src="js/xsjnews0.js"></script>
</div>
<div id="marquee5" style="text-align:center;display:none;">
<script language="javascript" src="js/xsjnews0.js"></script>
</div>
<div id="marquee6" style="text-align:center;display:none;">
<script language="javascript" src="js/xsjnews0.js"></script>
</div>
<div id="marquee7" style="text-align:center;display:none;">
<script language="javascript" src="js/xsjnews0.js"></script>
</div>

[gingerkang]

[Quote=引用 35 楼 haozi678 的回复:]
挺热闹的
[/Quote]
也凑个

[bbzy]

主程序default.asp：
....
<td width="764" align=center valign=top><DIV STYLE="width:764px;height:426px;BORDER-LEFT: #3399cc 1px double; BORDER-RIGHT: #3399cc 1px double;BORDER-BOTTOM: #3399cc 1px double;BORDER-TOP: #3399cc 1px double;overflow:hidden; text-overflow:ellipsis">
<!-- #include file = "xsjnews.asp"-->
</div>
</td>
...
调用程序xsjnews.asp：
<!--#include file="conn2.asp" -->
<!--#include file="function_title.asp" -->
<script type="text/javascript">
<!--
var xmlhttp;
try{
xmlhttp= new ActiveXObject('Msxml2.XMLHTTP');
}catch(e){
try{
xmlhttp= new ActiveXObject('Microsoft.XMLHTTP');
}catch(e){
try{
xmlhttp= new XMLHttpRequest();
}catch(e){}
}
}
function getName(lx)
{
xmlhttp.open("post","xmlhttp.asp?lx="+lx);
xmlhttp.onreadystatechange = function(){
if(xmlhttp.readyState==4){

document.getElementById("newziy").innerHTML =xmlhttp.responseText;
}
}
xmlhttp.setRequestHeader("If-Modified-Since","0");
xmlhttp.send(null);
}
function getName1(lx)
{
xmlhttp.open("post","xmlhttp.asp?lx="+lx);
xmlhttp.onreadystatechange = function(){
if(xmlhttp.readyState==4){

document.getElementById("newswu").innerHTML =xmlhttp.responseText;
}
}
xmlhttp.setRequestHeader("If-Modified-Since","0");
xmlhttp.send(null);
}
//-->
</script>
<table width="95%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td align="center" class="tdxinxi" onmouseover="javascript:getName(3)">广告信息</td>
<td align="center" class="tdxinxi" onmouseover="javascript:getName(2)">代理信息</td>
<td align="center" class="tdxinxi" onmouseover="javascript:getName(1)">招聘信息</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="222" valign="top" id="newziy"><table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td width="80%" height="30" colspan="2"><strong><font color="#970938" style="font-size:14px">   最新招聘</font></strong></td>
<td><a href="morelist.asp" target="_blank"><strong><font color="#970938" style="font-size:14px">更 多</font></strong></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%Dim sql
sql="Select top 14 * from news "
Set rs=server.CreateObject("ADODB.RecordSet")
rs.Open SQL,conn,1,1
if rs.bof then
%>
<li>没有内容!</li>
<%else
do while not rs.eof
%>
<tr>
<td width='50%' align="center"><table width='90%' class="tdziy">
<tr>
<td align="left"><div style="background:url(newimg/bottom.gif) repeat-x left bottom; line-height:20px; width:100%"><font color="#FF9933">·</font><a href="showm.asp?id=<%=rs("newsid")%>&jbid=<%=rs("newsid")%>&action=juben" target="_blank"><code><%=left(rs("title"),40)%></code></a></div></td>
</tr>
</table></td>
<%
rs.movenext
if rs.eof then exit do%>
<td width='50%' align="center"><table width='90%' class="tdziy">
<tr>
<td align="left"><div style="background:url(newimg/bottom.gif) repeat-x left bottom; line-height:20px; width:100%"><font color="#FF9933">·</font><a href="showm.asp?id=<%=rs("newsid")%>&jbid=<%=rs("newsid")%>&action=juben" target="_blank"><code><%=left(rs("title"),40)%></code></a></div></td>
</tr>
</table></td>
</tr>
<%
rs.movenext
if rs.eof then exit do
loop
end if
rs.close
set rs=nothing
%>
</table></td>
</tr>
</table></td>
</tr>
</table>

程序:xmlhttp.asp
<!--#include file="conn2.asp" -->
<!--#include file="function_title.asp" -->
<%Response.charset="GB2312"
lx=Request("lx")
if lx="" or not isnumeric(lx) then
response.Write("参数错误")
response.End()
end if
if lx=1 then
%>
<script language="javascript" src="js/xsjnews0.js"> </script>
<%elseif lx=2 then
newpw()
else
newggao()
end if
%>

<%
'*****************************************************
'函数名：newpw
'参 数：无
'作 用：列出代理
'*****************************************************
function newpw()
%>
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td width="80%" height="30" colspan="2"> <strong> <font color="#970938" style="font-size:14px">   最新代理 </font> </strong> </td>
<td> <a href="#" target="_blank"> <strong> <font color="#970938" style="font-size:14px">更 多 </font> </strong> </a> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">

<tr>
<td width='100%' align="center">建设中.... </td>
</tr>

</table>
<%end function
'*****************************************************
'函数名：newpw
'参 数：无
'作 用：列出资源
'*****************************************************
function newggao()
%>
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td width="80%" height="30" colspan="2"> <strong> <font color="#970938" style="font-size:14px">   最新资源 </font> </strong> </td>
<td> <a href="#" target="_blank"> <strong> <font color="#970938" style="font-size:14px">更 多 </font> </strong> </a> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">

<tr>
<td width='100%' align="center">建设中.... </td>
</tr>

</table>
<%end function%>

[bbzy]

请问chinmo:
我把newzp()用
<script language="javascript" src="js/xsjnews0.js"> </script>
替换,怎么不能执行js/xsjnews0.js?

[一把编程的菜刀]

[Quote=引用 37 楼 bbzy 的回复:]
请问chinmo:
我把newzp()用
<script language="javascript" src="js/xsjnews0.js"> </script>
替换,怎么不能执行js/xsjnews0.js?
[/Quote]

你这个是什么意思哦？？

[一把编程的菜刀]

newzp()
这个不是ASP的吗？你用JS替换？

[bbzy]

js/xsjnews0.js是后台生成的,实际上是显示一张表格和其中的内容,
我把它该写成js/xsjnews0.asp,让newzp()调用,也不能显示出来?

[一把编程的菜刀]

<script language="javascript" src="js/xsjnews0.js"> </script>
.....你这样的话，能读取到吗？
你觉得能读取吗？

你就直接一个简单的alert('a')看看他执行没

[一把编程的菜刀]

[Quote=引用 40 楼 bbzy 的回复:]
js/xsjnews0.js是后台生成的,实际上是显示一张表格和其中的内容,
我把它该写成js/xsjnews0.asp,让newzp()调用,也不能显示出来?
[/Quote]

....

这个文件是有AJAX执行的

不是你直接调用的，我晕！！

你连我给的代码都没看明白

[bbzy]

这样,怎么会不行呢?
function newpw()
%>
<script language="javascript" src="js/xsjnews0.js"> </script>
<%end function

[bbzy]

xsjnews0.js也就是张表格,只是由于select语句太多,内容也很多,只好后台生成,其语句跟您的语句一类的,

[bbzy]

或者这样,也不行?xsjnews0.asp里面全是table之类的语句
function newpw()
%>
<!-- #include file = "xsjnews0.asp"-->
<%end function

[一把编程的菜刀]

.......

有点恐怖

[bbzy]

加了100分,请多指教
我的xsjnews0.asp里面有6张图片,30条信息,是6条select生成

[bbzy]

如果临时取取数据的话，速度太慢

[一把编程的菜刀]

[Quote=引用 47 楼 bbzy 的回复:]
如果临时取取数据的话，速度太慢
[/Quote]
至今你都还没说你现在的程序逻辑，也就是你怎么设计的程序，如果引用的

[bbzy]

我已经找到办法了,谢谢大家

[bbzy]

我是用
response.Redirect "js/xsjnewslx.asp"
xsjnewslx.asp是个画表格语句,
请问,我怎么不能显示表格中的中文,

[bbzy]

为alert('a')时:

Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/ldgy/main/xmlhttp.asp, line 10, column 6
alert('a')

为alert("a")时
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'alert'
/ldgy/main/xmlhttp.asp, 第 10 行

[bbzy]

我另外做了实验:
如果采用 <!-- #include file = "xsjnews0.txt"-->
程序不能读.但"xsjnews0.txt"的内容复制进来,就可以,
这是怎么回事呢?

[一把编程的菜刀]

让你做这个实验你还不明白？