chk_admin_login.asp

报名系统

<!--#include file=conn.asp-->
<%
dim sql
dim rs
dim seekerrs
dim founduser
dim username
dim companyid
dim password
dim errmsg
dim uname
dim founderr
founderr=false
FoundUser=false
username=trim(request.form("username"))
password=trim(Request.Form("password"))
if username="" then
   response.redirect "admin_login.asp"
end if
if password="" then
     response.redirect "admin_login.asp"
end if

set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,1,1
if not rs.eof then
 if password=rs("password") then
    uname=rs("uname")

   response.cookies("adminok")=true
response.redirect "admin_edit.asp?uname="&uname&""
 else
     response.redirect "admin_login.asp"
      end if
else
     response.redirect "admin_login.asp"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing

%>