+
 添加收藏
 
 联系方式
  e世博茂业博彩博彩常识 → 博彩编程

ASP技巧:如何随机生成汉字

<%Dim i
    Dim j
    Dim HS
    Dim HE
    Dim LS
    Dim LE
    dim Result
    Result=""
    HS = 177
    HE = 247
    LS = 161
    LE = 254
    dim Max_Num
    Max_num=65536
    Randomize  
    For i = 1 To 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
        Result = Result & chr(BinaryToDecimal(temp1 & temp2) - Max_num)

    Next
    response.write Result & " "
%>
<%
    ''下面是函数
''-------------------------------------------
Public Function dec2bin(mynum)''十进制到二进制
Dim loopcounter
If mynum >= 2 ^ 31 Then
dec2bin = "Too big"
Exit Function
End If
Do
If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
dec2bin = "1" & dec2bin
Else
dec2bin = "0" & dec2bin
End If
loopcounter = loopcounter + 1
Loop Until 2 ^ loopcounter > mynum
End Function
''-------------------------------------------
Public Function BinaryToDecimal(BinaryValue) ''二进制到十进制的转换
'' Returns the decimal equivalent of a binary number
Dim idx
Dim tmp
Dim result
Dim digits
digits = Len(BinaryValue)
For idx = digits To 1 Step -1   
    tmp = Mid(BinaryValue, idx, 1)
    If tmp = "1" Then result = result + 2 ^ (digits - idx)
Next
BinaryToDecimal = result

End Function
%>



来源:
阅读:3162
日期:2011-12-16

【 双击滚屏 】 【 推荐朋友 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】 【 字体: 】 
上一篇:虚拟化,为电信运营商带来什么?
下一篇:DIV滚动条
  >> 相关文章
 
  网页弹窗广告代码 关闭网页弹出窗口代码
  JavaScript面向对象编程
  强制点击广告代码
  JS技术大全(防止复制,粘贴等)
  鼠标悬移到链接文字后出现跑马灯式样的说明文字
  用js代码实现多层的显隐,当鼠标移到相应链接的相应层即显示,其他层隐藏
  让鼠标移到链接显示相关提示信息
  网页视频播放器代码
发表评论


点  评: 字数0
用户名:  密码:

  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在彩票内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
授权使用:茂业博彩 Http://www.nnmy.net Powered by:nnmy Version 05.07.25
Copyright (c) 2005-2006 nnmy.com. All Rights Reserved .
<友情连结> 沙巴平台/ f1赌城/ 万博彩票/ 电子信息产业网/ 何洪庆个人博客/