<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
If rf("submit") = "管理登錄" Then
Call null_back(rf("login_name"), "用戶(hù)名不能為空！")
Call null_back(rf("login_password"), "密碼不能為空！")
Call null_back(rf("login_verifycode"), "驗(yàn)證碼不能為空！")
If CStr(Session("CheckCode")) <> CStr(Request.Form("login_verifycode")) Then
Call alert_href("驗(yàn)證碼錯(cuò)誤！","cms_login.asp")
End If
Set rs = ado_query("select * from cms_admin where a_enable = 1 and a_name='"&str_safe(request.Form("login_name"))&"' and a_password='"&md5(str_safe(request.Form("login_password")))&"'")
If Not rs.EOF Then
Response.Cookies("admin_check") = request.Form("login_name")
rs.close
set rs = nothing
response.redirect "cms_welcome.asp"
Else
rs.close
set rs = nothing
Call alert_href("錯(cuò)誤提示：用戶(hù)名或密碼錯(cuò)誤，請(qǐng)核對(duì)后重新輸入！","cms_login.asp")
End If
End If
%>
小说阅读网站,玄幻小说完本,盛世嫡妃 凤轻 小说