?? 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 + -