<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      ASP判斷文件地址是否有效果!
                
                  發表時間：2024-02-03             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]<%'原創作者:小藝 QQ:52093 時間:2005.6.30 Response.Write("<head><style><!--span font-size: 9pt --></style></head>&qu...
      <%
      '原創作者:小藝 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
      'www.knowsky.com
      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
      %>



              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清