关键词采集 关键词采集工具

预览模式: 普通 | 列表

Asp生成随机字符串函数

作者:admin  日期:2007-10-25

Function getCode(iCount)
Dim arrChar
Dim j,k,strCode
arrChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
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

技术才是王道!

Tags: asp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3075

 广告位

↑返回顶部↑