chklogin.asp

来自「MisCMS源码」· ASP 代码 · 共 20 行

<!--#include file="../inc/MyFunction.Asp"-->
<% 
adminname=goback(trim(request.Form("adminname")),"请输入用户名！")
adminpassword=goback(trim(request.Form("adminpassword")),"未输入密码！")
verifycode=goback(trim(request.Form("verifycode")),"未输入验证码！")
if adminname<>"" & admname & "" then
call alertback("错误的用户名，请重新输入！","1")
else
if adminpassword<>"" & admpwd & "" then
call alertback("错误的密码，请重新输入！","1")
else
if cstr(verifycode)<>cstr(session("getcode")) then
call alertback("验证码不正确，请重新输入！","1")
else
session("level")="adm"
call alerturl("登录成功！","ok.asp")
end if
end if
end if
 %>