index.asp

晴和教务管理系统

<!--#include file="inc/top.asp"-->
<!--#include file="inc/md5.asp"-->
<%
loginout = request("loginout")
IF loginout = "logincheck" Then
logincheck()
End If
%>
<!--1-->
<div align="center">
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<!--left--> 
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="table-you">
<!--#include file="loginout.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" bgcolor="f1f1f1" background="images/menu_02.gif" valign="bottom">
<p align="right">快 速 查 询 通 道 &nbsp;&nbsp;&nbsp;</td>
</tr>
<tr> 
<td> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="70">
<tr> 
<td height="20" align="center"> 
如何使用本系统<br>
<a href="bjmccx.asp">班级名册查询</a><br>
学生、教师资料查询<br>
教室使用情况查询<br>
学生成绩查询<br>
教师/学生资料查询</td>
</tr>
<tr> 
<td height="1"></td>
</tr>
</table>
</td>
</tr>
</table>

</td>
<!--center-->
<td width="400" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td class="table-shangxia" bgcolor="#ffffff" height="35">
<img src="images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp>教学系统</a> 
&gt;&gt; &gt;&gt; 教学新闻
</td>
</tr>
<TR>
<td bgcolor="#ffffff" height="35">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td bgcolor="#ffffff" height="5"></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from Jw_news where lock = 0 order by adddate desc",conn,1,3
do while not rs.eof
newsname=rs("newsname")
If Len(newsname)>25 Then newsname=Left(newsname,20)&"……"
%>
<TR>
<td bgcolor="#ffffff" height="25" width="3%"></td>
<td bgcolor="#ffffff" height="25" width="70%"><img border="0" src="images/list01.gif" width="9" height="9"> <a href="/jw/news/dispnews.asp?newsid=<% =rs("newsid")%>"><% =newsname%></a> [<font color=red><% =rs("viewcount")%></font>]</td>
<td bgcolor="#ffffff" height="25" width="20%" align="center"><%=year(rs("adddate"))&"-"&month(rs("adddate"))&"-"&day(rs("adddate"))%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table>
</td>
<!--right-->
<td width="180" bordercolor="#FFFFFF" bgcolor="#FFFFFF"  valign="top" class="table-zuo">

<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="images/menu_03.gif" align="right" valign="bottom">最 新 消 息&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>
<td>
<table width="90%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr> 
<td align="center" height="5">
</td>
</tr>
<tr> 
<td align="center">
<marquee width="100%" height="150" direction="up" scrolldelay="1" scrollamount="1"><!--#include file="a.txt"--></marquee>
</td>
</tr>
<tr> 
<td align="center" height="5">
</td>
</tr>
</table>
</td>
</tr>
</table>

<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="images/menu_10.gif" align="right" valign="bottom">
学 生 / 教 师 查 询&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>
<td>
<table width="90%" border="0" cellspacing="0" cellpadding="2" align="center">
<form name="34" method="post" action="checkuserlogin.asp">
<tr> 
<td align="center"><font color="#999999">请输入姓名，支持模糊查询</font></td>
</tr>
<tr> 
<td align="center">姓名： 
<input type="text" class="wenbenkuang" name="username" size="16">
</td>
</tr>
<tr> 
<td align="center">选择查询对象： 
<select size="1" name="D1">
	<option value="教师">教师</option>
	<option value="学生">学生</option>
</select></td>
</tr>
<tr> 
<td align="center" height="38"> 
<input class=go-wenbenkuang name="imageField" value="查 询" type=submit onFocus="this.blur()">
<input class=go-wenbenkuang onclick="window.location='reg.asp'" type=reset value="重 新 输 入" name=Submit2>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>

</td>
<!--end-->
</tr>
</table>
</div>
<!--2-->
<div align="center">
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<!--left--> 
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="table-you">

<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="images/menu_05.gif" align="right" valign="bottom">
投 票&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>
<td>
<table width="90%" border="0" cellspacing="0" cellpadding="2" align="center">
<form name="sf" method="post" action="checkuserlogin.asp">
<tr> 
<td align="center"><font color="#999999">你认为本站还应该：</font></td>
</tr>
<tr> 
<td><input type="radio" value="V1" checked name="R1">加强整体布局及色彩处理</td>
</tr>
<tr> 
<td><input type="radio" name="R1" value="V2">充实网站栏目和内容</td>
</tr>
<tr> 
<td><input type="radio" name="R1" value="V2">提供更多使用的内容</td>
</tr>
<tr> 
<td><input type="radio" name="R1" value="V2">其它方面的建议</td>
</tr>
<tr> 
<td align="center" height="38"> 
<input class=go-wenbenkuang name="imageField" value="提 交" type=submit onFocus="this.blur()">
<input class=go-wenbenkuang onclick="window.location='reg.asp'" type=reset value="重 选" name=Submit2>
<input class=go-wenbenkuang onclick="window.location='getpwd.asp'" type=button value="更 多" name=Submit3>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" bgcolor="f1f1f1" background="images/menu_07.gif" valign="bottom">
<p align="right">订 阅 邮 件 列 表 &nbsp;&nbsp;&nbsp;</td>
</tr>
<tr> 
<td> 
<table width="90%" border="0" cellspacing="0" cellpadding="2" align="center">
<form name="fg" method="post" action="">
<tr> 
<td align="center"><font color="#999999">随时收到最新更新消息</font></td>
</tr>
<tr> 
<td align="center">
邮件地址：<input type="text" class="wenbenkuang" name="username0" size="14"></td>
</tr>
<tr> 
<td align="center" height="35">
<input class=go-wenbenkuang name="imageField0" value="订 阅" type=submit>
<input class=go-wenbenkuang type=reset value="取 消 订 阅" name=Submit4>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>

