Recommandé: comment déterminer si un objet a été libéré Ce qui suit est le contenu référencé: <% Dim Conn 'Declare Set Conn = Server.CreateObject (ADODB.Connection)' Créer 'Utiliser Set Conn = Nothing' pour libérer%>
| <% Response.Write (<A-Head> <ystyle> <! - Span {Font-Size: 9pt} -> </ Style> </ Head>) Sur l'erreur reprendre ensuite Dim thisUrl, thistext thisUrl = request (thisUrl) 'définir l'adresse du fichier (document de format non-HTML)! Si thisUrl = alors Réponse.write (<span> Veuillez d'abord saisir l'adresse du fichier! </span>) Réponse. Terminer si Fonction objxmlhttp (xmlurl) Sur l'erreur reprendre ensuite Définir objxml = createObject (Microsoft.xmlhttp) objxml.open get, xmlurl, false OBJXML.SetRequestHeader Type de contenu, application / x-www-form-urlencoded objxml.send objxmlhttp = objxml.Responsebody Si err alors Err.Clear Response.Write (<span> La connexion n'a pas réussi à établir, le fichier n'existe pas ou il y a un problème de réseau! Réponse. Terminer si Fonction finale Fonction bytes2bSTR (VIN) Streturn = Pour i = 1 à Lenb (vin) ThisCharcode = ASCB (midb (vin, i, 1)) Si thischarcode <& h80 alors Streturn = Strreturn & Chr (ThisCharcode) Autre NextCharcode = ASCB (Midb (vin, i 1,1)) STRRETURN = STRRETURN & CHR (CLNG (ThisCharcode) * & H100 Cint (NextCharcode)) i = i 1 Terminer si Suivant bytes2bstr = STRRETURN Fonction finale ThisUrl2 = Split (thisUrl ,,) Pour chaque II dans thisUrl2 thisText = bytes2Bstr (objxmlhttp (ii)) Si instr (thisText, <html>) <> 0 alors Réponse.write (<span> & ii & <b> × </b> </span> <br>) Autre Réponse.write (<span> & ii & <b> √ </b> </span> <br>) Terminer si Suivant Si err alors Err.Clear Response.Write (<span> Terminez un accident! Réponse. Terminer si %> |
Partager: IIS Virtual Host Site Web Anti-Trojan Permission Paramètres et Tri de configuration de sécurité J'ai fait référence à de nombreux paramètres de sécurité sur Internet et j'ai fait quelques pratiques par moi-même. J'ai compilé ces articles de paramètres de sécurité. J'espère que ce sera utile à tout le monde. De plus, s'il y a des lacunes, veuillez me donner quelques conseils, puis compenser. Merci! 1. Système