1
<%
2
Function RndCode()
3
CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
4
AmountSet = 62 ' 文字数量
5
Randomize
6![](/Images/OutliningIndicators/None.gif)
7
' 随机产生字符
8
Dim vCode(10), vCodes
9
For i = 0 To 9
10
vCode(i) = Int(Rnd * AmountSet)
11
vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)
12
Next
13
RndCode=vCodes
14
End Function
15![](/Images/OutliningIndicators/None.gif)
16
%>
17
<%=RndCode()%>
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/None.gif)
4
![](/Images/OutliningIndicators/None.gif)
5
![](/Images/OutliningIndicators/None.gif)
6
![](/Images/OutliningIndicators/None.gif)
7
![](/Images/OutliningIndicators/None.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/None.gif)
10
![](/Images/OutliningIndicators/None.gif)
11
![](/Images/OutliningIndicators/None.gif)
12
![](/Images/OutliningIndicators/None.gif)
13
![](/Images/OutliningIndicators/None.gif)
14
![](/Images/OutliningIndicators/None.gif)
15
![](/Images/OutliningIndicators/None.gif)
16
![](/Images/OutliningIndicators/None.gif)
17
![](/Images/OutliningIndicators/None.gif)