?? dex.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="fenlei.asp"-->
<%
sql = "select * from config"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
schoolname = rs("schoolname")
stu = rs("stu")
stunum = trim(rs("stunum"))
stuname = rs("stuname")
gonggao = rs("gonggao")
todaytimes = rs("todaytimes")
times = rs("times")
if rs("todaydate") <> date() then
rs("todaydate") = date()
rs.update
todaytimes = 0
end if
if request.cookies("counted") <> "yes" then
response.cookies("counted") = "yes"
response.cookies("counted").expires = now() + 1/72
times = times + 1
todaytimes = todaytimes + 1
rs("times") = times
rs("todaytimes") = todaytimes
rs.update
end if
rs.close
dim num1
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/css.css" type="text/css">
<title><%=schoolname%></title>
<script language="javascript">
function showdetail(id)
{
window.open("detail.asp?id="+id,"detail","width=400,height=400,resizable=no,scrollbars=yes,menubar=no,status=no");
}
</script>
</head>
<body text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="head.asp"-->
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=5 width="750" border=0>
<tr align=center valign=top>
<td width=170>
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width=100% border=1>
<tr class="header"><td align=center>管理員公告</td></tr>
<tr height=210>
<%if gonggao <> "" then%>
<td align=center valign=middle>
<marquee id=newslist onmouseover=newslist.stop() onmouseout=newslist.start()
scrollAmount=1 scrollDelay=80 direction=up width=90% height=200><%=gonggao%></marquee>
<%else%>
<td align=left valign=top>
暫無
<%end if%>
</td></tr>
</table>
<br>
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width=100% border=1>
<tr class="header">
<td align=center>新注冊教師</td>
</tr>
<tr height=90><td align=left valign=top>
<%
sql = "select * from teacher order by teacherid desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write " 暫無"
else
for i = 1 to 5
if rs.eof then exit for
response.write " <font color=#42a5f7 face=Wingdings>v</font>"
response.write " <a href=teacherinfo.asp?id="&rs("teacherid")&" title='查看"&rs("teacher")&"的個人專集'>"&rs("teacher")&"</a>（"&rs("fenlei2")&"）<br>"
rs.movenext
next
end if
rs.close
%>
</td></tr>
</table>
<form action="list.asp" method="post">
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width=100% border=1>
<tr><td align="center" class="header" colspan=2>快速搜索</td></tr>
<tr>
<td width=40 align="center">資料</td>
<td> <input type=text name="course" size=12></td>
</tr>
<tr>
<td align="center">標題</td>
<td> <input type=text name="title" size=12></td>
</tr>
<%
sql = "select * from type"
rs.open sql,conn,1,1
%>
<tr>
<td align="center">類型</td>
<td>
<select name="filetype">
<option value="" selected>請選擇 </option>
<%
do while not rs.eof
%>
<option value="<%=rs("typeid")%>"><%=rs("type")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
</td>
</tr>
<tr><td colspan=2 align=center>
<input type=submit name="submit" value="搜索">
<input type=reset name="reset" value="清空">
</td></tr>
</table>
</form>
</td>
<td width=430>
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width=100% border=1>
<tr class="header"><td align=center colspan=4>最近更新</td></tr>
<tr align=center class="category"><td width=180>資料標題</td><td>教師姓名</td><td>更新日期</td><td>所屬<%=strfenlei2%></td></tr>
<%
sql = "select * from main,teacher where main.idofteacher=teacher.teacherid order by main.dateandtime desc"
rs.open sql,conn,1,1
for i = 1 to 10
if rs.eof then
response.write "<tr><td> </td><td> </td><td> </td><td> </td></tr>"
else
dateandtime = rs("dateandtime")
updatedate = year(dateandtime)&"/"&month(dateandtime)&"/"&day(dateandtime)
if len(rs("title")) > 10 then
filetitle = left(rs("title"),10)&"..."
else
filetitle = rs("title")
end if
%>
<tr><td align=left> <img src=images/arrow.gif>
<a href=# title="<%=rs("title")%>" onclick=javascript:showdetail(<%=rs("mainid")%>);><%=filetitle%></a>
</td><td align=center><a href=teacherinfo.asp?id=<%=rs("teacherid")%> title="查看<%=rs("teacher")%>的個人專集"><%=rs("teacher")%></a></td>
<td align=center><%=updatedate%></td>
<td align=left> <%=rs("fenlei2")%></td></tr>
<%
rs.movenext
end if
next
rs.close
%>
</table>
<br>
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width=100% border=1>
<tr class="header"><td align=center colspan=4>閱讀排行</td></tr>
<tr align=center class="category"><td width=180>資料標題</td><td>教師姓名</td><td>閱讀次數</td><td>所屬<%=strfenlei2%></td></tr>
<%
sql = "select * from main,teacher where main.idofteacher=teacher.teacherid order by main.times desc"
rs.open sql,conn,1,1
for i = 1 to 10
if rs.eof then
response.write "<tr><td> </td><td> </td><td> </td><td> </td></tr>"
else
if len(rs("title")) > 10 then
filetitle = left(rs("title"),10)&"..."
else
filetitle = rs("title")
end if
%>
<tr><td align=left> <img src=images/arrow.gif>
<a href=# title="<%=rs("title")%>" onclick=javascript:showdetail(<%=rs("mainid")%>);><%=filetitle%></a>
</td><td align=center><a href=teacherinfo.asp?id=<%=rs("teacherid")%> title="查看<%=rs("teacher")%>的個人專集"><%=rs("teacher")%></a></td>
<td align=center><%=rs("times")%></td>
<td align=left> <%=rs("fenlei2")%></td></tr>
<%
rs.movenext
end if
next
rs.close
%>
</table>
</td>
<td width=150>
<form action="check.asp" method="post">
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width=100% border=1>
<tr class="header"><td align=center colspan=2>教師登陸</td></tr>
<tr><td width=45 align=center>登錄名</td><td align=left> <input type=text name="id" size=10 title="請輸入您的登錄名或ID"></td></tr>
<tr><td width=45 align=center>密碼</td><td align=left> <input type=password name="password" size=10 title="請輸入您的密碼"></td></tr>
<tr><td width=45 align=center>驗證碼</td><td align=left> <input type=text name="verifycode" size=4 title="請輸入右側的數字"> <img src="num.ASP">
</td></tr>
<tr><td colspan=2 align=center><input type=submit name="submit" value="登陸">
</td>
</tr>
</table>
</form>
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width=100% border=1>
<tr class="header"><td align=center>資源列表</td></tr>
<tr height=254><td align=left valign=top>
<%
sql = "select count(teacherid) from teacher"
rs.open sql,conn,1,1
teachercount = rs(0)
rs.close
response.write "<center>本站現有<br></center>"
response.write " <font color=#42a5f7 face=Wingdings>v</font> <a href=teacherlist.asp>注冊教師</a>："&teachercount&"<br>"
sql = "select * from type"
rs.open sql,conn,1,1
set rs1 = server.createobject("adodb.recordset")
do while not rs.eof
response.write " <font color=#42a5f7 face=Wingdings>v</font> <a href=list.asp?filetype="&rs("typeid")&">"&rs("type")&"</a>："
sql1 = "select count(mainid) from main where idoftype="&rs("typeid")
rs1.open sql1,conn,1,1
response.write rs1(0)&"<br>"
rs1.close
rs.movenext
loop
set rs1 = nothing
rs.close
%>
</td></tr></table>
<br>
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 align=center cellPadding=1 width=100% border=1>
<tr class="header"><td align=center>訪問統計</td></tr>
<tr height=40><td align=left valign=top>
<font color=#42a5f7 face=Wingdings>v</font> 總訪問量：<%=times%><br>
<font color=#42a5f7 face=Wingdings>v</font> 今日訪問：<%=todaytimes%>
</td></tr>
</table>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->
<SCRIPT>
var online= new Array();
if (!document.layers)
document.write('<div id="divStayTopLeft" style="position:absolute">')
</SCRIPT>
<LAYER id=divStayTopLeft>
<TABLE cellSpacing=0 cellPadding=0 width=110 border=0>
<TBODY>
<TR>
<TD width=110 class="header"> </TD>
</TR>
<SCRIPT src="1.files/getonline.htm"></SCRIPT>
<TR>
<TD vAlign=center background=1.files/kefu_middle.gif> <div align="center"><a target=blank href=tencent://message/?uin=745882321&Site=www.iiguo.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:745882321:1 alt="業務聯系請點擊"></a>
</div></TD>
</TR>
<TR>
<TD vAlign=center background=1.files/kefu_middle.gif> <div align="center"><a target=blank href=tencent://message/?uin=417550223&Site=www.iiguo.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:417550223:1 alt="業務聯系請點擊"></a>
</div></TD>
</TR>
<TR>
<TD vAlign=center background=1.files/kefu_middle.gif> <div align="center"><a target=blank href=tencent://message/?uin=89664230&Site=www.iiguo.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:89664230:1 alt="業務聯系請點擊"></a>
</div></TD>
</TR>
<TR>
<TD width=110 class="header"> </TD>
</TR>
</TBODY>
</TABLE>
</LAYER>
<SCRIPT type=text/javascript>
var verticalpos="frombottom"
if (!document.layers)
document.write('</div>')
function JSFX_FloatTopDiv()
{
var startX =3,
startY = 350;
var ns = (navigator.appName.indexOf("Netscape") != -1);
var d = document;
function ml(id)
{
var el=d.getElementById?d.getElementById(id):d.all?d.all[id]:d.layers[id];
if(d.layers)el.style=el;
el.sP=function(x,y){this.style.left=x;this.style.top=y;};
el.x = startX;
if (verticalpos=="fromtop")
el.y = startY;
else{
el.y = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
el.y -= startY;
}
return el;
}
window.stayTopLeft=function()
{
if (verticalpos=="fromtop"){
var pY = ns ? pageYOffset : document.body.scrollTop;
ftlObj.y += (pY + startY - ftlObj.y)/8;
}
else{
var pY = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
ftlObj.y += (pY - startY - ftlObj.y)/8;
}
ftlObj.sP(ftlObj.x, ftlObj.y);
setTimeout("stayTopLeft()", 10);
}
ftlObj = ml("divStayTopLeft");
stayTopLeft();
}
JSFX_FloatTopDiv();
</SCRIPT>
<%
set rs = nothing
conn.close
set conn = nothing
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -