西安网站建设ASP生成与检测验证码

1622018-02-26

检测验证码

Sub CheckRadomPass(RadomPass) 
if radompass = "" then 
call ShowErr(language_arr(14)) 
elseif Session("GetCode") = "9999" then 
Session("GetCode")="" 
elseif Session("GetCode") = "" then 
call ShowErr(language_arr(15)) 
elseif cstr(Session("GetCode"))<>radompass then 
call ShowErr(language_arr(16)) 
end if 
Session("GetCode")="" 
End sub 
'===================================================
生成验证码
Function GetCode() 
Dim TestObj 
On Error Resume Next 
Set TestObj = Server.CreateObject("Adodb.Stream") 
Set TestObj = Nothing 
If Err Then 
Dim TempNum 
Randomize timer 
TempNum = cint(8999*Rnd+1000) 
Session("GetCode") = TempNum 
GetCode = Session("GetCode") 
Else 
GetCode = "<img src="""&Site_Url&"inc/GetCode.asp"">" 
End If 
End Function 

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1