推薦:怎麼判斷一個對像是否已被釋放以下為引用的內容:<%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的安全設置以及自己動手做了一些實踐,綜合了這些安全設置文章整理而成,希望對大家有所幫助,另外裡面有不足之處還請大家多多指點,然後給補上,謝謝!一、系統