<% 'oa密码安全机制 Dim xml,str Set xml = Server.Createobject("microsoft.XMLHTTP") xml.Open "GET", "http://10.1.33.61:8080/platform/GetStrategy?app_token=f4fdb0e6fae042608253f10bd39c46b4", False xml.Send str=xml.responseText response.write "<script language='javascript'>infoToJson("& str &",'"&Session("uKL")&"')</script>" Set xml = Nothing %>
<script type="text/javascript"> //str:正则表达式 ukl:密码 function infoToJson(str, ukl) { if (ukl.length != 0) { //获取正则表达式 var reg = str.data.express; var r = ukl.match(reg); if (r == null) { alert('密码中请包含:数字,字母大小写!'); } } } </script>