这段代码的功能是：将一个数组打乱顺序，显示出来，让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b)=tt(ii)
tt(ii)=temp
Next
For i=0 To leng
response.write tt(i)&"<br>"
next
%>
最近估计很多人都碰到和我同样的问题，就是因为扫黄及备案管理非常严，一个没备案直接关服务器，一个黄站直接封机房。现在网站所有域名必需通过备案，以前还松点。但我们服务器100多个，总不能一个一个检查吧，上网搜了下，有个程序稍合适，但导出的是网站域名站点名，我修改为导出域名列表，同时解决了导出一个站点绑定多� ......
<div id="storyScroller" style="width:100%;height:140px;line-height:28px;overflow:hidden;">
<div id="storyScrollMid">
<ul id="storyScrollUl" style=" list-style-type:circle; list-style-position: outside; margin-left:18px; margin-right:0px">
<li>item01</l ......
