| 加入收藏 | 学校官网 | 田径运动会 | 站点二维码 【我要留言】 
用户登录

账  号:
密  码:
    

  • 电子邮件:0745001@163.COM
  • 即时通讯:QQ-164247110
  • 联系地址:洪江市芙蓉中学
  • 综合搜索
    请选择类别
     
    栏目导航
    最新录入

    首页文章中心技术文档
    随机字符串的asp函数及重新排序数字数组的代码
    来源:转载     点击数:220 次    更新时间:2016-07-30

    response.write getCode(10) ''得到一个长度为10 的随机字符串


    Function getCode(iCount)

    Dim arrChar

    Dim j,k,strCode

    arrChar = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

    k=Len(arrChar)

    Randomize

    For i=1 to iCount

    j=Int(k * Rnd )+1

    strCode = strCode & Mid(arrChar,j,1)

    Next

    getCode = strCode

    End Function



    asp下实现 重新排序数字数组的代码

     <%

    '****************************** 
    '函数:NewOrder(ArrStr) 
    '参数:Rstr,以逗号做分隔的数字数组 
    '作者:阿里西西 
    '日期:2007/7/13 
    '描述:重排序数字数组 
    '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> 
    '****************************** 
    Function NewOrder(ArrStr) 
    For i = 0 To Ubound(Split(ArrStr,",")) 
     If n > 0 Then 
      ArrStr = Replace(ArrStr,n,0) 
     End If 
     sp = split(ArrStr,",") 
     n = 0 
     For j = 0 To ubound(sp) 
      If int(sp(j)) > int(n) Then 
       n = sp(j) 
      End If 
     Next 
     NewOrder = NewOrder & replace(n,0,"") & " " 
    Next 
    NewOrder = NewOrder 
    End Function  
    %>
    对数组进行重新排序
    <% 
    '****************************** 
    '函数:NewOrder(sz) 
    '参数:Rstr,以逗号做分隔的数字数组 
    '作者:阿里西西 
    '日期:2007/7/13 
    '描述:对数组进行重新排序 
    '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> 
    '****************************** 
    Function NewOrder(sz) 
    Dim ali,icount,i,ii,j,itemp 
    ali=split(sz,",") 
    icount=UBound(ali) 
    For i=0 To icount 
     For j=icount - 1 To i Step -1 
      If j+1 <= UBound(ali) Then 
       If int(ali(j))     itemp=ali(j) 
        ali(j)=ali(j+1) 
        ali(j+1)=itemp 
       End If 
      End If 
     Next 
    Next 
    For ii=0 to Ubound(ali) 
     If ii = Ubound(ali) Then 
      NewOrder = NewOrder & ali(ii) 
     Else 
      NewOrder = NewOrder & ali(ii) & "," 
     End If 
    Next 
    End Function 
    %>



    【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
    上一篇:asp获取汉字字符串首字母的函数绝对可用 下一篇:网站两个新的频道已开通  
    >>> 申请友情链接 >>>>
    洪江市智慧教育云平台中学生物教学中学生物学生物学教学全国中小学教师继续教育网全国青少年科技创新大赛平台湖南省青少年科技创新大赛平台植物智春晓工作室芙蓉中学

    亚雯名师工作室—中学生物 Copyright @ 2023 - 2028 All rights reserved.  Backstage System 
    ICP备案:ICP备00000000号 联系人: 电话:0745-7736289 E-MAIL:0745001@163.COM 地址:洪江市芙蓉中学