您所在位置：主题：问个验证码的问题！！！！
mshaosjm
[专家分：10] 发布于 2007-03-24 22:53:00
<%
Sub GetSafeCode
Dim test,Result
On Error Resume Next
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("SafeCode") = cint(8999*Rnd+1000)
Result = Session("SafeCode")
Response.Write Result
End Sub
%>
验证码:<%=Session("SafeCode") %>
<input type="text" name="yz" size="5"><% Call GetSafeCode %>
<%=Session("SafeCode") %>和<% Call GetSafeCode %>值为什么不是同步的呢？
<%=Session("SafeCode") %>总是比<% Call GetSafeCode %>晚一次，怎么调一下？
调成一致的
Sub GetSafeCode
Dim test,Result
On Error Resume Next
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("SafeCode") = cint(8999*Rnd+1000)
Result = Session("SafeCode")
Response.Write Result
End Sub
%>
验证码:<%=Session("SafeCode") %>
<input type="text" name="yz" size="5"><% Call GetSafeCode %>
<%=Session("SafeCode") %>和<% Call GetSafeCode %>值为什么不是同步的呢？
<%=Session("SafeCode") %>总是比<% Call GetSafeCode %>晚一次，怎么调一下？
调成一致的