论坛注册添加填写QQ项，但是不是必须项修改

论坛注册默认添加项填写QQ填写，但是不是必须填写完整修改。

1、后台风格模板总管理page_login 里面的 temp(13)

找到

<TR>
<TD class=tablebody1><B>OICQ号码</B>：<BR>填写您的QQ地址，方便与他人的联系</TD>
<TD class=tablebody1><INPUT maxLength=20 size=44 name=OICQ></TD>
</TR>
剪切到

<TR>
<TD class=tablebody1><B>Email地址</B>：<BR>请输入有效的邮件地址，这将使您能用到论坛中的所有功能</TD>
<TD class=tablebody1>
<INPUT maxLength=50 size=30 name=e_mail><input type=button value=''检测帐号'' name=Button onclick="gopreview()"></TD>
</TR>
</table>
的前面

2修改reg.asp文件。找到

Sub reg_3()
Dim username,sex,pass1,pass2,password
Dim useremail,face,width,height

在第三句的最后加上Oicq

就是改成

Sub reg_3()
Dim username,sex,pass1,pass2,password
Dim useremail,face,width,height,Oicq

找到

If IsValidEmail(Trim(Request.form("e_mail")))=false Then
  ErrCodes=ErrCodes+"<li>"+template.Strings(30)
Else

在其上面添加

''QQ号码填写但是需要注意位数，目前位10位，需要改变请修改下面红色数字
If Request.form("OICQ")<>"" Then
  If Not IsNumeric(Request.form("OICQ")) Then
   ErrCodes=ErrCodes+"<li>"+"你填写OICQ号码必须是数字！请重新填写OICQ号码或者不填写！"
  else
   Oicq=Request.form("OICQ")
  End if
  If strlength(Request.form("OICQ"))>10 or strlength(Request.form("OICQ"))<5 Then
   ErrCodes=ErrCodes+"<li>"+"你输入的OICQ号码位数错误，请重先输入OICQ号码或者不填写！"
  else
   Oicq=Request.form("OICQ")
  End if
Else
  Oicq=Request.form("OICQ")
End If