为PJblog增加通过密码保护找回密码的功能

要修改的源文件有：common/library.asp member.asp register.asp

======================================================
(2008/04/16更新)
现将二级密码和密码保护2个功能文件打包下载，请仔细阅读里面说明，按相应操作进行。
基本上如果没有修改过里面文件内容的可以直接覆盖，没有问题的。
下载： 二级密码和密码保护功能文件.rar (13.11 KB)
======================================================

修改方法入下：

打开member.asp
1.找到
代码:

<tr><td align="right" width="85"><strong>密码重复:</strong></td><td align="left" style="padding:3px;"><input name="Confirmpassword" type="password" size="18" class="userpass" maxlength="16"/> 必须和上面的密码一样</td></tr>

在下面加上
 

代码:

<tr><td align="right" width="85"><strong>密保问题:</strong></td><td align="left" style="padding:3px;"><input name="mbquestion" type="text" size="18" class="userpass" maxlength="16"/><font color="#FF0000"> *</font> </td></tr>

<tr><td align="right" width="85"><strong>密保答案:</strong></td><td align="left" style="padding:3px;"><input name="mbanswer" type="text" size="18" class="userpass" maxlength="16"/><font color="#FF0000"> *</font></td></tr>2.

找到
代码:
dim UID,username,Oldpassword,password,Confirmpassword,Gender,email,homepage,QQ,HideEmail,checkUser

直接后面加上
代码:

,mbquestion,mbanswer3.

找到
代码:

password=trim(CheckStr(request.form("password")))
Confirmpassword=trim(CheckStr(request.form("Confirmpassword")))

下面添加
代码:

mbquestion=trim(CheckStr(request.form("mbquestion")))
mbanswer=trim(CheckStr(request.form("mbanswer")))

4.找到
代码:

if password<>Confirmpassword then
ReInfo(0)="错误信息"
ReInfo(1)="<b>密码验证失败！请重新输入。</b><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2)="ErrorIcon"
SaveMem=ReInfo
exit function
end if
end if

下面添加
代码:

if len(mbquestion)=0 or (len(mbquestion)<6 or len(mbquestion)>16) then
ReInfo(0)="错误信息"
ReInfo(1)="<b>请输入6到16位密保问题！</b><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2)="WarningIcon"
SaveMem=ReInfo
exit function
end if

if len(mbanswer)=0 or (len(mbanswer)<6 or len(mbanswer)>16) then
ReInfo(0)="错误信息"
ReInfo(1)="<b>请输入6到16位密保答案！</b><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2)="WarningIcon"
SaveMem=ReInfo
exit function
end if

5.找到
代码:

"update blog_member set mem_Sex="&Gender&",mem_Email='"&email&"',mem_HideEmail="&HideEmail&",mem_HomePage='"&homepage&"',mem_QQ='"&QQ&"'

后面增加
 

代码:

,m