sysenter.asp

来自「媒体中国-设计联盟」· ASP 代码 · 共 45 行

<% 
'=========================================================
' File: sysenter.asp
' Version:2.0test
' Date: 2002-12-21
' Script Written by Icyn
'=========================================================
' Copyright (C) 2002,2003 Icyn.Net All rights reserved.
' Web: http://pwc.net,http://bbs.icyn.net,http://icyn.net
' Email: [e-mail],[e-mail]
' QQ:15477885
'=========================================================
 %><!--#include file="dbinc/dbpath.asp" -->
<%


Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from admin where picksysuser='"&Trim(request.form("sysuser"))&"' and picksyspwd='"&Trim(request.form("syspwd"))&"'",conn
if rs.bof and rs.eof then
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  response.redirect "index.asp"
  response.end
else
  if rs("picksysdo")<>"admin" then
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    response.redirect "index.asp"
    response.end
  end if
end if

session("zkpicksysuser")=rs("picksysdo")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "syslist.asp"
response.end
%>