index.asp

主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛

<!--#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 "<TD align=top width=100><script language=""javascript"" src=""http://is.qq.com/js/addportal.js""></script><script>AddPortal('25170','','','');</script></TD><TD class=r></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 "<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>"
Response.Write "<img border=0 src=/img/zhang.gif width=200 height=145 alt=校长张殿刚>" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "<TD vAlign=top width=* style=""padding-top:5px;"">" & vbCrLf
Response.Write "<UL class=nl>"
call index_news()
Response.Write "</UL></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>" & 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=""dj.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_dj()
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 "</TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=mr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</DIV></TD></TR>" & vbCrLf
Response.Write "<TR height=""220"" valign=""top""><TD valign=top style=""WIDTH: 50%"">" & vbCrLf
Response.Write "<DIV class=mframe><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><TR><TD><SPAN class=tt>最新下载</SPAN> </TD>" & vbCrLf
Response.Write "<TD align=right><A href=""down.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>" & vbCrLf
Response.Write "<TBODY>"
call index_soft()
Response.Write "</TBODY></TABLE>" & vbCrLf
Response.Write "</TD><TD class=mr></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "</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%"">" & 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 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%"">" & vbCrLf
Response.Write "<TBODY><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_js()
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()%>