function randColor() dim re,i,ranNum for i=1 to 3 randomize ranNum=hex(int(255*rnd)+1) if(len(ranNum)=1) then ranNum="0" & ranNum re=re & ranNum next randColor = "#" & re end function
sub test '设置最多产生1000个色块。 if counter>1000 then exit sub dim strHTML ,color color=randColor() strHTML="<span style='background-color:" & color & ";' onclick='vbs:getColor me' title='" & color & "'></span>" document.body.insertAdjacentHTML "beforeEnd",strHTML counter =counter +1 end sub
sub getColor(obj) ipt.value=obj.title ipt.select choice.style.backgroundColor=obj.title window.clipboardData.setData "Text",ipt.value end sub
sub gogogo aaa=window.setInterval("test","100","VBScript") end sub
sub shutUp window.clearInterval aaa end sub </SCRIPT> </head>
宽度 颜色 样式
1px red solid……
具体参见CSS手册问题回答完毕……请结帖:)
正解,你的边框为零,当然什么颜色都显示不出来了
$mrStr="onlyyouyz(结贴是美德)";
print preg_replace('/[a-zA-Z0-9_]+\((.+?)\)/is',"<span size=\"8px\" color=\"red\">\\1</span>",$mrStr);
// Result: 结贴是美德
?>
good luck!
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>笨狼颜色选择器</title>
<style>
body,body.*
{
font-size:12;
}
span,button,input
{
margin:2;
width:50;
border:1px solid black;
height:18;
}
A
{
color:blue;
}
</style>
<SCRIPT LANGUAGE="vbScript">
dim aaa,counter
window.resizeTo window.screen.availWidth,window.screen.availHeight
window.moveTo 0,0
function randColor()
dim re,i,ranNum
for i=1 to 3
randomize
ranNum=hex(int(255*rnd)+1)
if(len(ranNum)=1) then ranNum="0" & ranNum
re=re & ranNum
next
randColor = "#" & re
end function
sub test
'设置最多产生1000个色块。
if counter>1000 then exit sub
dim strHTML ,color
color=randColor()
strHTML="<span style='background-color:" & color & ";' onclick='vbs:getColor me' title='" & color & "'></span>"
document.body.insertAdjacentHTML "beforeEnd",strHTML
counter =counter +1
end sub
sub getColor(obj)
ipt.value=obj.title
ipt.select
choice.style.backgroundColor=obj.title
window.clipboardData.setData "Text",ipt.value
end sub
sub gogogo
aaa=window.setInterval("test","100","VBScript")
end sub
sub shutUp
window.clearInterval aaa
end sub
</SCRIPT>
</head>
<body>
<button onclick="vbs:gogogo">选美</button>
<button onclick="vbs:shutUp" >停止</button>
<button onclick="vbs:window.location.reload " >刷新</button>
<span id="choice"></span>
<input id="ipt">
<A href="http://superdullwolf.cnzone.net">超级大笨狼制作,呜呼!~~君子好色,取之有道:)...</A>
<hr/>
</body>
</html>