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教程：