indexnew.asp

本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内新闻、学校内务、德育工作、 教育科研、教师之窗、学生园地、学校党建、 校园相册、校内论坛(导航内容后台生成,可随

<%sub index_news()
'============================================================站点校内新闻
sql="SELECT top "&indexnews&" news_count, news_date, news_id, news_title,news_color FROM news ORDER BY news_id DESC"   
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<LI><a href='shownews.asp?news_id="&rs("news_id")&"' target='_blank' Title='校内新闻名称："&rs("news_title")&"&#13&#10上传时间："&rs("news_date")&"&#13&#10浏览指数："&rs("news_count")&"'>"&rs("news_color")&""&rs("news_title")&"</a></LI>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<div align=center><br><br><br><br><br><font color=""#666666"">目前尚无任何校内新闻！</font></div>"
end if
if not rs.eof or not rs.bof then
end if
rs.close
set rs=nothing
end sub
sub index_diary()
'============================================================公告
sql="SELECT top "&indexdiary&" d_content,d_date FROM diary ORDER BY d_id DESC"   
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "·"&rs("d_content")&"&nbsp; <font color=""#FF9933"">["&rs("d_date")&"]</font>&nbsp;"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<font color=""#666666"">目前尚无任何公告！</font>"
end if
if not rs.eof or not rs.bof then
end if
rs.close
set rs=nothing
end sub
sub index_vote()
'============================================================投票
sql="select top 1 * from votetopic where datediff('d',Now(),vt_expiredate)>0 order by vt_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
Response.Write "<script language=""JavaScript"" type=""text/JavaScript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "function MM_openBrWindow(theURL,winName,features) { //v2.0" & vbCrLf
Response.Write "  window.open(theURL,winName,features);" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "//-->" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<TABLE cellPadding=0 width=""100%""><TBODY><form name=""form1"" method=""post"" action=""savevote.asp?vt_id="&rs("vt_id")&"&vt_name="&rs("vt_name")&""" target=""vote"" onsubmit=""return vote()"">" & vbCrLf
Response.Write "    <TR>" & vbCrLf
Response.Write "       <TD align=center><B>"&rs("vt_name")&"</B></TD>" & vbCrLf
Response.Write "   </TR>" & vbCrLf
Response.Write "   <TR>" & vbCrLf
Response.Write "     <TD>"
sql="select * from voteitem where vt_id="&rs("vt_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
Response.Write "<input type=""radio"" name=""item_id"" value="""&rs2("item_id")&""">"&rs2("item_name")&"<br>"
rs2.movenext
loop
if rs2.eof and rs2.bof then
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=200 border=0><TR height=""120""><TD align=middle><font color=""#666666"">当前没有投票选项！</font></TD></TR></TABLE>"
end if
rs2.close
set rs2=nothing
Response.Write "</TD></TR>" & vbCrLf
Response.Write "<TR><TD align=middle>" & vbCrLf
Response.Write "<input name=""itemname"" type=""hidden"" value="""&rs("vt_name")&""">"
if request.cookies("npw")("voted")<>"yes" or request.cookies("npw")("topic")<>rs("vt_name") then
Response.Write "<input type=""submit"" name=""Submit"" value=""投票"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">"
else
Response.Write "<input type=""submit"" name=""Submit"" value=""投票"" disabled onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">"
end if
Response.Write "&nbsp;&nbsp;<input name=""Submit"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"" type=""button""onClick=""MM_openBrWindow('showvote.asp?vt_id="&rs("vt_id")&"')"" value=""结果"">" & vbCrLf
Response.Write "</TD></TR>" & vbCrLf
Response.Write "</FORM></TBODY></TABLE>"
else
response.write "<TABLE cellSpacing=0 cellPadding=0 width=200 border=0><TR height=""160""><TD align=middle><font color=""#666666"">当前没有投票主题！</font></TD></TR></TABLE>"
end if
rs.close
set rs=nothing
end sub
'============================================================推荐图片
sub index_pic()
Response.Write "<TABLE cellSpacing=0 cellPadding=5 border=0 width=""100%""><TBODY><TR align=middle>"
sql="select top "&indexpic&" * from pic ORDER by pic_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TD>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyuimg("""&rs("pic_spic")&""",""showpic.asp?pic_id="&rs("pic_id")&""",""图片名称："&rs("pic_name")&"&#13&#10点击次数："&rs("pic_count")&"&#13&#10文件大小："&rs("pic_url")&"&#13&#10上传时间："&rs("pic_date")&""");</SCRIPT>" & vbCrLf
Response.Write "</TD>"
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "<td align=""center"" height=""120""><font color=""#666666"">当前没有图片！</font></td>"
end if
rs.close
set rs=nothing
Response.Write "</TR></TBODY></TABLE>"
end sub
'============================================================网站推荐
sub index_coolsites()
sql="select top "&indexcoolsite&" * from coolsites where isbest = 1 ORDER by cs_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=200 border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD style=""PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px"" align=middle>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyuimg("""&rs("cs_pic")&""",""web.asp?action=go&cs_id="&rs("cs_id")&""",""网站推荐："&rs("cs_name")&"&#13&#10站点地址："&rs("cs_url")&"&#13&#10点击次数："&rs("cs_count")&"次"");</SCRIPT>" & vbCrLf
Response.Write "<SPAN class=thumbnailTitle><div style=""padding-top:10px;"">["&rs("cs_name")&"]</div></SPAN>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>"
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=200 border=0><TR height=""160""><TD align=middle><font color=""#666666"">当前没有网站！</font></TD></TR></TABLE>"
end if
rs.close
set rs=nothing
end sub
sub index_soft()
'============================================================下载中心
sql="select top "&indexsoft&" soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount from soft order by soft_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TR>" & vbCrLf
Response.Write "<TD><UL class=nl><LI><a href='showdown.asp?soft_id="&rs("soft_id")&"' target='_blank' Title='文件名称："&rs("soft_name")&"&#13&#10下载次数："&rs("soft_dcount")&"&#13&#10上传时间："&rs("soft_joindate")&"'>"&left(rs("soft_name"),22)&"</a></LI></ul>" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "<TD align=middle width=35>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("soft_dcount")&"</SPAN>" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "</TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR height=""220""><TD align=middle><font color=""#666666"">暂时没有程序下载</font></TD></TR>"
end if
rs.close
set rs=nothing
end sub
sub index_js()
'============================================================上级来文
sql="select top "&indexjs&" js_id,js_name,js_date,js_count from js order by js_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TR>" & vbCrLf
Response.Write "<TD><UL class=nl><LI><a href='showjs.asp?js_id="&rs("js_id")&"' target='_blank' Title='来文名称："&rs("js_name")&"&#13&#10查看次数："&rs("js_count")&"&#13&#10上传时间："&rs("js_date")&"'>"&left(rs("js_name"),18)&"</a></LI></ul>" & vbCrLf
Response.Write "</TD><TD align=middle width=35>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("js_count")&"</SPAN>" & vbCrLf
Response.Write "</TD></TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR height=""220""><TD align=middle><font color=""#666666"">暂时没有来文</font></TD></TR>"
end if
rs.close
set rs=nothing
end sub
sub index_article()
'============================================================文章
sql="select top "&indexarticle&" art_id,cat_id,art_title,art_date,art_count from art order by art_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD><UL class=nl><LI><a href='showart.asp?art_id="&rs("art_id")&"' target='_blank' Title='文章标题："&rs("art_title")&"&#13&#10发表时间："&rs("art_date")&"&#13&#10阅读次数："&rs("art_count")&"次&#13&#10所属分类："&rscat("cat_name")&"'>"&left(rs("art_title"),18)&"</a></LI></ul>" & vbCrLf
Response.Write "</TD><TD align=middle width=35>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("art_count")&"</SPAN>" & vbCrLf
Response.Write "</TD></TR>"
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR height=""220""><TD align=middle><font color=""#666666"">暂时没有文章！</font></TD></TR>"
end if
rs.close
set rs=nothing
end sub
sub index_dj()
'============================================================音乐
sql="select top "&indexdj&" dj_id,dj_name,dj_date,dj_pic,dj_count from dj order by dj_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TR><TD><UL class=nl><LI><a href='showdj.asp?dj_id="&rs("dj_id")&"' onclick=""LyWindow(this.href,'dj','400','330','no','no','center');return false"" Title='音乐名称："&rs("dj_name")&"&#13&#10视听次数："&rs("dj_count")&"&#13&#10上传时间："&rs("dj_date")&"'>"&left(rs("dj_name"),18)&"</a></LI></ul>" & vbCrLf
Response.Write "</TD><TD align=middle width=35>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("dj_count")&"</SPAN>" & vbCrLf
Response.Write "</TD></TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR height=""220""><TD align=middle><font color=""#666666"">暂时没有音乐</font></TD></TR>"
end if
rs.close
set rs=nothing
end sub
sub index_flink()
'============================================================连接
sql="select top "&indexfriendlink&" fl_id,fl_name,flcat_id,fl_logo,fl_date,fl_url,count,passed from friendlink where fl_logo<>'' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE cellPadding=5 height=""200""><TBODY>" & vbCrLf
do while not rs.eof
Response.Write "<TR align=middle>" & vbCrLf
Response.Write "<TD><a href='link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'><img border=0 src='"&rs("fl_logo")&"' width='88' height='31' title='网站名称："&rs("fl_name")&"&#13&#10网站地址："&rs("fl_url")&"&#13&#10加入时间："&rs("fl_date")&"&#13&#10点击次数："&rs("count")&"'></a>" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "</TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD align=middle><font color=""#666666"">当前没有链接</font></TD></TR>"
end if
Response.Write "</TBODY></TABLE>"  
end sub
sub index_flinkwz()
'============================================================连接
sql="select top 10 fl_id,fl_name,flcat_id,fl_logo,fl_url,count,passed from friendlink where fl_logo='' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<select name='titlelink' id='titlelink' onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}"">" & vbCrLf
Response.Write "<option>文字友情连接</option>"
do while not rs.eof
Response.Write "<option value='link.asp?action=go&fl_id="&rs("fl_id")&"'>"&rs("fl_name")&"</option>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<option>当前没有链接</option>"
end if
Response.Write "</select>"  
end sub%>