asp下的一个检测链接是否正常的函数

Function urlChk(sUrl)

on error resume next

Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

xmlHttp.open "GET",sUrl,false

xmlHttp.send

    if xmlHttp.Status <> 200 then

        urlChk=false

    else

        urlChk=true

    end if

End Function

sUrl="http://www.jb51.net"

if urlChk(sUrl) then

    response.write(sUrl&"(可以正常访问)")

else

    response.write(sUrl&"(访问不了)")

end if

时间： 2024-10-16 12:43:30

asp下的一个检测链接是否正常的函数的相关文章

asp下的一个检测链接是否正常的函数_应用技巧

Function urlChk(sUrl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",sUrl,false xmlHttp.send     if xmlHttp.Status <> 200 then         urlChk=false     else         urlChk=true     

asp下的一个很简单的验证码程序第1/3页_应用技巧

主程序共三个  我的调用方式 <script language="javascript" src="/verify/num.asp"></script>  验证方式 if trim(Loginnum)<>trim(session("Loginnum")) then  Response.Write Error("验证码错误!")  Response.End  end if  num.asp 

asp下的一个很简单的验证码程序第1/3页

主程序共三个 我的调用方式 <script language="javascript" src="/verify/num.asp"></script>  验证方式 if trim(Loginnum)<>trim(session("Loginnum")) then  Response.Write Error("验证码错误!")  Response.End  end if num.asp <

asp 下用正则表达式检测邮箱格式的函数_应用技巧

'********************************************************* '函数:IsValidEmail[str] '参数:str,待处理的字符串 '作者:木木 '日期:2007/7/12 '描述:检测邮箱格式是否为xxxx@xxx.com或者xxxx@xxx.com.cn等格式 '示例:<%=IsValidEmail(ali@alixixi.com)%> '*********************************************

asp 下用正则表达式检测邮箱格式的函数

'********************************************************* '函数:IsValidEmail[str] '参数:str,待处理的字符串 '作者:木木 '日期:2007/7/12 '描述:检测邮箱格式是否为xxxx@xxx.com或者xxxx@xxx.com.cn等格式 '示例:<%=IsValidEmail(ali@alixixi.com)%> '*********************************************

php下实现一个阿拉伯数字转中文数字的函数_php技巧

如果要用于金额的转换,对小数部分的处理要做一下修改 <?php function ch_num($num,$mode=true) { $char = array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖"); $dw = array("",&quo

asp下实现对HTML代码进行转换的函数_应用技巧

<% '****************************** '函数:HTMLEncode(reString) '参数:reString,待编码转换处理的字符串 '作者:阿里西西 '日期:2007/7/15 '描述:对HTML代码进行转换 '示例:HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString)

asp下实现格式化文件大小以MB显示的函数_应用技巧

<% '****************************** '函数:FormatFileSize(l1) '参数:l1,字节数 '作者:阿里西西 '日期:2007/7/12 '描述:格式化文件大小样式 '示例:<%=FormatFileSize(l1)%> '****************************** function FormatFileSize(l1)  dim l2,l3  l3=formatnumber(l1,0,true)  if l1>104

asp下实现对HTML代码进行转换的函数

<% '****************************** '函数:HTMLEncode(reString) '参数:reString,待编码转换处理的字符串 '作者:阿里西西 '日期:2007/7/15 '描述:对HTML代码进行转换 '示例:HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString)