管理员登录(8)

        password = MD5(Trim(Replace(Request("password"), "'", "")), 16) 
        If Request("verifycode") = "" Then 
            errmsg = errmsg + "<br>" + "<li>请返回输入确认码。" 
            Founderr = True 
        ElseIf Session("getcode") = "9999" Then 
            Session("getcode") = "" 
        ElseIf Session("getcode") = "" Then 
            errmsg = errmsg + "<br>" + "<li>请不要重复提交，如需重新登陆请返回登陆页面。" 
            Founderr = True 
        ElseIf CStr(Session("getcode")) <> CStr(Trim(Request("verifycode"))) Then 
            errmsg = errmsg + "<br>" + "<li>您输入的确认码和系统产生的不一致，请重新输入。" 
            Founderr = True 
        End If 
        Session("getcode") = "" 
        If username = "" Or password = "" Then 
            Founderr = True 
            errmsg = errmsg + "<br>" + "<li>请输入您的用户名或密码。<li>" 
        End If 
        If Founderr Then Exit Sub 
        ip = Replace(Request.ServerVariables("REMOTE_ADDR"), "'", "") 
        Dim Rs 

        Set Rs = Mesky.Execute("select * from Mesky_SiteManager where username='" & username & "'") 
        If Rs.EOF And Rs.BOF Then 
            Set Rs = Nothing