chklogin.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 46 行

<!--#include file=newconn.asp-->
<%
dim sql
dim rs
dim seekerrs
dim founduser
dim adminame
dim companyid
dim adminpwd
dim errmsg
dim founderr
founderr=false
FoundUser=false
adminame=trim(request.form("username"))
adminpwd=trim(Request.Form("password"))
if adminame="" then
      response.write "<link rel='stylesheet' type='text/css' href='forum.css'>"
   response.write "请输入管理员名字！"
end if
if adminpwd="" then
      response.write "<link rel='stylesheet' type='text/css' href='forum.css'>"
     response.redirect "请输入管理员密码！"
end if

set rs=server.createobject("adodb.recordset")
sql="select * from admin where adminame='"&adminame&"'"
rs.open sql,conn,1,1
if not rs.eof then
 if adminpwd=rs("adminpwd") then
   response.cookies("adminok")=true
   response.redirect "boardmanager.asp"
 else
      response.write "<link rel='stylesheet' type='text/css' href='forum.css'>"
     response.write "Sorry,请输入正确的管理员名字和密码"
 end if
else
      response.write "<link rel='stylesheet' type='text/css' href='forum.css'>"
     response.write "Sorry,请输入正确的管理员名字和密码"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing

%>