inc_post_face.asp

来自「此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.」· ASP 代码 · 共 56 行

<%
'#############################################################
'#      中国在线--极酷论坛 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>