_runkey.asp

来自「一个用asp编写的搜索代码,可以分类搜索google,baidu等网站,也可以自」· ASP 代码 · 共 22 行

<%
DefKey = "美女"                         '默认,当下面关键字组为空时有效

RndKey = "美女[$_$]色情[$_$]李宇春[$_$]刘亦菲[$_$]mp3[$_$]QQ[$_$]跑跑卡丁车[$_$]外挂[$_$]小说[$_$]音乐[$_$]八荣八耻[$_$]劲舞团[$_$]林心如[$_$]白蛇传[$_$]诛仙[$_$]冰菊舞[$_$]周杰伦[$_$]火影忍者[$_$]北京大学[$_$]九寨沟[$_$]蜡笔小新[$_$]胡锦涛[$_$]林志玲[$_$]张含韵[$_$]蔡依林[$_$]泡泡堂[$_$]梦幻西游[$_$]成人[$_$]魔兽世界[$_$]手机铃声[$_$]母亲节[$_$]千千静听[$_$]汽车[$_$]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       '默认,当随机关键字组为空时有效
		Else
			GetRndKey = xRndKey(xRun(0,UBound(xRndKey)))
		End If
	End If
	If GetRndKey = "" Then GetRndKey = DefKey '默认,当随机关键字为空时有效
End Function
%>