'--------------补充说明------------
'本人将陆续提供新版本的补丁。
'---------------fun.asp
'找到sysdsinfo(sysnl)
'如果你不用本人提供的仿chinaren风格，请不要修改sysdsinfo(sysnl)。请另取名。
'比如sysdsinfo2(sysnl)
'然后替换本人提供的以下ledt1.asp中的Call SysdsInfo为你修改的相应的，比如Call SysdsInfo2
'-----------------本人写的比较详细，高手就别见怪了，为了方便刚刚使用bbsgood的用户。
'images/close_2.gif图片你可以去[www.cdcg.cn]下载


'----------------交流QQ群：19407405(验证:bbsgood)----------------------------










Function SysdsInfo(sysnl) 
        
        Response.Write "<table width=""450"" height=""50""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
        Response.Write "<tr><td height=""20"">"
        Response.Write "<table width=""100%"" height=""20""  border=""0"" class=""liuleft3"">"
        Response.Write "<tr><td>"
        Response.Write "<table width=""100%"" height=""20""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
        Response.Write "<tr><td width=""90%"" height=""20"" valign=""middle"" class=""liuleft13 center03 bold pdt3"">"
        Response.Write "<div align=""center"">提示</div>"
        Response.Write "</td>"
        Response.Write "<td width=""5%"">&nbsp;"
        Response.Write "<a href=# onclick=window.location.href('left1.asp?boardid="&boardid&"');>"
        Response.Write "<img src=""images/close_2.gif"" border=""0"" width=""16"" height=""16""></a></td>"
        Response.Write " </tr></table>"
        Response.Write "</td></tr></table>"
        Response.Write "</td></tr>"
        Response.Write "<tr><td height=""30""   class=""center01"">"
        Response.Write "<div align=""center"">"&sysnl&"</div>"
        Response.Write "</td></tr></table>"   

End Function


'---------------------fun.asp-----sysdsinfo(sysnl)----修改结束------------









'------left1.asp
'直接搜索closedata，然后替换第一个closedata到第二个closedata之间的即可。支持最新版本。

<%
    end if
    closedata
    Response.End
  
Else




 


    UserName=RequestCStringSafe(trim(Request.Form("UserName")))
    PassWord=RequestCStringSafe(trim(Request.Form("PassWord")))
    If username="" or password="" then 
        
                Call SysdsInfo("登陆失败：用户名或密码输入有误！") 
                Call SaveMatter("用户登陆失败","用户登陆发生失败，没有找到"&UserName&"这个帐号",0)
        Response.End
    Else
        if not IsObject(conn) then
        LinkData
        end if
        sql="select ID,admin,Lock,UserName,PassWord,LastLogin,LoginNum,LastIP from LxTel_User where UserName='"&UserName&"' "
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.open sql,conn,1,3
        if rs.BOF and rs.EOF then 

                Call SysdsInfo("登陆失败：用户名错误！") 
                Call SaveMatter("用户登陆失败","用户登陆发生失败，用户名错误",0)

 
        else
            if rs("password")=md5(password) and rs("username")=UserName and rs("Lock")=0 and trim(Request.Form("yzm"))=trim(Request.Cookies(bbsinfo&"yzm")) then
                if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then ipdress=Request.ServerVariables("REMOTE_ADDR") else ipdress=Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if
                If Instr(1,Application(BBSInfo&"sysinfo")(46,0),ipdress)>0 then
         
                        Call SysdsInfo("登陆失败：你的IP被锁定！") 
                        Call SaveMatter("用户登陆失败","对方的IP地址被系统锁定，帐号为:"&UserName&"",0) 
                    closedata
                    Response.End                    
                end if
                conn.Execute ("delete from LxTel_Online where username='"&username&"'")
                rs("LastLogin")=now()
                rs("LoginNum")=rs("LoginNum")+1
                rs("LastIP")=ipdress
                rs.Update
                
                admin=cstr(rs("admin"))
                Application(BBSInfo&"loginuser")=Application(BBSInfo&"loginuser")+username+"|"+md5(password)+"|"+admin+"|#"
                If Cint(Request.Form("passsave"))=1 then
                    Response.Cookies(BBSInfo&"username").Expires=date+365
                    Response.Cookies(BBSInfo&"password").Expires=date+365
                    Response.Cookies(BBSInfo&"admin").Expires=date+365                
                end if
                Response.Cookies(BBSInfo&"username")=username
                Response.Cookies(BBSInfo&"password")=md5(password)
                Response.Cookies(BBSInfo&"admin")=admin
 
 

                    Call SysdsInfo("登陆成功，正在转向面版……")
                    Response.Write "<script src=online.asp?dis=no&stats=登陆成功></script>" 
        Response.Write "<script>"
        Response.Write "var tmt;"
        Response.Write "function onReady(){"
        Response.Write "if(tmt) clearTimeout(tmt);"
        Response.Write "window.location =""left1.asp?boardid="&boardid&"""; "
        Response.Write "}"
        Response.Write "tmt = window.setTimeout(onReady,500);"
        Response.Write "</script>"

            else
                if rs("password")<>md5(password) then Error=Error+"密码错误!&nbsp;" end if
                if rs("lock")=1 then Error=Error+"帐号已经被锁定&nbsp;" end if
                if rs("lock")=2 then Error=Error+"帐号还没有被激活&nbsp;" end if
                if rs("username")<>username then Error=Error+"帐号输入不正确,注意大小写&nbsp;" end if
                if trim(Request.Form("yzm"))<>trim(session("yzm")) then Error=Error+"验证码输入有误!&nbsp;" end if

  
                    Call SysdsInfo("登陆失败："&Error&"")
                    Call SaveMatter("用户登陆失败","帐号:"&UserName&" "&Error,0) 

            end if
        end if
   
     rs.Close
        set rs=nothing
    End If
End If

 
closedata

'----------------------left1.asp修改结束----------------