怎么把 论坛新贴 移到左边,把 上网快捷导航 移到右上方?


代码如下:

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/indexnew.asp"-->
<%
sql="select articlecount,softcount,coolsitescount,djcount,newscount,piccount,jscount from allcount"
set rs=conn.execute(sql)
articlecount=rs("articlecount")
softcount=rs("softcount")
coolsitescount=rs("coolsitescount")
djcount=rs("djcount")
newscount=rs("newscount")
piccount=rs("piccount")
jscount=rs("jscount")
call head()
call menu()
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center>" & vbCrLf
Response.Write "<TBODY><TR><TD class=l></TD>" & vbCrLf
Response.Write "<TD class=m style=""PADDING-RIGHT: 20px; PADDING-LEFT: 20px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px""><marquee class=gg behavior='loop' scrollDelay='100' scrollAmount='5'onmouseover='javascript:scrollAmount=1' onmouseout='javascript:scrollAmount=5' width=""100%"">"
call index_diary()
Response.Write "</MARQUEE></TD>" & vbCrLf

Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR vAlign=top align=left><TD width=200>" & vbCrLf
Response.Write "<DIV class=member>" & vbCrLf
Response.Write "<DIV class=lframe><SCRIPT type=text/javascript>lanyutabletop(""信 息 统 计"",""ml"");</SCRIPT>" & vbCrLf
Response.Write "<UL class=nl>" & vbCrLf
Response.Write "<LI>校内新闻：<b>"&newscount&"</b> 篇</LI>" & vbCrLf
Response.Write "<LI>视听平台：<b>"&djcount&"</b> 首</LI>" & vbCrLf
Response.Write "<LI>软件下载：<b>"&softcount&"</b> 个</LI>" & vbCrLf
Response.Write "<LI>校园生活：<b>"&articlecount&"</b> 篇</LI>" & vbCrLf
Response.Write "<LI>党政法规：<b>"&jscount&"</b></LI> 篇" & vbCrLf
Response.Write "<LI>本校影像：<b>"&piccount&"</b></LI> 张" & vbCrLf
Response.Write "<LI>推荐网站：<b>"&coolsitescount&"</b> 个</LI>" & vbCrLf
Response.Write "</UL>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutablebottom(""mr"");</SCRIPT>" & vbCrLf
Response.Write "</TD><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""推 荐 网 站"");</SCRIPT>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%""><TBODY><TR><TD class=ml></TD><TD class=mm>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=""1"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"" height='165'><TBODY><TR>" & vbCrLf
Response.Write "<TD vAlign=top width=200>"
call index_coolsites()
Response.Write "</TD>" & vbCrLf
Response.Write "<TD vAlign=top width=* style=""padding-top:5px;"">" & vbCrLf
Response.Write "<UL class=nl><marquee height=150 scrollAmount=1 direction=up>"
call index_news()
Response.Write "</UL></MARQUEE></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=mr></TD></TR></TBODY></TABLE></DIV>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""我 校 影 像"");</SCRIPT>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"">" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD class=ml></TD><TD class=mm>"
call index_pic()
Response.Write "</TD><TD class=mr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%""><TBODY><TR><TD class=bl></TD><TD class=bm>&nbsp;</TD><TD class=br></TD></TR></TBODY></TABLE></DIV>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR vAlign=top align=left><TD width=200>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutabletop(""网 站 调 查"",""ml"");</SCRIPT>"
call index_vote()
Response.Write "<SCRIPT type=text/javascript>lanyutablebottom(""mr"");</SCRIPT>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutabletop(""论坛登陆"",""ml"");</SCRIPT>"
Response.Write "<iframe width='185' height='160' scrolling='no' border='0' frameborder='0' src='bbs.asp' ></iframe><SCRIPT type=text/javascript>lanyutablebottom(""mr"");</SCRIPT>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutabletop(""友 情 连 接"",""ml"");</SCRIPT>" & vbCrLf
Response.Write "<DIV id=oRollV style=""MARGIN: 0px; OVERFLOW: hidden; HEIGHT: 210px"">"
Response.Write "<DIV id=oRollV1>" & vbCrLf
call index_flink()
Response.Write "</DIV><DIV id=oRollV2></DIV></DIV>" & vbCrLf
Response.Write "<DIV align=center style=""PADDING-TOP: 5px;"">"
call index_flinkwz()
Response.Write "</div><div align=center style=""PADDING-TOP: 7px;""><a href='link.asp'>申请链接</a>&nbsp;<a href='link.asp'>更多链接...</a></div><SCRIPT type=text/javascript>lanyutablebottom(""mr"");</SCRIPT>" & vbCrLf
Response.Write "</TD><TD>" & vbCrLf
Response.Write "<TABLE id=dlAll style=""WIDTH: 100%; BORDER-COLLAPSE: collapse"" cellSpacing=0 cellPadding=0 border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR height=""220"" valign=""top"">" & vbCrLf
Response.Write "<TD valign=top style=""WIDTH: 50%"">" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"">" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR><TD class=tl></TD><TD class=tm>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR><TD>" & vbCrLf
Response.Write "<SPAN class=tt>最新党政、法规文件</SPAN></TD>" & vbCrLf
Response.Write "<TD align=right><A href=""js.asp""><IMG alt=more src=""img/mory.gif"" border=0></A>&nbsp; </TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=tr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%""><TBODY><TR><TD class=ml></TD><TD class=mm>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0><TBODY>"
call index_js()
Response.Write "</TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=mr></TD></TR></TBODY></TABLE></DIV>" & vbCrLf
Response.Write "</TD><TD valign=top style=""WIDTH: 50%"">" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%""><TBODY><TR><TD class=tl></TD><TD class=tm><TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR><TD><SPAN class=tt>校 园 内 外</SPAN> </TD>" & vbCrLf
Response.Write "<TD align=right><A href=""art.asp""><IMG alt=more src=""img/mory.gif"" border=0></A>&nbsp;</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=tr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"">" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR><TD class=ml></TD><TD class=mm>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
Response.Write "<TBODY>"
call index_article()

Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%""><TBODY><TR><TD class=tl></TD><TD class=tm><TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
Response.Write "<TR><TD><SPAN class=tt>论 坛 新 贴</SPAN></TD>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=tr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"">" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
Response.Write "<TBODY>"
Response.Write "</TD><TD class=tr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"">" & vbCrLf
Response.Write "<TBODY><TR><TD class=ml></TD><TD class=mm>" & vbCrLf
Response.Write "<TD vAlign=top width=300><span id=weken>暂无贴子或者连接错误！</span><script src=bbs/new.asp?id=weken&TopicCount=10&Count=25&showtime=0&icon=></script>"
Response.Write "<TBODY>"

Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"">" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR><TD class=tl></TD><TD class=tm>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR><TD><SPAN class=tt>上 网 快 捷 导 航</SPAN></TD>" & vbCrLf
Response.Write "</TD><TD class=tr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=tr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"">" & vbCrLf
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
Response.Write "<TBODY>"
Response.Write "<iframe width='300' height='160' scrolling='no' border='0' frameborder='0' src='gj.asp' ></iframe></td></tr>" & vbCrLf

Response.Write "</TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=mr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</DIV>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</DIV>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<SCRIPT language=javascript type=text/javascript>StartRollV();StartRollH();</SCRIPT>"
call footer()%>