check.asp

来自「报名系统。带源代码的asp 可以自动在实现网上报名]」· ASP 代码 · 共 27 行

<!-- #include file=conn.asp -->
<%
Set Rs = Server.CreateObject("ADODB.Recordset")

   Rs.open "select top 1 * from guanli",con,1,1
   if Rs.eof or Rs.bof then
      response.write "数据库错误,数据库中注管理员已经不存在,请添加记录后再操作!"
      Rs.close
      set Rs=nothing
      con.close
      set con=nothing
      response.end
   end if
   if session("mima")<>Rs("mima") then
      response.write "密码错误!"
      Rs.close
      set Rs=nothing
      con.close
      set con=nothing
      Response.Redirect "login.asp"
      response.end
   end if
   Rs.close
%>
<table width=100% bgcolor=#f0f0f0><tr><td><a href=guanli.asp>报名查看</a></td><td><a href=xiangmu.asp>项目管理</a></td><td><a href=jiaofei.asp>付费管理</a></td><td><a href=mima.asp>修改密码</a></td><td><a href=tuichu.asp>退出系统</a></td><td><a href=http://www.yuxisan.com>在线帮助</a></td></tr></table>
<br>
<br>