已为老胡 - 网络技术研究和生活琐事记录 - 腾讯QQ
PJblog默认的注册页面中没有填写QQ号码项，只有用户登陆Pjblog后去“修改信息”时才能填写QQ号码，有时这样对于你和访客都是非常不方便的，所以在用户注册时顺便填写上QQ号码就方便多了。 一， 在用户注册表单中添加QQ项，加入以下代码： QQ: 二， 在检查语句后面加入以下代码： 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) = "QQ号码只可以是0-9的数字。 单击返回" 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项出现在了页面当中……