<%
DefKey = "美女"                         '默認(rèn),當(dāng)下面關(guān)鍵字組為空時有效

RndKey = "美女[$_$]色情[$_$]李宇春[$_$]劉亦菲[$_$]mp3[$_$]QQ[$_$]跑跑卡丁車[$_$]外掛[$_$]小說[$_$]音樂[$_$]八榮八恥[$_$]勁舞團(tuán)[$_$]林心如[$_$]白蛇傳[$_$]誅仙[$_$]冰菊舞[$_$]周杰倫[$_$]火影忍者[$_$]北京大學(xué)[$_$]九寨溝[$_$]蠟筆小新[$_$]胡錦濤[$_$]林志玲[$_$]張含韻[$_$]蔡依林[$_$]泡泡堂[$_$]夢幻西游[$_$]成人[$_$]魔獸世界[$_$]手機(jī)鈴聲[$_$]母親節(jié)[$_$]千千靜聽[$_$]汽車[$_$]MSN[$_$]flash[$_$]劉德華[$_$]卡巴斯基"

Function xRun(x,y)
	Randomize
	xRun = Int((y - x + 1) * Rnd + x)
End Function

Function GetRndKey()
	If Not RndKey = "" Then
		xRndKey = Split(RndKey,"[$_$]")
		If UBound(xRndKey) <= 0 Then
			GetRndKey = DefKey       '默認(rèn),當(dāng)隨機(jī)關(guān)鍵字組為空時有效
		Else
			GetRndKey = xRndKey(xRun(0,UBound(xRndKey)))
		End If
	End If
	If GetRndKey = "" Then GetRndKey = DefKey '默認(rèn),當(dāng)隨機(jī)關(guān)鍵字為空時有效
End Function
%>