dj.asp

学校网站管理系统

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="sqlx.asp"-->
<%
title="影音娱乐"
call pass()
call top()
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class='bgcolor'>")
YCMS("<tr><td class='left'></td><td class='width' valign='top'>")
YCMS("<table width='100%' border='0'  cellspacing='0' cellpadding='0'>")
YCMS("<td valign=top>")
call br()
YCMS("<table border='0' cellspacing='0' cellpadding='0'><td  class='lefttopcenter'>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;会员登陆</td><td  class='lefttopright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign=top class='leftcentercenter'  height='150'>")
call login()
YCMS("</td><td class='leftcenterright'></td></tr></table>")
YCMS("<table border='0'  cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
YCMS("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;站内搜索</td><td class='lefttopright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign=top class='leftcentercenter'  align='center'>")
call search()
YCMS("</td><td class='leftcenterright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
YCMS("<table border='0'   cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;娱乐分类</td><td class='lefttopright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td height=100 class='leftcentercenter'>")
call br()
call yecaoclass("YC_djclass","dj")
call br()
YCMS("</td><td class='leftcenterright'></td></tr></table>")
YCMS("<table border='0'  cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
YCMS("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;点击排行</td><td  class='lefttopright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td  class='leftcentercenter' height=60 style='line-height:120%;'>")
call br()
set rstop=server.createobject("adodb.recordset")
if request.querystring("class")<>"" then
sql="select * from [YC_dj] where pass=true and class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [YC_dj] where pass=true order by click DESC"
end if
rstop.open sql,conn,1,1
n=0
do while not rstop.eof
YCMS("·<a href='showdj.asp?id="&rstop("id")&"' target='dj' title='娱乐名称："&rstop("title")&"<br>娱乐作者："&rstop("singer")&"<br>发表会员："&rstop("user")&"<br>文件大小："&rstop("size")&"<br>发表时间："&rstop("date")&"<br>阅读次数："&rstop("click")&"次'>"&YC_Kill_Word(rstop("title"),20)&"</a><br>")
n=n+1
if n=cint(toplist) then exit do end if
rstop.movenext
loop
if rstop.eof and rstop.bof then
YCMS("<center>没有相关娱乐！</center>")
end if
rstop.close
set rstop=nothing
YCMS("</td><td class='leftcenterright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
YCMS("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;本站推荐</td><td  class='lefttopright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftcentercenter' height=60 style='line-height:120%;'>")
call br()
set rsbest=server.createobject("adodb.recordset")
sql="select * from [YC_dj] where pass=true and best=true order by id DESC"
rsbest.open sql,conn,1,1
n=0
do while not rsbest.eof
YCMS("·<a href='showdj.asp?id="&rsbest("id")&"' target='dj' title='娱乐名称："&rsbest("title")&"<br>娱乐作者："&rsbest("singer")&"<br>发表会员："&rsbest("user")&"<br>文件大小："&rsbest("size")&"<br>发表时间："&rsbest("date")&"<br>阅读次数："&rsbest("click")&"次'>"&YC_Kill_Word(rsbest("title"),20)&"</a><br>")
n=n+1
if n=cint(bestlist) then exit do end if
rsbest.movenext
loop
if rsbest.eof and rsbest.bof then
YCMS("<center>没有推荐娱乐！</center>")
end if
rsbest.close
set rsbest=nothing
call br()
YCMS("</td><td class=leftcenterright></td></tr></table>")
YCMS("<table border='0'  cellspacing='0' cellpadding='0'><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>")
call br
YCMS("</td><td width='5'></td><td valign=top align=right>")
call br()
if request.querystring("action")<>"list" then
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='righttopleft'></td><td class=righttopcenter>&emsp;图文娱乐</td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='rightcenterleft'></td><td  class='rightcentercenter' valign='top'>")
sql="select top 4 * from [YC_dj] where pic<>'' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YCMS("<table cellspacing='0' cellpadding='0' border='0' bgcolor='#c8e485' width='100%'><tr>")
do while not rs.eof
YCMS("<td height=140><TABLE cellSpacing=0 cellPadding=0 width=120 border=0 align='center'>")
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='showdj.asp?id="&rs("id")&"' target='dj'>")
YCMS("<img src='"&rs("pic")&"' border=0 TITLE='娱乐名称："&rs("title")&"<br>发布会员："&rs("user")&"<br>发布日期："&rs("date")&"<br>点击次数："&rs("click")&"' style='width:115px;height:90px;border:1px solid #444;' align='absmiddle'></a>")
YCMS("</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>")
YCMS("<center><a href='showdj.asp?id="&rs("id")&"' target='dj'>"&YC_Kill_Word(rs("title"),16)&"</a></center></td>")
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("<td align=center height=60>暂时没有娱乐图片！</td>")
end if
rs.close
set rs=nothing
YCMS("</TR></table></TD></TR></table><table border='0' cellspacing='0' cellpadding='0'><tr><td class='rightfootleft'></td><td class='rightfootcenter'></td></tr></table>")
call br()
end if
if request.querystring("action")="" then
call bigclass("YC_djclass","dj")
elseif request.querystring("action")="small" then
call smallclass("YC_djclass","dj",request.querystring("id"))
elseif request.querystring("action")="list" then
sql="select * from YC_dj where pass=true and class="&request("class")&" order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;娱乐列表</td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td  class=rightcentercenter valign=top>")
YCMS("<table cellspacing='0' cellpadding='0' border=1 bordercolor=#037000 bgcolor=#c8e485 width=100% rules=rows frame=void id=yecaotable>")
if not rs.bof and not rs.eof then
rs.pagesize=cint(yecaopage(3))
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof
YCMS("<tr><td height=25 width='80%'>·<a href='showdj.asp?id="&rs("id")&"' target='dj' title='娱乐标题："&rs("title")&"<br>娱乐作者："&rs("singer")&"<br>发表会员："&rs("user")&"<br>文件大小："&rs("size")&"<br>发表日期："&rs("date")&"<br>点击次数："&rs("click")&"次'>"&YC_Kill_Word(rs("title"),30)&"</a>&nbsp;")
if rs("best")=true then
YCMS("『<font color=red>推荐</font>』")
end if
YCMS("</td><td align=center width='5%'>"&rs("click")&"</td><td width='15%'>"&rs("date")&"</td></tr>")
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center><font color=red><b>暂时没有娱乐！</</b></font></td></tr>"
else
YCMS("<tr class=bg><td colspan=3 height=25 align=center>")
call page("娱乐","个")
YCMS("</td></tr>")
end if
YCMS("</table></form></TD></TR></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td  class=rightfootleft></td><td class=rightfootcenter></td></tr></table>")
call br()
rs.close
set rs=nothing
end if
YCMS("</td></tr></table></td><td class=right></td></tr></table>")
call foot()
%>