复制代码 代码如下:<% '系统分配随机密码 Function Createpass() Dim Ran, i, LengthNum LengthNum = 6 Createpass = "" For i = 1 To LengthNum Randomize Ran = CInt(Rnd * 2) Randomize If Ran = 0 Then Ran = CInt(Rnd * 25) + 97 Createpass = Createpass & UCase(Chr(Ran)) ElseIf Ran = 1 Then Ran = CInt(Rnd * 9) Createpass = Createpass & Ran ElseIf Ran = 2 Then Ran = CInt(Rnd * 25) + 97 Createpass = Createpass & Chr(Ran) End If Next End Function response.write createpass() %>

　　推荐阅读

　　ASP+XML留言板介绍

我开始学习xml时做了一个简单的xml留言板。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 创建一个新的XMLDOM object server.createObject("Microsoft.XMLDOM") －－－－－－－－－－－－－－>>>详细阅读

本文标题：系统分配随机密码

地址：http://www.17bianji.com/kaifa2/ASP/32940.html

 1/2    1