代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
ASP
】
生成指定长度的随机字符串
作者:
/ 发布于
2011/1/6
/
1084
<div>'检测生成字符串的长度 Response.Write(Len(iXuEr_Rnd_Str(100,1,1,1,1,1)) & "") '以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 挑战随机字符串 ' 参数:长度,是否大写字母,是否小写字母,是否数字,是否特殊字符,是否有自定义字符 ' 返回:字符串 ' 时间:2004-08-28 ' 作者:Guidy ' 版权: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</div>
试试其它关键字
随机字符串
同语言下
.
二进制输出
.
查找text文本中指定字符或词所在句子
.
阻止浏览器冒泡事件,兼容firefox和ie
.
xmlhttp 读取文件
.
定时跳转页面
.
除asp中所有超链接
.
获取Session
.
打包时自定义应用程序的快捷方式与卸载
.
获取局域网中可用SQL Server服务器
.
判断汉字字数
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
贡献的其它代码
Label
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3