<% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ eWebEditor - eWebSoft在线编辑器 ☆ '★ ★ '☆ 版权所有: eWebSoft.com ☆ '★ ★ '☆ 程序制作: eWeb开发团队 ☆ '★ email:webmaster@webasp.net ★ '☆ QQ:589808 ☆ '★ ★ '☆ 相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆ '★ [支持论坛]http://bbs.eWebSoft.com/ ★ '☆ ☆ '★ 主页地址: http://www.eWebSoft.com/ eWebSoft团队及产品 ★ '☆ http://www.webasp.net/ WEB技术及应用资源网站 ☆ '★ http://bbs.webasp.net/ WEB技术交流论坛 ★ '★ ★ '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ %> <% ' 初始化数据库连接 Call DBConnBegin() Dim sAction, sErrMsg Dim s_Usr, s_Pwd sAction = UCase(Trim(Request("action"))) sErrMsg = "" Select Case sAction Case "LOGIN" s_Usr = Trim(Request("usr")) s_Pwd = Trim(Request("pwd")) If s_Usr <> "" And s_Pwd <> "" Then sSql = "select * from ewebeditor_system" oRs.Open sSql, oConn, 0, 1 If Not oRs.Eof Then If oRs("sys_username") = md5(s_Usr) And oRs("sys_userpass") = md5(s_Pwd) Then ' 登录成功 Session("eWebEditor_User") = s_Usr Session("eWebEditor_Version") = oRs("sys_version") Response.Redirect "admin_default.asp" Response.End End If End If oRs.Close End If sErrMsg = "提示：用户名或密码错误！" Case "OUT" Session("eWebEditor_User") = "" End Select ' 释放数据连接对象 Call DBConnEnd() %>

管 理 员 登 录 <%=sErrMsg%> 用户名： 密　码：