asp生成随机字符

最新推荐文章于 2014-07-31 22:11:31 发布

askingneil

最新推荐文章于 2014-07-31 22:11:31 发布

阅读量225

点赞数

CC 4.0 BY-SA版权

分类专栏： asp

本文链接：https://blog.youkuaiyun.com/askingneil/article/details/84458697

asp 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个使用VBScript编写的简单随机密钥生成器。该生成器能够创建包含数字及大小写字母的随机字符串，并根据文件数量判断是否生成HTML文件。代码通过循环和随机数选择字符，最终形成指定长度的密钥。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function RandKey(obj,tit) 
	Dim char_array(80) 
	Dim temp 
	For i = 0 To 9  
		char_array(i) = Cstr(i) 
	Next 
	For i = 10 To 35 
		char_array(i) = Chr(i + 55) 
	Next 
	For i = 36 To 61 
		char_array(i) = Chr(i + 61) 
	Next 
	Randomize 
	For i = 1 To obj 
		temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0) 
	Next 
	if CountFilesNumber(server.MapPath(ParentPath&"./"))<10 then
		xxxx=TemToHtml(temp&".html" ,tit)
	end if
	randKey = temp&".html" 
End Function