Encontrei um tópico falso aberto com o ASP on -line e descobri que ele coincidia com um programa que fiz antes, mas usei o VB antes, o peguei e o reservei.
1. Os experimentos de princípios são obviamente os mesmos. Usamos o servidor da Web para oferecer suporte a vários threads e enviar várias solicitações HTTP ao servidor na mesma página para concluir nosso trabalho. Vamos experimentar primeiro, escreva 2 arquivos TXT ao mesmo tempo em uma página para comparar a diferença no tempo de escrita. O código é o seguinte: <%
startTime = timer ()
'' ------------------------------------------------------------------------------------------------------------------------------------
função runthread ()
Dim http
Definir http = server.createObject ("msxml2.xmlHttp")
Http.open "get", "http://127.0.0.1/thread.asp?action=b", false
Http.send ()
Função final
função a ()
Conteúdo escuro, filepath, myfile
Content = agora () e Chr (30) e Timer ()
Filepath = server.mappath ("a.txt")
Set fso = createObject ("script.filesystemoBject")
Definir myFile = fso.createTextFile (filepath, verdadeiro)
Myfile.write (conteúdo)
Myfile.close
Função final
função b ()
Conteúdo escuro, filepath, myfile
Content = agora () e Chr (30) e Timer ()
Filepath = server.mappath ("b.txt")
Set fso = createObject ("script.filesystemoBject")
Definir myFile = fso.createTextFile (filepath, verdadeiro)
Myfile.write (conteúdo)
Myfile.close
Função final
if (request.QueryString ("Action") = "") então
runthread ()
um()
outro
b ()
final se
%> Tempo de execução do script: <%= fix ((timer ()-startime)*1000)%> ms O resultado após a execução mostra que o tempo no arquivo A e o arquivo B é basicamente o mesmo. 2. Comparação prática de aplicação. Por exemplo, pego o código HTML de 2 páginas ao mesmo tempo, uma página inicial de Sohu e uma é a página inicial do Sina. De duas maneiras: uma é a ordem regular de execução de código, a execução de thread única, e a outra é a execução de vários thread aqui. Compare o tempo de conclusão da página, o código é o seguinte: testspeed1.asp: <%
startTime = timer ()
Função Gethttppage (URL)
em erro de erro em seguida
Dim http
Definir http = server.createObject ("msxml2.xmlHttp")
Http.open "post", url, false
Http.send ()
Se http.readyState <> 4, função de saída
gethttppage = bytes2bst (http.Responsebody)
Conteúdo = Gethttppage
Response.Write "<xmp>"
Response.Write (Conteúdo)
Response.Write "</xmp>"
Defina http = nada
se err.number <> 0, então err.clear
Função final
Função bytes2bstr (vin)
Dim strreturn
dim i, thischarcode, nextcharcode
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
Gethttppage ("http://www.sohu.com/")
Gethttppage ("http://www.sina.com.cn/")
%> Tempo de execução do script: <%= corrigir ((timer ()-startime)*1000)%> ms testspeed2.asp: <%
startTime = timer ()
Função Gethttppage (URL)
em erro de erro em seguida
Dim http
Definir http = server.createObject ("msxml2.xmlHttp")
Http.open "post", url, false
Http.send ()
Se http.readyState <> 4, função de saída