_runkey.asp

是个不错的文件代码,希望大家好好用,

<%
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
%>