我要投稿
  • 您当前的位置:57365.com -> 技术教程 -> 网站建设教程 -> 源码精华 -> 教程内容
  • [ 收藏本页教程 ]
  • ASP判断文件地址是否有效源码精华教程

    教程作者:佚名    教程来源:不详   教程栏目:源码精华    收藏本页
    <%
    '原创作者:小艺 QQ:52093 时间:2005.6.30
    Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")
    On Error Resume Next
    Dim thisurl,thistext
    thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!
    if thisurl="" then
    Response.Write("<span>请先输入文件地址!</span>")
    Response.End
    End if

    Function objxmlhttp(xmlurl)
    On Error Resume Next
    Set objxml = CreateObject("Microsoft.XMLHTTP")
    objxml.Open "get",xmlurl,false
    objxml.setrequestheader "content-type","application/x-www-form-urlencoded"
    objxml.send
    objxmlhttp = objxml.responsebody
    if Err then
    Err.Clear
    Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"!</span>")
    Response.End
    End if
    End Function

    Function bytes2BSTR(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
    ThisCharCode = AscB(MidB(vIn,i,1))
    If ThisCharCode < &H80 Then
    strReturn = strReturn & Chr(ThisCharCode)
    Else
    NextCharCode = AscB(MidB(vIn,i+1,1))
    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    i = i + 1
    End If
    Next
    bytes2BSTR = strReturn
    End Function

    thisurl2=Split(thisurl,",")
    For Each ii In thisurl2
    thistext=bytes2BSTR(objxmlhttp(ii))
    if InStr(thistext,"<html>")<>0 then
    Response.Write("<span>"& ii &" <b>×</b></span><br>")
    Else
    Response.Write("<span>"& ii &" <b>√</b></span><br>")
    End if
    Next

    if Err then
    Err.Clear
    Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"!</span>")
    Response.End
    End if
    %>

    (出处:

    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有