快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

生成指定长度的随机字符串

\\\'检测生成字符串的长度
Response.Write(Len(iXuEr_Rnd_Str(100,1,1,1,1,1)) & "<br>")
\\\'以HTML编码输出到浏览器,避免含有某些特别字符时不能正常显示
Response.Write(Server.HTMLEncode(iXuEr_Rnd_Str(100,1,1,1,1,1)))
\\\'实际应用时,可以直接调用iXuEr_Rnd_Str(Length,S1,S2,S3,S4,Ln)
Function iXuEr_Rnd_Str(Length,S1,S2,S3,S4,Ln)
\\\'=========================================================
\\\' 函数:Rnd_Str
\\\' 功能:生成指定长度的随机字符串 iXuEr Studio 挑战随机字符串
\\\' 参数:长度,是否大写字母,是否小写字母,是否数字,是否特别字符,是否有自定义字符
\\\' 返回:字符串
\\\'=========================================================
\\\'默认拥有15种组合方案,长度任意指定,并且字符串中不答应空格存在
\\\'假如指定了自定义字符集的话,则可以扩展到多达26种组合方案
\\\'1)大写字母2)小写字母3)数字4)特别字符5)大写字母、小写字母6)大写字母、数字
\\\'7)大写字母、特别字符8)大写字母、小写字母、数字9)大写字母、小写字母、特别字符
\\\'10)大写字母、数字、特别字符11)大写字母、小写字母、数字、特别字符
\\\'12)小写字母、数字13)小写字母、特别字符14)小写字母、数字、特别字符15)数字、特别字符
Dim Seed,SeedAry
Dim Seed_Str,Seed_Str1,Seed_Str2,Seed_Str3,Seed_Str4,Seed_Strn
Dim TempStr
Dim i,m

Seed_Str1 = "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
Seed_Str2 = "a b c d e f g h i j k l m n o p q r s t u v w x y z"
Seed_Str3 = "0 1 2 3 4 5 6 7 8 9"
Seed_Str4 = "! "" # $ % & \\\' ( ) * + , - . / : ; < = > ? @ [ ] ^ _ ` { | } ~"
\\\'自定义字符集合,注重要在每个自定义字符之间加空格!
Seed_Strn = ""

Seed = ""
If S1 = 1 Then
\\\'包含大写字母
Seed = Seed & Seed_Str1
End If
If S2 = 1 Then
\\\'包含小写字母
Seed = Seed & " " & Seed_Str2
End If
If S3 = 1 Then
\\\'包含数字
Seed = Seed & " " & Seed_Str3
End If
If S4 = 1 Then
\\\'包含特别字符
Seed = Seed & " " & Seed_Str4
End If
If Ln = 1 Then
\\\'包含特别字符
Seed = Seed & " " & Seed_Strn
End If
If S1 <> 1 And S2 <> 1 And S3 <> 1 And S4 <> 1 And Ln <> 1 Then
\\\'假如没有指定任何包含内容,则强制全部包含
Seed = Seed & Seed_Str1 & " " & Seed_Str2 & " " & Seed_Str3 & " " & Seed_Str4 & " " & Seed_Strn
End If

\\\'建立种子数组
SeedAry = Split(Seed," ")
\\\'获取种子数组长度
m = Ubound(SeedAry)
\\\'初始化随机字符串
TempStr = ""
Do While Len(TempStr) < Length
Randomize Timer()
TempStr = TempStr & SeedAry(m*Rnd)
Loop

iXuEr_Rnd_Str = TempStr

End Function
返回类别: 教程
上一教程: 关于学习ASP和编程的28个观点
下一教程: ASP可逆算法

您可以阅读与"生成指定长度的随机字符串"相关的教程:
· 截取一定长度字符串
· 截取固定长度字符串显示在页面,多余部分显示为省略号(区分汉字和字符)
· 截取固定长度字符串显示在页面
· 控制输出字符串的长度,可以区别中英文
· 测字符串长度函数
    微笑服务 优质保证 索取样品