</td>
<!--center-->
<td width="400" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td class="table-shangxia" bgcolor="#ffffff" height="35">
<img src="images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp>教学系统</a> 
&gt;&gt; &gt;&gt; 程序下载
</td>
</tr>
<TR>
<td bgcolor="#ffffff" height="35">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td bgcolor="#ffffff" height="5"></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from Jw_news where lock = 0 order by adddate desc",conn,1,3
do while not rs.eof
newsname=rs("newsname")
If Len(newsname)>25 Then newsname=Left(newsname,20)&"……"
%>
<TR>
<td bgcolor="#ffffff" height="25" width="3%"></td>
<td bgcolor="#ffffff" height="25" width="70%"><img border="0" src="images/list01.gif" width="9" height="9"> <a href="/jw/news/dispnews.asp?newsid=<% =rs("newsid")%>"><% =newsname%></a> [<font color=red><% =rs("viewcount")%></font>]</td>
<td bgcolor="#ffffff" height="25" width="20%" align="center"><%=year(rs("adddate"))&"-"&month(rs("adddate"))&"-"&day(rs("adddate"))%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table>
</td>
<!--right-->
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="table-zuo">

<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="images/menu_08.gif" align="right" valign="bottom">最 新 
程 序&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>
<td>
<table width="90%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr> 
<td align="center">
　</td>
<td align="left">
瑞星2004最新版[<font color="#FF0000">54</font>]<br>
优化大师6.2[<font color="#FF0000">63</font>]<br>
金山游侠V[<font color="#FF0000">18</font>]<br>
天网防火墙2.7破解版[<font color="#FF0000">98</font>]<br>
超级兔子魔法设置2004[<font color="#FF0000">15</font>]<br>
美萍网管大师[<font color="#FF0000">65</font>]<br>
Dvbbs7.0sp2[<font color="#FF0000">13</font>]</td>
</tr>
</table>
</td>
</tr>
</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" bgcolor="f1f1f1" background="images/menu_04.gif" valign="bottom">
<p align="right">合 作 伙 伴&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr> 
<td> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="70">
<tr> 
<td height="20" align="center"> 
<a href="http://www.qinhee.com">晴和阳光工作室</a><br>
学生工作部<br>
BBS水木清华站<br>
中国大学生联盟<br>
<a href="http://www.chinaren.com">Chinaren校友录</a></td>
</tr>
<tr> 
<td height="1"></td>
</tr>
</table>
</td>
</tr>
</table>

</td>
<!--end-->
</tr>
</table>
</div>
<%
function logincheck()

dim Lx,No,Password,Verifycode
Lx = request.form("Lx")
Num = request.form("Num")
Password = Md5(request.form("Password"))
verifycode = request.form("verifycode")

if Num="" or Password="" then
response.write "<script LANGUAGE='javascript'>alert('您的学号(编号)或密码有误！');history.go(-1);</script>"
response.end
end if
if cstr(session("getcode"))<>cstr(trim(request("verifycode"))) then
response.Write "<script LANGUAGE='javascript'>alert('请输入正确的验证码！');history.go(-1);</script>"
response.end
end if

set rs=server.CreateObject("adodb.recordset")
select case Lx
case "student"
Lx="学生"
sql="select * from Jw_student where Num='" & Num & "' and password = '"& password &"'"
case "teacher"
Lx="教师"
sql="select * from Jw_teacher where Num='" & Num & "' and password = '"& password &"'"
end select
rs.Open sql,conn,1,3


if not rs.bof and not rs.eof then
response.Cookies("jiaowu")("login") = "true"
response.Cookies("jiaowu")("Lx") = Lx
response.Cookies("jiaowu")("Num") = Num
response.Cookies("jiaowu")("Name") = rs("Name")
response.Cookies("jiaowu")("Lastlogin") = rs("Lastlogin")
response.Cookies("jiaowu")("LastloginIP") = rs("LastloginIP")
rs("Lastlogin") = date()
rs("LastloginIP") = Request.ServerVariables("REMOTE_ADDR")
rs("Logins") = rs("Logins")+1
rs.Update
rs.Close
set rs=nothing
response.redirect "index.asp"
else
response.write "<script LANGUAGE='javascript'>alert('对不起，您的学号(编号)或密码有误！');history.go(-1);</script>"
end if


end function
%><!--#include file="inc/end.asp"-->