pic.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_picclass","pic")
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_pic] where pass=true and class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [YC_pic] 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='showpic.asp?id="&rstop("id")&"' target='_blank' title='图片名称："&rstop("title")&"<br>发表会员："&rstop("user")&"<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
response.write "<center><font color=red><b>没有相关图片！<b></font></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_pic] 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='showpic.asp?id="&rsbest("id")&"' target='pic' title='图片名称："&rsbest("title")&"<br>发表会员："&rsbest("user")&"<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
response.write "<center><font color=red><b>没有推荐图片！<b></font></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_pic] where pic<>'' and pass=true and  best=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='showpic.asp?id="&rs("id")&"' target='pic'>")
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='showpic.asp?id="&rs("id")&"' target='pic'>"&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("class")<>"" then
sql="select * from [YC_PIC] where class="&request("class")&" and pass=true order by id DESC"
else
sql="select * from [YC_PIC] where pass=true order by id DESC"
end if
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=#bcbcbc bgcolor=#c8e485 width=100% rules=none frame=void id=yecaotable>")
if not rs.bof and not rs.eof then
rs.pagesize=cint(yecaopage(2))
pages=rs.pagecount
mypage=request("page")
if mypage=""then
mypage=1
else
mypage=cint(mypage)
end if
rs.absolutepage=mypage
i=1
i2=1
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>"
end if
do while not rs.eof%>
<td align=center>
<TABLE cellSpacing=0 cellPadding=0 width=120 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=1 TITLE='图片名称：<%=rs("title")%><br>发表会员：<%=rs("user")%><br>发表日期：<%=rs("date")%><br>点击次数：<%=rs("click")%>次' width=115 height=90 style="border:1px solid #444"></a></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></td>
<%if i=4 then
response.Write"</tr><tr>"
i=0
end if
if i2=rs.pagesize then exit do end if
i=i+1
i2=i2+1
rs.movenext
loop
YCMS("<tr class=bg ><td colspan='4' height=25 align=center style='border-top:1px solid #969696'>")
call page("图片","张")
YCMS("</TD></TR></table></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


YCMS("</td></tr></table></td><td class=right></td></tr></table>")

call foot()%>