dj.asp

学校网站源码fdfdffdfdfdfdfdfdfdf

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/inc.asp"-->
<%
title="影音娱乐"
call pass()
call top()
Huaihi("<table border='0' cellspacing='0' cellpadding='0' align='center' class='bgcolor'>")
Huaihi("<tr><td class='left'></td><td class='width' valign='top'>")
Huaihi("<table width='100%' border='0'  cellspacing='0' cellpadding='0'>")
Huaihi("<td valign=top>")
call br()
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><td  class='lefttopcenter'>&emsp;※&nbsp;会员登陆</td><td  class='lefttopright'></td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign=top class='leftcentercenter'>")
call login()
Huaihi("</td><td class='leftcenterright'></td></tr></table>")
Huaihi("<table border='0'  cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;※&nbsp;站内搜索</td><td class='lefttopright'></td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign=top class='leftcentercenter'  align='center'>")
call search()
Huaihi("</td><td class='leftcenterright'></td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
Huaihi("<table border='0'   cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;※&nbsp;娱乐分类</td><td class='lefttopright'></td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td height=100 class='leftcentercenter'>")
call br()
call yecaoclass("Huaihi_djclass","dj")
call br()
Huaihi("</td><td class='leftcenterright'></td></tr></table>")
Huaihi("<table border='0'  cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;※&nbsp;点击排行</td><td  class='lefttopright'></td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td  class='leftcentercenter' height=60 style='line-height:120%;'>")
call br()
Call Huaihi_top("Huaihi_dj","showdj,asp")
call br()
Huaihi("</td><td class='leftcenterright'></td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;※&nbsp;本站推荐</td><td  class='lefttopright'></td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftcentercenter' height=60 style='line-height:120%;'>")
call br()
Call Huaihi_best("Huaihi_dj","showdj,asp")
call br()
Huaihi("</td><td class=leftcenterright></td></tr></table>")
Huaihi("<table border='0'  cellspacing='0' cellpadding='0'><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>")
call br
Huaihi("</td><td width='5'></td><td valign=top align=right>")
call br()
if request.querystring("action")<>"list" then
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='righttopleft'></td><td class=righttopcenter>&emsp;图文娱乐</td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='rightcenterleft'></td><td  class='rightcentercenter' valign='top'>")
sql="select top 4 * from [Huaihi_dj] where pic<>'' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Huaihi("<table cellspacing='0' cellpadding='0' border='0' bgcolor='#ffffff' width='100%'><tr>")
do while not rs.eof
Huaihi("<td height=140><TABLE cellSpacing=0 cellPadding=0 width=120 border=0 align='center'>")
Huaihi("<TR><TD vAlign=bottom align=middle>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#808080 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=0 cellPadding=1 width='100%' border=0>")
Huaihi("<TR><TD align=middle style='padding:4px;'>")
Huaihi("<a href='showdj.asp?id="&rs("id")&"' target='dj'>")
Huaihi("<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>")
Huaihi("</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>")
Huaihi("<center><a href='showdj.asp?id="&rs("id")&"' target='dj'>"&Huaihi_Kill_Word(rs("title"),16)&"</a></center></td>")
rs.movenext
loop
if rs.eof and rs.bof then
Huaihi("<td align=center height=60>暂时没有娱乐图片！</td>")
end if
rs.close
set rs=nothing
Huaihi("</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("Huaihi_djclass","dj")
elseif request.querystring("action")="small" then
call smallclass("Huaihi_djclass","dj",request.querystring("id"))
elseif request.querystring("action")="list" then
sql="select * from Huaihi_dj where pass=true and class="&request("class")&" order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;娱乐列表</td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td  class=rightcentercenter valign=top>")
Huaihi("<table cellspacing='0' cellpadding='0' border=1 bordercolor=#bcbcbc bgcolor=ffffff 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
Huaihi("<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")&"次'>"&Huaihi_Kill_Word(rs("title"),30)&"</a>&nbsp;")
if rs("best")=true then
Huaihi("『<font color=red>推荐</font>』")
end if
Huaihi("</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
Huaihi("<tr class=bg><td colspan=3 height=25 align=center>")
call page("娱乐","个")
Huaihi("</td></tr>")
end if
Huaihi("</table></form></TD></TR></table>")
Huaihi("<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
Huaihi("</td></tr></table></td><td class=right></td></tr></table>")
call foot()
%>