<%@ Language=VBScript %>
<% OPTION EXPLICIT %>
<%
Session("RandomData") = ""
Dim RndData
Dim I, Upper, Lower
'Create some random data for HASH compute.
Randomize
RndData = ""
Upper = Asc("z")
Lower = Asc("a")
For I = 0 to 19
RndData = RndData + Chr(Int((Upper - Lower)*Rnd + Lower))
NEXT
Session("RandomData") = RndData
%>
坚石加密系统－身份认证示例