PJblog中用户注册增加QQ号

PJblog默认的注册页面中没有填写QQ号码项，只有用户登陆Pjblog后去“修改信息”时才能填写QQ号码，有时这样对于你和访客都是非常不方便的，所以在用户注册时顺便填写上QQ号码就方便多了。
    一， 在用户注册表单中添加QQ项，加入以下代码：
   

<tr><td align="right"><strong>QQ:</strong></td>
        <td align="left" style="padding:3px;"><label>
          <input name="QQnum" type="text" size="15" maxlength="10" class="userpass">
        </label></td></tr>

     二， 在检查语句后面加入以下代码：
 

Dim StrWidth,i
    StrWidth=len(QQNum)
    For i=1 to StrWidth
      If Asc(Mid(QQNum, i, 1)) < 48 or Asc(Mid(QQNum, i, 1))> 57 Then
          ReInfo(0) = "错误信息"
          ReInfo(1) = "<b>QQ号码只可以是0-9的数字。</b><br/><a href=""javascript:history.go

(-1);"">单击返回</a>"         
          ReInfo(2) = "ErrorIcon"
          register = ReInfo
          Exit Function
      End If
       Next

     三， 在Dim username, password, Confirmpassword, Gender, email, homepage, validate, HideEmail,
checkUser 后面加上QQNum
    
     四， 在validate = CheckStr(request.Form("validate"))后面加上
   

  QQNum=Trim(CheckStr(request.Form("QQnum")))
 
     五，

AddUser = Array(Array("mem_Name", username), Array("mem_Password", password), Array("mem_Sex", Gender), Array("mem_salt", strSalt), Array("mem_Email", email), Array("mem_HideEmail", Int(HideEmail)), Array("mem_HomePage", homepage),
Array("mem_LastIP", getIP), Array("mem_lastVisit", Now()), Array("mem_hashKey", hashkey)) 中加入Array("mem_QQ", QQNum),

     六， Values
 程序代码
('"&username&"','"&password&"',"&Gender&",'"&strSalt&"','"&email&"',"&HideEmail&",'"&homepage&"'
,'"&getIP&"')")中加入'"&QQNum&"'
保存后打开注册页面，你会发现QQ项出现在了页面当中……