重磅首发 通达2010版增加了个人自定义找回密码功能（富阳疾控G大修改插件）

azzxs

富阳疾控论坛，g版的超级插件请大家直接到富阳疾控论坛下载，我就不好直接发出了。

增加了个人自定义找回密码功能，在首页有链接，
3:23 2010-11-21，更新：
功能：忘记密码后通过邮箱修改密码！
使用条件：必须填写的参数的3个：用户名，真实姓名，邮箱(email)，故要求OA用户信息必须要在控制面板--个人信息里填写上自己的真实可用email邮箱，找回的密码直接发送到你邮箱里。

chinesetxj

楼主能否给个链接，找了下没找到地址

azzxs

http://fy.fycdc.com/forum.php?mo ... id=12182&extra=

zb2730

楼主把补丁转过来撒······························

gandl886

<?
#Auther:FYCDC-Germ 勿删除我
#[发送新密码邮箱设置]
$admin_smtp_address="smtp.163.com";//SMTP服务器
$admin_email="xxxxxx@163.com";//SMTP转发邮箱
$admin_email_username="xxxxxx";//SMTP邮箱用户
$admin_email_password="123456";//SMTP邮箱密码
$admin_email_check=1;//SMTP身份验证


#[操作密码]
$admin_pw="xjlfjlajdfklajklfjakljglkasjgkla";//请一定要修改我
$admin_pw_md5="9307a8c61f91697e7c3b6126cd8850bf";//请一定要修改我 md5($admin_pw);
//echo "$admin_pw_md5";

#[发送邮箱函数]
function send22( $to, $from, $subject, $message )
{
   global $admin_smtp_address,$admin_email,$admin_email_username,$admin_email_password,$admin_email_check;
    $owner_m_smtp = $admin_smtp_address;
    $owner_m_user = $admin_email_username;
    $owner_m_pass = $admin_email_password;
    $owner_m_check = $admin_email_check;
    $owner_m_mail = $admin_email;

    $smtp = $owner_m_smtp;
    $check = $owner_m_check;
    if ( $check )
    {
        $username = $owner_m_user;
        $password = $owner_m_pass;
    }
    $s_from = $owner_m_mail;
    $fp = fsockopen( $smtp, 25, &$errno, &$errstr, 20 );
    if ( !$fp )
    {
        return "联接服务器失败".( 59 );
    }
    set_socket_blocking( $fp, true );
    $lastmessage = fgets( $fp, 512 );
    if ( substr( $lastmessage, 0, 3 ) != 220 )
    {
        return "错误信息:".$lastmessage.( 63 );
    }
    $yourname = "YOURNAME";
    if ( $check == "1" )
    {
        $lastact = "EHLO ".$yourname."\r\n";
    }
    else
    {
        $lastact = "HELO ".$yourname."\r\n";
    }
    fputs( $fp, $lastact );
    $lastmessage == fgets( $fp, 512 );
    if ( substr( $lastmessage, 0, 3 ) != 220 )
    {
        return "错误信息{$lastmessage}".( 72 );
    }
    while ( true )
    {
        $lastmessage = fgets( $fp, 512 );
        if ( substr( $lastmessage, 3, 1 ) != "-" || empty( $lastmessage ) )
        {
            break;
        }
    }
    if ( $check == "1" )
    {
        $lastact = "AUTH LOGIN"."\r\n";
        fputs( $fp, $lastact );
        $lastmessage = fgets( $fp, 512 );
        if ( substr( $lastmessage, 0, 3 ) != 334 )
        {
            return "错误信息{$lastmessage}".( 86 );
        }
        $lastact = base64_encode( $username )."\r\n";
        fputs( $fp, $lastact );
        $lastmessage = fgets( $fp, 512 );
        if ( substr( $lastmessage, 0, 3 ) != 334 )
        {
            return "错误信息{$lastmessage}".( 91 );
        }
        $lastact = base64_encode( $password )."\r\n";
        fputs( $fp, $lastact );
        $lastmessage = fgets( $fp, 512 );
        if ( substr( $lastmessage, 0, 3 ) != "235" )
        {
            return "错误信息{$lastmessage}".( 96 );
        }
    }
    $lastact = "MAIL FROM: <".$s_from.">\r\n";
    fputs( $fp, $lastact );
    $lastmessage = fgets( $fp, 512 );
    if ( substr( $lastmessage, 0, 3 ) != 250 )
    {
        return "错误信息{$lastmessage}".( 103 );
    }
    $lastact = "RCPT TO: <".$to.">\r\n";
    fputs( $fp, $lastact );
    $lastmessage = fgets( $fp, 512 );
    if ( substr( $lastmessage, 0, 3 ) != 250 )
    {
        return "错误信息{$lastmessage}".( 109 );
    }
    $lastact = "DATA\r\n";
    fputs( $fp, $lastact );
    $lastmessage = fgets( $fp, 512 );
    if ( substr( $lastmessage, 0, 3 ) != 354 )
    {
        return "错误信息{$lastmessage}".( 115 );
    }
    $head = "Subject: {$subject}\r\n";
    $message = $head."\r\n".$message;
    $head = "From: {$from}\r\n";
    $message = $head.$message;
    $head = "To: {$to}\r\n";
    $message = $head.$message;
    $head = "Content-Type: text/html; charset=gbk \r\n";
    $message = $head.$message;
    $message .= "\r\n.\r\n";
    fputs( $fp, $message );
    $lastact = "QUIT\r\n";
    fputs( $fp, $lastace );
    fclose( $fp );
    return 0;
}
?>

thinkfox

服务器禁止连接外网，我估计那个发送邮件的功能没法用。。。