📄 index.asp
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<body>
<!--插入网站置顶-->
<% if u_name="" then %>
<!--#include file="in_top.asp"-->
<% else %>
<!--#include file="in_topmb.asp"-->
<% end if %>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="100%" height="100%">
<a href="#">[首页]</a>
</td>
</tr></table>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdkuang"><tr>
<td width="60" valign="top" style="padding:4px;">
<span style="behavior:url(font.htc)">本月寿星：</span>
</td>
<td>
<%
sqlstr="SELECT ID,name FROM tblmates WHERE birthm="&DatePart("m",date())
rs.open sqlstr,conn,1,1
IF NOT(rs.eof AND rs.bof) THEN
%>
<marquee behavior="scroll" width="100%" height="100%" direction="right" loop="1000" scrollamount="3" scrolldelay="3" onMouseOver=this.stop() onMouseOut=this.start()>
<%
FOR i=1 to rs.RecordCount
%>
<img src="img/icn_candle.gif" border="0" align="absmiddle" hspace="1"><a href="viewinfo.asp?id=<% =rs("ID") %>" title="查看该同学详细资料"><% =rs("name") %></a>
<% rs.MoveNext
Next
%>
</marquee>
<%
ELSE
Response.Write "无"
END IF
rs.close
%>
</td>
</tr></table>
<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="0" class="rdd"><tr>
<td height="100%" valign="top" style="padding:4px; ">
<%
mb_total=conn.Execute("SELECT COUNT(ID) FROM tblmates",0,1)(0)
mb_ds=conn.Execute("SELECT COUNT(ID) FROM tblmates WHERE power=0",0,1)(0)
%>
班级共有成员数：<b><font class="ft1"><% =mb_total %></font></b>人
<br>正式成员：<b><font class="ft1"><% =mb_total-mb_ds %></font></b>人
待审成员：<b><font class="ft1"><% =mb_ds %></font></b>人
<%
zgid=conn.Execute("SELECT ID FROM tblmates WHERE name='"&DEF_sysadm&"'",0,1)(0)
%>
<br>班级创始人：<a href="viewinfo.asp?id=<% =zgid %>" title="查看详细资料"><% =DEF_sysadm %></a>
<br>
<%
systd=now()
sysnian=DatePart("yyyy",systd)
sysrz=DatePart("y",systd)
sysweek=DatePart("ww",systd)
tdtopics=conn.Execute("SELECT COUNT(*) FROM tbltalk WHERE t_isreply=0 AND DatePart('y',t_datepub)="&sysrz&" AND DatePart('yyyy',t_datepub)="&sysnian,0,1)(0)
tdtiez=conn.Execute("SELECT COUNT(*) FROM tbltalk WHERE DatePart('y',t_datepub)="&sysrz&" AND DatePart('yyyy',t_datepub)="&sysnian,0,1)(0)
weektiez=conn.Execute("SELECT COUNT(*) FROM tbltalk WHERE DatePart('ww',t_datepub)="&sysweek&" AND DatePart('yyyy',t_datepub)="&sysnian,0,1)(0)
%>
今日新帖：<font color="<% =colight %>"><b><% =tdtiez %></b></font>篇(<font color="<% =colight %>"><b><% =tdtopics %></b></font>主题)
本周新帖：<font color="<% =colight %>"><b><% =weektiez %></b></font>篇
<%
sqlstr="SELECT * FROM tblclick"
rs.open sqlstr,conn,1,2
'判断是否统计表为空
if rs.eof AND rs.bof then
rs.addnew
rs("clickall")=1
rs("clicktd")=1
rs("clickstart")=0
rs("clickdate")=date()
rs.update
else
If Request.Cookies("uck").HasKeys=false OR Request.Cookies("uck")("url")<>DEF_weburl Then
rs("clickall")=rs("clickall")+1
if rs("clickdate")<>date() then
rs("clickdate")=date()
rs("clicktd")=1
rs.update
else
rs("clicktd")=rs("clicktd")+1
rs.update
end if
End If
end if
Response.Cookies("uck")("url")=DEF_weburl
rs.MoveFirst
%>
<br>今日访量：<font color="<% =colight %>"><b><% =rs("clicktd") %></b></font>
总访问量：<font color="<% =colight %>"><b><% =rs("clickall")+rs("clickstart") %></b></font>
<%
rs.close
%>
</td>
<td width="400" height="100%" align="right" valign="top">
<table width="389" height="101" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="93" height="100%" style="background:url('img/skin/<% =defstyle %>/anc_l.gif');"></td>
<td width="296" height="100%" style="background:url('img/skin/<% =defstyle %>/anc_r.gif');">
<table width="290" height="90" border="0" cellpadding="0" class="intbl"><tr>
<td width="100%" height="100%" valign="top" style="padding-top:8px; padding-right:6px;">
<%
'获取公告信息
sqlstr="SELECT anc,anc_date FROM tblsys"
rs.open sqlstr,conn,0,1
%>
<font color="<% =colink %>"><% =unhtml(rs("anc")) %></font>
<div align="right"><% =rs("anc_date") %> </div>
<% rs.close %>
</td>
</tr></table>
</td>
</tr></table>
</td>
</tr></table>
<%
sqlstr="SELECT ID,name FROM tblmates WHERE power=0"
rs.open sqlstr,conn,1,1
IF NOT(rs.eof AND rs.bof) THEN
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="100%" valign="top" style="padding:4px;">
<%
Response.Write "申请待审："
FOR i=1 to rs.RecordCount
%>
<a href="viewinfo.asp?id=<% =rs("ID") %>" title="查看该同学详细资料"><% =rs("name") %></a>
<% rs.MoveNext
Next
%>
</td>
</tr></table>
<%
END IF
rs.close
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rde"><tr>
<td width="100%" valign="top" style="padding:4px;">
<%
'新近加入
Response.Write "新近加入："
dim sj_date
sj_date=DateAdd("d",-10,now())
sqlstr="SELECT ID,name FROM tblmates WHERE regdate>#"&sj_date&"# AND power<>0 ORDER BY regdate DESC"
rs.open sqlstr,conn,1,1
newend2=rs.RecordCount
if newend2>8 then
newend2=8
end if
if newend2>0 then
for i=1 to newend2
%>
<a href="viewinfo.asp?id=<% =rs("ID") %>" title="查看该同学详细资料"><% =rs("name") %></a>
<%
rs.MoveNext
if i=newend2 then
Response.Write "<br>"
end if
next
else
Response.Write "（无）"
end if
rs.close
%>
</td>
</tr></table>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdd"><tr>
<td width="100%" valign="top" style="padding:4px;">
资料变更：<%
sj_date=DateAdd("d",-50,now())
sqlstr="SELECT ID,name FROM tblmates WHERE moddate>#"&sj_date&"# ORDER BY moddate DESC"
rs.open sqlstr,conn,1,1
IF NOT(rs.eof AND rs.bof) THEN
FOR i=1 to 8
if rs.eof then
EXIT FOR
end if
%>
<a href="viewinfo.asp?id=<% =rs("ID") %>" title="查看该同学详细资料"><% =rs("name") %></a>
<% rs.MoveNext
Next
ELSE
Response.Write "（无）"
END IF
rs.close
%>
</td>
</tr></table>
<table align="center" width="700" height="104" border="0" cellspacing="0" cellpadding="0" style="background:<% =bg2 %>;border-bottom:5px solid <% =bg1 %>; border-top:5px solid <% =bg1 %>;border-right:5px solid <% =bg1 %>;"><tr>
<th width="25" height="100%" style="background:<% =bg1 %>;">
新<br>近<br>到<br>访
</th>
<td width="330" valign="top">
<%
sqlstr="SELECT top 4 ID,name,sex,power,lastlog FROM tblmates ORDER BY lastlog DESC,ID"
rs.open sqlstr,conn,1,1
IF NOT(rs.eof AND rs.bof) THEN
FOR i=1 to rs.RecordCount
'判断身份或者性别
IF rs("power")>1 THEN
icn_sex="img/icn_adm1.gif"
ELSEIF rs("sex")=True THEN
icn_sex="img/icn_gg.gif"
ELSE
icn_sex="img/icn_mm.gif"
END IF
'总管判断
if DEF_sysadm=rs("name") then
icn_sex="img/icn_admsys.gif"
end if
%>
<table align="center" width="100%" height="25" border="0" cellspacing="0" cellpadding="0" class="rde">
<tr>
<td width="160" align="center" class="rdr">
<img src="<% =icn_sex %>" border="0" align="absmiddle"> <a href="viewinfo.asp?id=<% =rs("ID") %>" title="查看该同学详细资料"><% =rs("name") %></a>
</td>
<td align="center">
<% =rs("lastlog") %>
</td>
</tr>
</table>
<% rs.MoveNext
Next
END IF
rs.close
%>
</td>
<th width="25" style="background:<% =bg1 %>">
发<br>水<br>英<br>雄<br>榜
</th>
<td width="315" valign="top">
<%
sqlstr="SELECT top 4 ID,name,sex,power,cnt_water FROM tblmates ORDER BY cnt_water DESC,ID"
rs.open sqlstr,conn,1,1
IF NOT(rs.eof AND rs.bof) THEN
FOR i=1 to rs.RecordCount
'判断身份或者性别
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -