原创_asp验证人事系统网页端能否访问的代码_人力资产
学习.交流
专业源于专注 		www. onlyit. cn   
学习交流 文件下载 手册资料 交流QQ群
 学习交流 » 人力资产 »asp验证人事系统网页端能否访问的代码     

 2  1/1   1  
作者
内容
chuanying  [个人空间]


注册  2013-12-09
发贴数  26
精华贴  2
原创贴  1
来自  
状态  正常

级别  会员
#1»发布于2015-12-08 09:57

运行环境：ASP 
模块功能：验证人事系统网页端能否正常打开，正常访问就跳转登陆页，否则就弹出提示窗口。 
 
代码如下： 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> 
<head> 
<meta name="viewport" content="initial-scale=1, maximum-scale=1, user-scalable=no"> 
</head> 
<body> 
<% 
'检测人事系统是否打开（以验证网址进行检测） 
function aspurl(dz) 
on error resume next 
set xmlhttp=server.createobject("microsoft.xmlhttp") 
xmlhttp.open "get","http://",false 'http为验证网址 
xmlhttp.send 
if xmlhttp.status <>200 then 
aspurl=false 
else 
aspurl=true 
end if 
end function 
 
dz=request.querystring("asp") 
if aspurl(dz) then 
response.Write "<script>document.location.href='http://';</script>" 'http为通过验证后跳转网址 
else 
  response.Write "<script>alert('人事系统维护中，请稍后重试或与管理员联系！');</script>" '未通过验证弹出提示信息 
    response.Write "<script>document.location.href='../index.html';</script>"  '未通过验证跳转网址 
end if 
%> 
</body></html>


        


三生石  [个人空间]
QQ名  Meng


注册  2005-09-20
发贴数  7383
精华贴  14
原创贴  6
来自  杭州
状态  正常

级别  版主
#2»发布于2015-12-15 11:45

 
感谢 chuanying 分享，很实用的代码


        




 三生石上旧精魂 赏月吟风莫要论 惭愧情人远相访 此身虽异性长存


 2  1/1   1  

登录后方可发贴

[ 电话: 0571-85462761 王先生 QQ: 124520435 加入软件QQ群 - 杭州 - 浙ICP备19051128号-1 网安 33010402003225 ]