ASP進階:用ASP判斷文件地址是否有效_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:怎么判斷一個對象是否已被釋放
      以下為引用的內容: <% Dim conn'聲明 Set conn = Server.CreateObject("ADODB.Connection")'創建 '使用 Set conn = Nothing'釋放 %>

      <%
      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
      %>

      分享:IIS虛擬主機網站防木馬權限設置安全配置整理
      參考了網絡上很多關于WIN2003的安全設置以及自己動手做了一些實踐,綜合了這些安全設置文章整理而成,希望對大家有所幫助,另外里面有不足之處還請大家多多指點,然后給補上,謝謝! 一、系統

      來源:模板無憂//所屬分類:ASP教程/更新時間:2008-08-22
      相關ASP教程