chklogin.asp

来自「asp信息查询系统+论文 毕业设计全套 该系统介绍的是一个小型信息搜寻类信息查」· ASP 代码 · 共 29 行

<%
dim sql
dim rs
dim seekerrs
dim founduser
dim username
dim companyid
dim password
dim errmsg
dim founderr
founderr=false
FoundUser=false
username=request.form("username")
password=request.Form("password")
if username="" then
   response.redirect "index.asp"
end if
if password="" then
     response.redirect "index.asp"
end if

 if username="admin" and password="admin" then
   response.cookies("adminok")=true
   response.redirect "manage.asp"
 else
     response.redirect "index.asp"
 end if
%>