Eall联系方式        Eall在线咨询   
 

如果您有什么问题需要咨询我们,请填写下列表单:
标题:   姓名:
公司:   E-mail:
电话:   传真:
内容:
验证码: <%=getValidCode()%>
   
 
<% Function getValidCode() Dim test On Error Resume Next Set test=Server.CreateObject("Adodb.Stream") Set test=Nothing If Err Then Dim zNum Randomize timer zNum = cint(8999*Rnd+1000) Session("GetCode") = zNum getValidCode= Session("GetCode") Else getValidCode= "
" End If End Function %>