Recomendado: Como determinar se um objeto foi liberado A seguir, o conteúdo referenciado: < %Dim Conn 'Declarar Set Conn = Server.CreateObject (Adodb.Connection)' Crie 'Use' Set Conn = Nothing 'para liberar %>
| <% Response.Write (<head> <yyled> <!-span {font-size: 9pt}-> </yles> </head>) Em erro de erro em seguida Dim theurl, thisText theurl = request (theurl) 'define o endereço do arquivo (documento de formato não html)! se theurl = então Response.write (<pan> Por favor, insira o endereço do arquivo primeiro! </span>) Resposta.END Final se Função objxmlhttp (xmlurl) Em erro de erro em seguida Set objxml = createObject (microsoft.xmlhttp) objxml.open get, xmlurl, false objxml.setRequestHeader-Type, Application/X-Www-Form-Urlencoded objxml.send objxmlHttp = objxml.ResponseBody Se errar então Err.clear Response.write (<pan> A conexão falhou em estabelecer, o arquivo não existe ou existe um problema de rede! Resposta.END Final se Função final Função bytes2bstr (vin) strreturn = Para i = 1 a lenb (vin) ThisCharcode = ASCB (MIDB (VIN, i, 1)) Se thischarcode <& h80 então strreturn = strreturn & ch (thischarcode) Outro NextCharCode = ASCB (MIDB (VIN, I 1,1)) strreturn = strreturn & ch (clng (thischarcode) * & h100 cint (nextcharcode)) i = i 1 Final se Próximo bytes2bstr = strreturn Função final thesurl2 = split (theurl ,,) Para cada ii em thesurl2 thisText = bytes2bstr (objxmlhttp (ii)) Se Instr (thisText, <html>) <> 0 então Response.write (<mpan> & ii & <b> × </b> </span> <br>) Outro Response.write (<mpan> & ii & <b> √ </b> </span> <br>) Final se Próximo Se errar então Err.clear Response.Write (<span> encerrar um acidente!; Razão de erro: & err.Description &! Resposta.END Final se %> |
Compartilhar: IIS Host Virtual Site Anti-Trojan Configurações de permissão e classificação de configuração de segurança Eu me referi a muitas configurações de segurança na Internet e fiz algumas práticas sozinho. Eu compilei esses artigos de configurações de segurança. Espero que seja útil para todos. Além disso, se houver alguma falha, dê -me alguns conselhos e compensar isso. Obrigado! 1. Sistema