动网论坛注册用户页面显示头像选择提示
以前动网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
页:
[1]