<% Option Explicit %>
<%
'######################################
' eWebEditor v6.2 - Advanced online web based WYSIWYG HTML editor.
' Copyright (c) 2003-2008 eWebSoft.com
'
' For further information go to http://www.ewebsoft.com/
' This copyright notice MUST stay intact for use.
'######################################
%>
<%
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 = sUsername And s_Pwd = sPassword Then
Session("eWebEditor_User") = s_Usr
Response.Redirect "default.asp"
Response.End
End If
sErrMsg = "提示：用户名或密码错误！"
Case "OUT"
Session("eWebEditor_User") = ""
End Select
%>
eWebEditor在线编辑器 - 后台管理
