复制ASP版或PHP版代码块放到自己本地,运行就可以看到结果了摘要:随机显示一维数组内容(ASP代码和转码后得PHP代码) 代码测试完成,分享给大家,希望对大家有所帮助。
效果=8,5,4,1,2,6,9,3,7
随机显示一维数组ASP代码
<%
'************************************************************
'作者:云祥孙 (精通ASP/VB/PHP/JS/Flash,交流合作可联系本人)
'版权:源代码公开,各种用途均可免费使用。
'创建:2016-01-15
'联系:QQ313801120 交流群35915100(群里已有几百人) 邮箱313801120@qq.com 个人主页 sharembweb.com
'更多帮助,文档,更新 请加群(35915100)或浏览(sharembweb.com)获得
'* Powered By 云祥孙
'************************************************************
'随机显示内容 randomShow("1,2,3,4,5,6,7,8,9", ",", 2)
Function randomShow(content, SplType,NSwitch)
Dim splStr, s, c, n, i
Randomize
For i = 1 To NSwitch
splStr = Split(content, SplType)
For Each s In splStr
n = CInt(Rnd * 100)
If n > 50 Then
c = c & s & SplType
Else
c = s & SplType & c
End If
Next
If c <> "" Then c = Left(c, Len(c) - Len(SplType))
content = c
c = ""
Next
randomShow = content
End Function
response.Write("随机显示内容=" & randomShow("1,2,3,4,5,6,7,8,9", ",", 2) )
%>
随机显示一维数组PHP代码
<?PHP
//************************************************************
//作者:云祥孙 (精通ASP/VB/PHP/JS/Flash,交流合作可联系本人)
//版权:源代码公开,各种用途均可免费使用。
//创建:2016-01-15
//联系:QQ313801120 交流群35915100(群里已有几百人) 邮箱313801120@qq.com 个人主页 sharembweb.com
//更多帮助,文档,更新 请加群(35915100)或浏览(sharembweb.com)获得
//* Powered By 云祥孙
//************************************************************
//随机显示内容 RandomShow("1,2,3,4,5,6,7,8,9", ",", 2)
function randomShow($content, $SplType,$NSwitch){
$splStr=''; $s=''; $c=''; $n=''; $i ='';
for( $i = 1 ; $i<= $NSwitch; $i++){
$splStr = aspSplit($content, $SplType) ;
foreach( $splStr as $s){
$n = intval(rnd() * 100) ;
if( $n > 50 ){
$c = $c . $s . $SplType ;
}else{
$c = $s . $SplType . $c ;
}
}
if( $c <> '' ){ $c = substr($c, 0 , strlen($c) - strlen($SplType)) ;}
$content = $c ;
$c = '' ;
}
$randomShow = $content ;
return @$randomShow;
}
echo( RandomShow('1,2,3,4,5,6,7,8,9', ',', 2) );
?>
<?PHP
//系统函数列表
header("Content-Type: text/html; charset=gb2312");
function aspSplit($contnet,$splStr){
return explode($splStr,$contnet);
}
function Rnd(){
return (float)("0.".rand(1000000,9999999));
}
?>
本文版权归作者所有,转摘请注明作者和出处!
作者:云祥孙
首发:http://sharembweb.com
网友评论:
赞一个
2020-07-24 16:26:24 回复
网友评论:
学习了
2020-07-24 16:26:24 回复