Recommended: How to determine whether an object has been released The following is the referenced content: <%Dim conn' declare Set conn = Server.CreateObject(ADODB.Connection)'Create' Use Set conn = Nothing' to release %>
| <% Response.Write(<head><style><!--span{ font-size: 9pt }--></style></head>) On Error Resume Next Dim thisurl, thistext thisurl=Request(thisurl) 'Define file address (non-Html format document)! if thisurl= then Response.Write(<span>Please enter the file address first!</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>The connection failed to establish, the file does not exist or there is a network problem!;Error reason:&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>End an accident!;Error reason:&Err.Description&!</span>) Response.End End if %> |
Share: IIS virtual host website anti-Trojan permission settings and security configuration sorting I have referred to many security settings on the Internet and have done some practices by myself. I have compiled these security settings articles. I hope it will be helpful to everyone. In addition, if there are any shortcomings, please give me some advice and then make up for it. Thank you! 1. System