Recomendado: cómo determinar si se ha liberado un objeto El siguiente es el contenido referenciado: < %dim conn 'declarar set conn = server.createObject (ADODB.Connection)' Create 'Use Set Conn = Nothing' para liberar %>
| <% Response.Write (<head> <style> <!-span {font-size: 9pt}-> </style> </head>) En el currículum de error siguiente Dim thisurl, thisText thesURL = request (thisUrl) 'Defina la dirección del archivo (documento de formato no HTML)! Si thisUrl = entonces Response.write (<span> Ingrese la dirección del archivo primero! </span>) Respuesta. Final si Función objxmlhttp (xmlurl) En el currículum de error siguiente Establecer objxml = createObject (microsoft.xmlhttp) objxml.open get, xmlurl, falso objxml.setRequestHeader Type de contenido, Application/X-WWW-Form-URLENCODEDEDEDED objxml.send objxmlhttp = objxml.ResponseBody Si err entonces Err.Clear Response.write (<span> La conexión no pudo establecer, el archivo no existe o hay un problema de red. Respuesta. Final si Función final Función bytes2bstr (vin) strreturn = Para i = 1 a Lenb (vin) ThisCharCode = ASCB (MidB (Vin, I, 1)) Si thisCharCode <& H80 entonces strreturn = strreturn & chr (thisCharcode) Demás Nextcharcode = ascb (midb (vin, i 1,1)) strreturn = strreturn & chr (clng (thisCharcode) * & H100 cint (nextcharcode))) i = i 1 Final si Próximo bytes2bstr = strreturn Función final thesURL2 = Split (Thisurl ,,) Para cada ii en thaturl2 thisText = bytes2bstr (objxmlhttp (ii)) if instrer (thisText, <html>) <> 0 entonces Response.write (<span> & II & <b> × </b> </span> <br>) Demás Response.write (<span> & II & <b> √ </b> </span> <br>) Final si Próximo Si err entonces Err.Clear Response.write (<span> finaliza un accidente! Respuesta. Final si %> |
Compartir: IIS Virtual Host Sitio web Configuración de permiso anti-troyano y clasificación de configuración de seguridad Me he referido a muchas configuraciones de seguridad en Internet y he realizado algunas prácticas por mí mismo. He compilado estos artículos de configuración de seguridad. Espero que sea útil para todos. Además, si hay alguna deficiencias, dame algunos consejos y luego compensándolo. ¡Gracias! 1. Sistema