index.asp

全能学校管理网站源码,小草网络提供,下载试用下

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/indexvar.asp"-->
<!--#include file="sqlx.asp"-->
<%
title=""
call pass()
call top()
'第一大表格开始
web58818CMS("<table border='0'  cellspacing='0' cellpadding='0' align='center' class='bgcolor'><tr><td class='left'></td><td class='width' valign='top'>")
web58818CMS("<table width='100%' border='0'  cellspacing='0' cellpadding='0'><tr><td valign='top'>")
call br()
'会员登陆口开始
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><td  class=lefttopcenter>&emsp;<img border=0 src='skin/"&web58818skin&"/mor.gif' align=absmiddle>&nbsp;会员登陆</td><td  class=lefttopright></td></tr></table>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign='top' class='leftcentercenter'  height=170>")
call login()
web58818CMS("</td><td class=leftcenterright></td></tr></table>")
web58818CMS("<table border='0'  cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
web58818CMS("</td><td  width='5'></td><td valign='top' align=right>")
call br()
'新闻、公告开始
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;<img border=0 src='skin/"&web58818skin&"/mor.gif' align=absmiddle>&nbsp;新闻频道<span style='width=400px'></span><img border=0 src='img/more.gif' align=absmiddle>&nbsp;<a href=news.asp title='更多新闻……'><font class=othernav>更多……</font></a></td></tr></table>")
web58818CMS("<table border='0'   cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td  class=rightcentercenter valign='top' height=170>")
call YC_news()
web58818CMS("</TD></TR></table>")
web58818CMS("<table border='0'  cellspacing='0' cellpadding='0'><tr><td  class=rightfootleft ></td><td class=rightfootcenter></td></tr></table>")
call br()
web58818CMS("</td></tr></table></td><td class=right></td></tr></table>")
'第一大表格结束
'第二大表格开始
web58818CMS("<table border='0'  cellspacing='0' cellpadding='0' align='center' class='bgcolor'><tr><td class='left'></td><td class='width'>")
web58818CMS("<table width='100%' border='0'  cellspacing='0' cellpadding='0'><tr><td valign='top'>")
'统计信息开始
web58818CMS("<table border='0'   cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;<img border=0 src='skin/"&web58818skin&"/mor.gif' align=absmiddle>&nbsp;统计信息</td><td class='lefttopright'></td></tr></table>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftcentercenter'  height=200>")
web58818CMS("<table border='0'  cellspacing='0' cellpadding='0' align='center' rules=rows frame=void width='100%' bordercolor="&border&"><tr><td height=19>&nbsp;<img src=img/title2.gif border='0'>&nbsp;新进会员：<font color=red>")
sql="select top 1 * from [YC_user] where pass=true order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
web58818CMS(YC_Kill_Word(rs("user_name"),15))
rs.close
set rs=nothing
web58818CMS("</font></td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;会员注册：")
call mytable("YC_user")
web58818CMS("&nbsp;人</td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;新闻频道：")
call mytable("YC_news")
web58818CMS("&nbsp;条</td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;文章作品：")
call mytable("YC_art")
web58818CMS("&nbsp;篇</td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;精品图片：")
call mytable("YC_pic")
web58818CMS("&nbsp;张</td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;视听欣赏：")
call mytable("YC_dj")
web58818CMS("&nbsp;个</td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;软件下载：")
call mytable("YC_down")
web58818CMS("&nbsp;个</td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;本站频道：")
call mytable("YC_other")
web58818CMS("&nbsp;个</td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;友情连接：")
call mytable("YC_link")
web58818CMS("&nbsp;个</td></tr>")
web58818CMS("<tr><td height=19>&nbsp;<img src=img/title2.gif border='0' width=10 height=10>&nbsp;访客留言：")
call mytable("YC_book")
web58818CMS("&nbsp;条</td></tr></table>")
web58818CMS("</td><td class=leftcenterright></td></tr></table>")
web58818CMS("<table border='0'  cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
'会员排行开始
web58818CMS("<table border='0'   cellspacing='0' cellpadding='0'><td  class='lefttopcenter'>&emsp;<img border=0 src='skin/"&web58818skin&"/mor.gif' align=absmiddle>&nbsp;会员排行</td><td class='lefttopright'></td></tr></table>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign='top' class='leftcentercenter'  height=115 align='center'>")
call br()
call YC_user()
call br()
web58818CMS("</td><td class=leftcenterright></td></tr></table>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
web58818CMS("</td><td  width='5'></td><td valign='top' align=right>")
'图片开始
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;<img border=0 src='skin/"&web58818skin&"/mor.gif' align=absmiddle>&nbsp;图片频道<span style='width=380px'></span><img border=0 src='img/more.gif' align=absmiddle>&nbsp;<a href=pic.asp title='更多图片……'><font class=othernav>更多……</font></a></td></tr></table>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td  class=rightcentercenter  valign='top'>")
%>
<table border="0"   cellspacing="0" cellpadding="0"><tr>
<td class=rightcenterleft></td>
<td  class=rightcentercenter  valign=top>
<table border=0 cellspacing="0" cellpadding="0" width=100%>
<tr><td style="border-bottom:1px dotted #C2CCE3;"> 
<%call br()
response.Write"&nbsp;<img src=img/newday.gif border=0 align=absmiddle>&nbsp;本栏目共有图片&nbsp;<font color=red>"
call mytable("YC_pic")
response.Write"</font>&nbsp;张，其中"
set rspic=server.CreateObject("adodb.recordset")
sqlpic="select date from YC_pic where date=#"&date()&"#"
rspic.open sqlpic,conn,1,3
response.Write"今日更新&nbsp;<font color=red>"
if not rspic.eof and not rspic.bof then
response.Write rspic.recordcount
else
response.Write"<font color=red>0</font>"
end if
response.Write"</font>&nbsp;张，等待审核&nbsp;<font color=red>"&picnopass&"</font>&nbsp;张。"
call br()
%>
</td></tr><tr><td>
<div  id=demo class=gopic>
<table align=center cellpadding=0 cellspace=0 border=0><tr><td id=demo1 valign=top><%call YC_pic()%>
</td><td id=demo2 valign=top ></td></tr></table></div>
<script>var Picspeed=1
demo2.innerHTML=demo1.innerHTML
function Marquee1(){if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth