checklogin.asp

成绩查询管理系统

<%
response.buffer=true
Response.Expires=0
if session("pwd")<>"" then
mm=session("pwd")
else
mm=request("mm")
end if
if session("user")<>"" then
xh=session("user")
else
xh=request("xh")
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("#sp25175_class.asp")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select id from user where xh='"&xh&"' and mm='"&mm&"'"
rs.open sql,conn,3,3

if rs.eof then
response.write("<table width=300 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<script language=JavaScript>" & chr(13) & "alert('无效的学号或密码，请重新确认');" & "history.back()" & "</script>")
response.write("</table>")
response.end
else
session("pwd")=mm
session("user")=xh
define="1"
%>

<!-- #include file=inc/top.asp -->
<!-- #include file="inc/stumenu.asp"-->
<table><tr><td height=10></td></tr></table>
<table cellpadding=0 cellspacing=0 border=1 width=768 align=center bordercolor=#dddddd>
    <tr>
        <td width=5% align=center>编号</td><td>公告具体内容</td><td width=8% align=center align=center>发布者</td><td width=13% align=center align=center>发布时间</td>
    </tr>
    <%
        sql="select top 5 * from notice order by id desc"
        set rs=conn.execute(sql)
        i=1
        do while not (rs.eof or rs.bof)
    %>
    <tr <%if i mod 2 =1 then Response.Write("bgcolor=#eeeeee")%> valign=top>
        <td align=center><%=rs("id")%></td><td><%=rs("content")%></td><td align=center><%=rs("puser")%></td><td align=center><%=rs("putime")%></td>
    </tr>
    <%
        i = i + 1
        rs.movenext
        loop
        set conn=nothing
        set rs=nothing
    %>
</table>
<table><tr><td height=20></td></tr></table>
<!-- #include file=inc/copyr.asp -->
<%
end if
%>