一个获得随机字符串的asp函数

作者：整理

response.write getCode(10) ‘’得到一个长度为10 的随机字符串

Function getCode(iCount)

Dim arrChar

Dim j,k,strCode

arrChar = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

k=Len(arrChar)

Randomize

For i=1 to iCount

j=Int(k * Rnd )+1

strCode = strCode & Mid(arrChar,j,1)

Next

getCode = strCode

End Function

返回顶部

下一篇：vbscript函数集 >>

· 我写的第一个ASP.NET组件
· ASP程序中同一个用户不允许同时登陆两次
· 随机生成密码函数
· 动态创建TABLE的行与列
· 如何在Web页面上直接打开、编辑、创建Office文档
· 取得的IP/用户名等信息
· Flash 和 ASP / PHP 以及 javascript 的交互
· 自定义分页UserControl 分享及探讨!
· ASP 验证码的程序及原理
· ViewState 剖析(翻译兼笔记)
· 存储过程介绍及asp存储过程的使用
· 用CSS实现的固定表头的HTML表格
· ASP中页面限权访问的几种方法
· 用Web Services服务实现文件上传
· ASP六大对象介绍
· 如何更改表的字段名？
· 一份ASP内存的释放的实验报告
· 如何获取设置图片大小
· 按比例缩小图片（无组件）
· 网站开发规范及流程v1.0
· asp+存储过程的使用
· 2个简单的检测外部提交函数
· 查看服务器Application/Session变量工具
· ASP ,IP地址分段计算
· ASP提速技巧五则
· 利用ASP远程获取内容
· ASP漏洞及安全建议
· 闰年的判别
· 计算文件下载时间
· ASP的函数详解
· 一个取图片尺寸的类，支持jpg,gif,png
· JS错误代码解释大全
· 窗口最大化的严格定义
· 一個簡單的驗証碼
· 17种正则表达式
· 一个非常简洁的验证码程序
· 今天做了一个ASP计数器，放出源码吧，挺简单的！
· 个性化的表单验证效果