indexvar.asp

学校网站管理系统

rs.close
set rs=nothing
YCMS("</td></tr></table>")
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：YC_art                  ◇
'◇功  能：首页显文章版快          ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub YC_art
YCMS("<table border=0 width='100%' height='100%'><tr>")
YCMS("<td width=150 align=center>")
sql="select top 1 * from YC_art 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='showart.asp?id="&rs("id")&"' target='art'><img src='"&rs("pic")&"' border=0 TITLE='文章标题："&rs("title")&"<br>文章作者："&rs("writer")&"<br>发表会员："&rs("user")&"<br>文章版权："&rs("copyright")&"<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='showart.asp?id="&rs("id")&"' target='art'>"&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><td valign=top style='border-left:1px dotted #007100;' class=artbg>")
call br()
YC("&nbsp;<img src=img/newday.gif border=0 align=absmiddle>&nbsp;本栏目共有文章&nbsp;<font color=red>")
call mytable("YC_art")
YC("</font>&nbsp;篇，其中")
set rsart=server.CreateObject("adodb.recordset")
sqlart="select date from YC_art where pass=true and date=#"&date()&"#"
rsart.open sqlart,conn,1,1
YC("今日更新&nbsp;<font color=red>")
if not rsart.eof and not rsart.bof then
response.Write rsart.recordcount
else
YC("<font color=red>0</font>")
end if
YC("</font>&nbsp;篇，等待审核&nbsp;<font color=red>"&artnopass&"</font>&nbsp;篇。")
call br()
sql="select top "&indexpage(1)&" * from YC_art 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 align=absmiddle src=img/arttitle.gif border=0>&nbsp;[")
call myclass("YC_artclass","art",rs("class"))
YCMS("]&nbsp;<a href='showart.asp?id="&rs("id")&"' target=_blank><font color='"&rs("color")&"' TITLE='文章标题："&rs("title")&"<br>文章作者："&rs("writer")&"<br>发表会员："&rs("user")&"<br>文章版权："&rs("copyright")&"<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
rs.close
set rs=nothing
YCMS("</td></tr></table>")
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：YC_down                 ◇
'◇功  能：首页显示下载版块        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub YC_down()
YCMS("<table border=0 width='100%' height='100%'><tr><td width=150 align=center>")
sql="select top 1 * from YC_down 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='showdown.asp?id="&rs("id")&"' target='down'><img src='"&rs("pic")&"' border=0 TITLE='下载名称："&rs("title")&"<br>推荐程度："&rs("commend")&"<br>发表会员："&rs("user")&"<br>文件大小："&rs("size")&"<br>发表日期："&rs("date")&"<br>点击次数："&rs("click")&"次<br>下载次数："&rs("downclick")&"次' 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='showdown.asp?id="&rs("id")&"' target='down'>"&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=downbg>")
call br()
YC("&nbsp;<img src=img/newday.gif border=0 align=absmiddle>&nbsp;本栏目共有下载&nbsp;<font color=red>")
call mytable("YC_down")
YC("</font>&nbsp;个，其中")
set rsdown=server.CreateObject("adodb.recordset")
sqldown="select date from YC_down where pass=true and date=#"&date()&"#"
rsdown.open sqldown,conn,1,3
YC("今日更新&nbsp;<font color=red>")
if not rsdown.eof and not rsdown.bof then
response.Write rsdown.recordcount
else
YC("<font color=red>0</font>")
end if
YC("</font>&nbsp;个，等待审核&nbsp;<font color=red>"&downnopass&"</font>&nbsp;个。")
call br()
sql="select top "&indexpage(4)&" * from YC_down 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/downtitle.gif border=0>&nbsp;[")
call myclass("YC_downclass","down",rs("class"))
YCMS("]&nbsp;<a href='showdown.asp?id="&rs("id")&"' target=_blank><font color='"&rs("color")&"' TITLE='下载名称："&rs("title")&"<br>推荐程度："&rs("commend")&"<br>文件大小："&rs("size")&"<br>发表会员："&rs("user")&"<br>发表日期："&rs("date")&"<br>点击次数："&rs("click")&"次<br>下载次数："&rs("downclick")&"次'>"&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:20'>"&rs("date")&"</td></tr></table>")
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("<center>暂时没有下载！</center>")
end if
rs.close
set rs=nothing
YCMS("</td></tr></table>")
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：YC_link                 ◇
'◇功  能：首页显示LOGO连接        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub YC_link()
sql="select top "&indexpage(5)&" * from YC_link where logo<>'' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YCMS("<TABLE cellPadding=3><TBODY>")
do while not rs.eof
YCMS("<TR align=middle><TD><a href='link.asp?action=go&id="&rs("id")&"' target='_blank'><img border=0 src='"&rs("logo")&"' width='88' height='31' title='网站名称："&rs("webname")&"<br>网站地址："&rs("url")&"<br>加入时间："&rs("date")&"<br>点击次数："&rs("click")&"'></a></TD></TR>")
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("<br><br><center><font color=red><b>暂时没有链接!</b></font></center>")
end if
YCMS("</TBODY></TABLE>")  
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：YC_link2                ◇
'◇功  能：首页显示文字连接        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub YC_link2()
sql="select top 10 * from YC_link where logo='' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YCMS("<select style='border:0px;' name='titlelink' id='titlelink' onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}"">")
YCMS("<option class='yecao'>文字友情连接</option>")
do while not rs.eof
YCMS("<option class='yecao' value='link.asp?action=go&id="&rs("id")&"'>"&rs("webname")&"</option>")
rs.movenext
loop
if rs.eof and rs.bof then
YCMS("<option>暂时没有链接!</option>")
end if
YCMS("</select>")  
end sub
sql="select * from YC_art where pass=false order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
artnopass=rs.recordcount
sql="select * from YC_pic where pass=false order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
picnopass=rs.recordcount
sql="select * from YC_dj where pass=false order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
djnopass=rs.recordcount
sql="select * from YC_down where pass=false order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
downnopass=rs.recordcount%>