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-07-29 20:19:10

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下实现对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下tag的实现,简单介绍与部分代码_应用技巧

标签(Tag)是什么? 标签是一种更为自由.灵活,完全由用户决定的分类方式,而非传统的由网站定义的分类.您可以根据自己的理解,对发表的文章.上传的图片.音乐.视频等各种文件添加一个或多个标签,进行灵活的描述. 添加标签(Tag)有什么作用? 标签体现了群体的力量,使得用户之间可以通过相近的内容产生更多的关联和互动.您在发表日志或上传文件时添加了Tag ,就可以看到woku.com所有和您使用了相同Tag 的日志和文件. 标签频道中不同大小.粗细的文字代表什么? 使用不同大小.粗细字体的标签,

asp下轻松实现将上传图片到数据库的代码_应用技巧

轻松实现将上传图片到数据库很久就想自己写一写程序了,不过由于赖就不想写我,今天刚好有空,所以写了这个小小的程序很容易一看就知道的,不多说了就此开始: 我们做一个上传的.数据据库的字段就id自动编号 big 字段类型是 OLE 呵呵就简单的那个字段好了 uppic.asp上传程序名 <% dim rs dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata formsize=request.totalbytes '取得客户端发

asp下对POST提交数据限制的解决方法_应用技巧

问题的解决办法是,对于一个需要发送大数据的域,在提交表单前将数据拆分为小于限额的数份,分别放在数个hidden域中,同时把原有域清空,再正式提交表单.服务器端还是用Request.Form()读取各hidden域的数据,再按照顺序把他们拼接起来就行了.主要代码如下: 注意:需要在Form中的HTML代码内指定一个DIV,以便向其中动态插入hidden域. ====客户端示例代码==== 在Form中的HTML代码内加入:<div id=divHidden></div>,在F

asp检测是否为中文字符函数_应用技巧

<% '****************************** '函数:CheckChinese(strng) '参数:strng,待验证字符 '描述:检测是否为中文字符,返回值:中文为true,否则false '示例:<%=CheckChinese(strng)%> '****************************** Function CheckChinese(strng) CheckChinese = true Dim regEx, Match Set regEx

asp.net验证一个字符串是否符合指定的正则表达式_实用技巧

/// <summary> /// 快速验证一个字符串是否符合指定的正则表达式. /// </summary> /// <param name="_express">正则表达式的内容.</param> /// <param name="_value">需验证的字符串.</param> /// <returns>是否合法的bool值.</returns> public st

asp代码实现检测组件是否安装的函数_应用技巧

<% '****************************** '函数:IsObjInstalled(strClassString) '参数:strClassString,组件对象名 '作者:阿里西西 '日期:2007/7/13 '描述:检测组件是否安装 '示例:<%=IsObjInstalled(strClassString)%> '****************************** Function IsObjInstalled(strClassString)