indexvar.asp

学校网站管理系统

<%
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：YC_news                 ◇
'◇功  能：首页显新闻版快          ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub YC_news()
YCMS("<table border='0' width='100%' height='100%'><tr><td width='150' align='center'>")
sql="select top 1 * from YC_news where pic<>'' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
call br()
YCMS("<TABLE cellSpacing=0 cellPadding=0 width=120 border=0>")
YCMS("<TR><TD vAlign=bottom align=middle>")
YCMS("<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>")
YCMS("<TR><TD bgColor=#ffffff>")
YCMS("<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>")
YCMS("<TR><TD bgColor=#ffffff>")
YCMS("<TABLE cellSpacing=1 cellPadding=0 bgColor=#808080 border=0>")
YCMS("<TR><TD bgColor=#ffffff>")
YCMS("<TABLE cellSpacing=0 cellPadding=1 width='100%' border=0>")
YCMS("<TR><TD align=middle style='padding:4px;'>")
YCMS("<a href='shownews.asp?id="&rs("id")&"' target='art'>")
YCMS("<img src='"&rs("pic")&"' border=0 TITLE='新闻名称："&rs("title")&"<br>发布会员："&rs("user")&"<br>发布日期："&rs("date")&"<br>点击次数："&rs("click")&"' style='width:120px;height:120px;border:1px solid #007100;' align='absmiddle'></a>")
YCMS("</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>")
call br()
YCMS("<center><a href='shownews.asp?id="&rs("id")&"' target='news'>"&YC_Kill_Word(rs("title"),16)&"</a></center>")
call br()
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("<center>暂时没有新闻图片！</center>")
end if
rs.close
set rs=nothing
YCMS("<td valign=top style='border-left:1px dotted #007100;' class=newsbg>")
YCMS("<div id='icefable1' style='width:530px;height:22px'>")
YCMS("<TABLE width=400 border=0 cellPadding=0 cellSpacing=0>") 
sql="select top "&indexpage(6)&" * from YC_gg order by id DESC" 
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
YCMS("<TD width=400 height=20>")
YCMS("<font color='"&rs("color")&"'>")
YCMS("&nbsp;<span style=font-family:Webdings;font-size:15px>U</span>&nbsp;")
YCMS("<font color='"&rs("color")&"' title='"&rs("gg")&"'>")
Response.Write YC_Kill_Word(rs("gg"),50)
YCMS("</font></font>&emsp;["&rs("date")&"]")
YCMS("</TD></TR>")
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("&nbsp;<font color=""#666666"">对不起！目前没有任何公告！</font>")
end if
rs.close
set rs=nothing
YCMS("</TABLE></div><div id='icefable2' style='position:absolute;z-index:1;visibility:hidden'></div>") 
YCMS("<script>marqueesHeight=20;stopscroll=false;icefable1.scrollTop=0;with(icefable1){style.width=0;style.height=marqueesHeight;style.overflowX='visible';style.overflowY='hidden';noWrap=true;onmouseover=new Function('stopscroll=true');onmouseout=new Function('stopscroll=false');}preTop=0; currentTop=0;stoptime=0;function init_srolltext(){icefable2.innerHTML='';icefable2.innerHTML+=icefable1.innerHTML;icefable1.innerHTML=icefable2.innerHTML+icefable2.innerHTML;setInterval('scrollUp()',70);}function scrollUp(){if(stopscroll==true) return;currentTop+=1;if(currentTop==21){stoptime+=1;currentTop-=1;if(stoptime==20){currentTop=0;stoptime=4;}}else{preTop=icefable1.scrollTop;icefable1.scrollTop+=1;if(preTop==icefable1.scrollTop){icefable1.scrollTop=icefable2.offsetHeight-marqueesHeight;icefable1.scrollTop+=1;}}}init_srolltext();</script>")
call br()
sql="SELECT top "&indexpage(0)&" * FROM YC_news where pass=true ORDER BY id DESC"   
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
YCMS("<table border=0 width='100%' cellspacing='0' cellpadding='0'><tr>")
YC("<td style='border-top:1px dotted #007100;height:24'>&nbsp;<img align=absmiddle src=img/newstitle.gif border=0>&nbsp;[")
call myclass("YC_newsclass","news",rs("class"))
YCMS("]&nbsp;<a target='_blank'  href='shownews.asp?id="&rs("id")&"'><font color='"&rs("color")&"' TITLE='新闻名称："&rs("title")&"<br>发布会员："&rs("user")&"<br>发布日期："&rs("date")&"<br>点击次数："&rs("click")&"'>"&YC_Kill_Word(rs("title"),30)&"</font></a>")
if rs("date")=date() then
YCMS("&emsp;<img src=img/new.gif border=0>")
end if
YCMS("</td><td width=60 style='border-top:1px dotted #007100;height:24'>"&rs("date")&"</td></tr></table>")
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("<center>暂时没有新闻!</center>")
end if
if not rs.eof or not rs.bof then
end if
rs.close
set rs=nothing
YCMS("<table border=0 width='100%' cellspacing='0' cellpadding='0'><tr><td style='border-top:1px dotted #007100;height:24'>")
YCMS("<marquee scrollamount=2 direction=left height=15 onmouseover=this.stop(); onmouseout=this.start();>点歌台：")
sql="select * from YC_dg order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
<a href="plus_dgplayer.asp?id=<%=rs("id")%>" target=_blank>
<font color="#aa55ff"><%=rs("sender")%>为<%=rs("incept")%>点了一首：《<%=rs("musicname")%>》  并祝福道：“<%=rs("content")%>”</font></a>　　
<%rs.movenext
loop
if rs.eof and rs.bof then%>没有祝福送出<%end if
rs.close
set rs=nothing
YCMS("&nbsp;<a href='plus_dgplayer.asp'><font color=blue>连续播放</font></a>&nbsp;&nbsp;&nbsp;<a href=""plus_dg.asp""><font color=red>我要点歌</font></a></marquee></td></tr></table>")
YCMS("</td></tr></table>")
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：YC_pic                  ◇
'◇功  能：首页显示图片版快        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub YC_pic()
Response.Write "<table border=0 cellspacing=0 cellpadding=2  align=center><tr>"
sql="select top "&indexpage(2)&" * from YC_pic where pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<td align=center>
<TABLE cellSpacing=0 cellPadding=0 width=115 border=0>
<TR><TD vAlign=bottom align=middle>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=1 cellPadding=0 bgColor=#000 border=0>
<TR><TD bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=1 width='100%' border=0>
<TR><TD align=middle style='padding:4px'>
<a href=showpic.asp?id=<%=rs("id")%> target="pic" onfocus="this.blur()">
<img src="<%=rs("pic")%>" border=0 TITLE='图片名称：<%=rs("title")%><br>发布会员：<%=rs("user")%><br>发表日期：<%=rs("date")%><br>点击次数：<%=rs("click")%>次' style="border:1px solid #999999;width:120;height:98"></a></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>
</td>
</a>
<%
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<td align=center height=150 width=300><center><font color=red><b>暂时没有图片！</b></font></center></td>"
end if
Response.Write "</tr></table>"
rs.close
set rs=nothing
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：YC_dj                   ◇
'◇功  能：首页显娱乐版快          ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub YC_dj
YCMS("<table border=0 width='100%' height='100%'><tr><td width=150 align=center>")
sql="select top 1 * from [YC_dj] where pic<>'' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
call br()
YCMS("<TABLE cellSpacing=0 cellPadding=0 width=120 border=0>")
YCMS("<TR><TD vAlign=bottom align=middle>")
YCMS("<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>")
YCMS("<TR><TD bgColor=#ffffff>")
YCMS("<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>")
YCMS("<TR><TD bgColor=#ffffff>")
YCMS("<TABLE cellSpacing=1 cellPadding=0 bgColor=#000 border=0>")
YCMS("<TR><TD bgColor=#ffffff>")
YCMS("<TABLE cellSpacing=0 cellPadding=1 width='100%' border=0>")
YCMS("<TR><TD align=middle style='padding:4px'>")
YCMS("<a href='showdj.asp?id="&rs("id")&"' target='dj'><img src='"&rs("pic")&"' border=0 TITLE='娱乐标题："&rs("title")&"<br>娱乐作者："&rs("singer")&"<br>发表会员："&rs("user")&"<br>发表日期："&rs("date")&"<br>点击次数："&rs("click")&"次' style='width:120px;height:120px;border:1px solid #007100' align=absmiddle></a></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>")
call br()
YCMS("<center><a href='showdj.asp?id="&rs("id")&"' target='dj'>"&YC_Kill_Word(rs("title"),16)&"</a></center> ")
call br()
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("<center>暂时没有娱乐图片！</center>")
end if
rs.close
set rs=nothing
YCMS("<td valign=top style='border-left:1px dotted #007100;'class=djbg>")
call br()
YC("&nbsp;<img src=img/newday.gif border=0 align=absmiddle>&nbsp;本栏目共有娱乐&nbsp;<font color=red>")
call mytable("YC_dj")
YC("</font>&nbsp;个，其中")
set rsdj=server.CreateObject("adodb.recordset")
sqldj="select date from [YC_dj] where pass=true and date=#"&date()&"#"
rsdj.open sqldj,conn,1,1
YC("今日更新&nbsp;<font color=red>")
if not rsdj.eof and not rsdj.bof then
response.Write rsdj.recordcount
else
YC("<font color=red>0</font>")
end if
YC("</font>&nbsp;个，等待审核&nbsp;<font color=red>"&djnopass&"</font>&nbsp;个。")
call br()
sql="select top "&indexpage(3)&" * from [YC_dj] where pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
YCMS("<table border=0 width='100%' cellspacing='0' cellpadding='0'>")
YC("<tr><td style='border-top:1px dotted #007100;height:24'>&nbsp;<img src=img/djtitle.gif align=absmiddle border=0>&nbsp;[")
call myclass("YC_djclass","dj",rs("class"))
YCMS("]&nbsp;<a href='showdj.asp?id="&rs("id")&"' target=_blank><font color='"&rs("color")&"' TITLE='娱乐标题："&rs("title")&"<br>娱乐作者："&rs("singer")&"<br>发表会员："&rs("user")&"<br>发表日期："&rs("date")&"<br>点击次数："&rs("click")&"次'>"&YC_Kill_Word(rs("title"),30)&"</font></a>")
if rs("date")=date() then
YCMS("&emsp;<img src=img/new.gif border=0>")
end if
YCMS("</td><td width=60 style='border-top:1px dotted #007100;'>"&rs("date")&"</td></tr></table>")
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("<center><font color=red><b>暂时没有娱乐！</b></font></center>")
end if