VB随机插入字符串
作者:admin 日期:2012-05-20
稍微改改Asp中也可以用。
ASP/Visual Basic代码
- Private Function InsertRndText(content, text)
- If content = "" Or text = "" Then Exit Function
- i = Len(content)
- Randomize
- j = Int(i * Rnd) + 1
- content = Mid(content, 1, j) & text & Mid(content, j + 1, i - j)
- InsertRndText = content
- End Function
原创代码，转载请注明出处！
上一篇: VB实现Asp中的server.urlencode功能
下一篇: PHP+IIS 开启CURL组件支持
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: vb 
相关日志:
评论: 0 | 引用: 0 | 查看次数: 2253
发表评论
广告位
