asp 生成任意英文+数字位数长度的随机码函数

<%

'******************************

'函数：Generator(Length)

'参数：Length,任意长度的数值，随机码位数

'作者：阿里西西

'日期：2007/7/15

'描述：生成任意英文+数字位数长度的随机码函数

'示例：Generator(80)

'******************************

Function Generator(Length)

 Dim i, tempS

 tempS = "abcdefghijklmnopqrstuvwxyz1234567890" 

 Generator = ""

 If isNumeric(Length) = False Then 

  Exit Function 

 End If 

 For i = 1 to Length 

  Randomize 

  Generator = Generator & Mid(tempS,Int((Len(tempS) * Rnd) + 1),1)

 Next 

End Function 

%>

时间： 2024-10-27 13:12:35

asp 生成任意英文+数字位数长度的随机码函数的相关文章

asp 生成任意英文+数字位数长度的随机码函数_应用技巧

<% '****************************** '函数:Generator(Length) '参数:Length,任意长度的数值,随机码位数 '作者:阿里西西 '日期:2007/7/15 '描述:生成任意英文+数字位数长度的随机码函数 '示例:Generator(80) '****************************** Function Generator(Length)  Dim i, tempS  tempS = "abcdefghijklmnopq

ASP生成随机字符串(数字+大小写字母)的代码

<% 'ASP生成随机字符串(数字+大小写字母)练习 '阿会楠练习,为我所用,非我所想  Function randKey(obj)  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)  N

使用ASP生成包含随机数字的图片

随机|随机数字 文件一.xbm.asp <!--#includefile="numcode.asp"--><%Response.Buffer=TrueWithResponse .Expires=-1 .AddHeader"Pragma","no-cache" .AddHeader"cache-ctrol","no-cache"EndWith DimnumRandomizenum=Int(7

ASP生成柱状图，折线图，饼图源代码函数

饼图|函数|源代码|折线图|柱状图 以下是柱状图代码:<% function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type) '参数含义(传递的数组,横坐标,纵坐标,柱子的厚度,柱子的宽度,图表的宽度,图表的高度,图表的类型) '纯ASP代码生成图表函数1--柱状图 '欢迎您再次访问阿里西西WEB开发社区,http://www.alixixi.com.dim tb_color(

ASP生成伪参数技巧

前两天在做一个站内版的企搜引擎,发现某些站点可以链接站点内容.. 奇怪之下看了看,原来是按照数据库ID的自动编号规律进行链接的~~ 前两天在做一个站内版的企搜引擎,发现某些站点可以链接站点内容.. 奇怪之下看了看,原来是按照数据库ID的自动编号规律进行链接的~~ 闲暇之余弄了下面这个东东,希望对大家在以后的编写ASP程序中有所帮助! <% ''//生成指定位数的随机数字 ''//也可以用Guidy写的iXuEr_Rnd_Str函数,自带15种样式,可以伪MD5啦!! Function rndSt

生成任意位随机数的函数

函数|随机 生成任意位随机数的函数'strLong是随机数字的位数,数字型Function rndNum (strLong) Dim temNum Randomize Do While Len(RndNum) < strLong temNum=CStr(Chr((57-48)*rnd+48)) RndNum=RndNum&temNum loopEnd Function

ASP生成伪参数的技巧

前两天在做一个站内版的企搜引擎,发现某些站点可以链接站点内容.. 奇怪之下看了看,原来是按照数据库ID的自动编号规律进行链接的~~ 闲暇之余弄了下面这个东东,希望对大家在以后的编写ASP程序中有所帮助! <%''//生成指定位数的随机数字''//也可以用Guidy写的iXuEr_Rnd_Str函数,自带15种样式,可以伪MD5啦!!Function rndStr(strLong)Dim tempStrRandomizeDo While Len(rndStr) < strLongtempStr=

ASP生成伪参数程序设计技巧_应用技巧

前两天在做一个站内版的企搜引擎,发现某些站点可以链接站点内容..  奇怪之下看了看,原来是按照数据库ID的自动编号规律进行链接的~~  闲暇之余弄了下面这个东东,希望对大家在以后的编写ASP程序中有所帮助!  <%  ''//生成指定位数的随机数字  ''//也可以用Guidy写的iXuEr_Rnd_Str函数,自带15种样式,可以伪MD5啦!!  Function rndStr(strLong)  Dim tempStr  Randomize  Do While Len(rndStr) < 

asp 生成验证码实例代码

asp教程 生成验证码实例代码 call com_creatvalidcode("validcode") sub com_creatvalidcode(ps教程n)     ' 禁止缓存   response.expires = -1   response.expiresabsolute = now() - 1    response.cachecontrol = "no-cache"      'response.expires = -9999      'res