动网论坛注册用户页面显示头像选择提示

蓝雨

以前动网8.0的版本都有的，自从8.0以后就没有这个显示了
修改reg.asp文件红色为新增代码

Dim userregface,i,Forum_userface,FaceDefault,fd
Forum_userface = split(Dvbbs.Forum_userface,"|||")
fd=Int((Ubound(Forum_userface)-1) * Rnd + 1)
FaceDefault=Forum_userface(0)&Forum_userface(fd)
For i = 1 to Ubound(Forum_userface)-1
     if i=fd then
        userregface = userregface & "<option value="""&Forum_userface(0)&Forum_userface(i) & """ selected=""selected"">" & Forum_userface(i) & "</option>"
     else
     userregface = userregface & "<option value="""&Forum_userface(0)&Forum_userface(i) & """>" & Forum_userface(i) & "</option>"
     end if  
Next