user.asp

很好的一个论坛原代码

<%
dim rs, i2, title(10), minposts(10)
Set rs = Conn.Execute("select * from sf_usertitle order by usertitleid")
i2 = 1
if not (rs.bof or rs.eof) then
	do until rs.eof
		title(i2) = rs("title")
		minposts(i2) = rs("minposts")
		rs.movenext
		i2 = i2 + 1
	loop
end if

Set rs = nothing

function GetTitle(posts)
ON ERROR RESUME NEXT
if posts >= minposts(10) then posts = minposts(1) - 1
for i2=1 to 10
	if posts < minposts(i2) then
		GetTitle = title(i2 - 1)
		exit for
	end if
next
end function

function GetTitleImg(posts)
ON ERROR RESUME NEXT
if posts >= minposts(10) then posts = minposts(1) - 1
for i2=1 to 10
	if posts < minposts(i2) then
		GetTitleImg = i2 - 1
		exit for
	end if
next
end function

Set i2 = nothing
%>