随机显示一维数组内容(ASP代码和转码后得PHP代码)

sharembweb 39次浏览

摘要:随机显示一维数组内容(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

随机内容

表情

共2条评论
  • 网友评论:

    赞一个

    2020-07-24 16:26:24 回复

  • 网友评论:

    学习了

    2020-07-24 16:26:24 回复

友情链接