<%@ Language=VBScript %>
<% OPTION EXPLICIT %>
<%
Session("RandomData") = ""
Dim RndData
dim lRndLen
Dim I, Upper, Lower
'Create some random data for HASH compute.
Randomize
RndData = ""
Upper = Asc("9")
Lower = Asc("0")
For I = 0 to 15
RndData = RndData + Chr(Int((Upper - Lower)*Rnd + Lower))
NEXT
dim posttime
posttime = FormatDateTime(now(), 0)
RndData =RndData &posttime
Session("RandomData") = Rnddata
lRndLen = len(RndData)
Session("RandomDataTime") = RndData & posttime
'Response.Write Session("RandomData")
%>
榆次区人民政府办公自动化系统