<%
'#############################################################
'#      中國在線--極酷論壇 ver.2001 3.0
'#
'#  版權所有: 中國在線 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主頁地址: http://www.ChinaXP.net/    中國在線
'#	      http://www.ChinaXP.Net/bbs/    中國在線--極酷論壇
'#
'#############################################################
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><B>當前心情</B>：<BR><li>將放在貼子的前面</font></td>
<td bgColor="<% =strPopUpTableColor %>" align=left>
<%
i = 0
DO While i < 26
	Randomize
	strRan = (Int(77 * Rnd + 1))
	if i=0 then
		' ### 第一個數據 ###
		strFaceTemp = strRan
		i = i + 1
	else

		if InStr(strFaceTemp, strRan)>0 then
			' ### 如果有重復，則 i 不進行加 1 操作 ###
		else
			strFaceTemp = strFaceTemp & "|" & strRan
			i = i + 1
		end if
	end if
Loop

strFaceArr = split(strFaceTemp, "|")	' ### 產生數組 ###
strFaceTemp = ""

For i=0 To UBound(strFaceArr)
	strFaceTemp = strFaceTemp & "<INPUT type=radio value=""" & strFaceArr(i) & """ name=""usericon""><IMG height=13 src=""" & strImageURL & "face/" & strFaceArr(i) & ".gif"" width=13 border=0>&nbsp;"
	if i=12 then
		strFaceTemp = strFaceTemp & "<BR>"
	end if
Next
Response.Write strFaceTemp

i = ""
strFaceArr = ""
strFaceTemp = ""
Set strRan = Nothing
Set strFaceArr = Nothing
Set strFaceTemp = Nothing
%></td></tr>