Я обнаружил, что фальшивая ветка открылась с помощью ASP Online, и обнаружил, что она совпала с программой, которую я делал раньше, но я использовал VB раньше, снял ее и зарезервировал.
1. Принципы эксперименты, конечно, одинаковы. Мы используем веб -сервер для поддержки нескольких потоков и отправляем несколько HTTP -запросов на сервер на одной и той же странице, чтобы завершить нашу работу. Давайте сначала экспериментируем, напишите 2 файла TXT одновременно на странице, чтобы сравнить разницу во время написания. Код выглядит следующим образом: <%
startTime = timer ()
'' ------------------------------------------------------------------------------------------------------------------------
функция runThread ()
Dim http
Установить http = server.createObject ("msxml2.xmlhttp")
Http.open "Get", "http://127.0.0.1/thread.asp?action=b", false
Http.send ()
конечная функция
функция a ()
Dim Content, FilePath, MyFile
Content = теперь () и Chr (30) & Timer ()
Filepath = server.mappath ("a.txt")
Установить fso = createObject ("scripting.filesystemobject")
Установить myfile = fso.createTextFile (filePath, True)
Myfile.write (контент)
Myfile.close
конечная функция
Функция b ()
Dim Content, FilePath, MyFile
Content = теперь () и Chr (30) & Timer ()
Filepath = server.mappath ("b.txt")
Установить fso = createObject ("scripting.filesystemobject")
Установить myfile = fso.createTextFile (filePath, True)
Myfile.write (контент)
Myfile.close
конечная функция
if (request.querystring ("action") = "") затем
runthread ()
a ()
еще
b ()
конец, если
%> Время выполнения скрипта: <%= fix ((timer ()-startime)*1000)%> MS Результат после запуска показывает, что время в файле A и файле B в основном одинаково. 2. Практическое сравнение применений. Например, я одновременно получаю HTML -код из 2 страниц, одну домашнюю страницу Sohu, а одна - домашняя страница Sina. Двумя способами: один-это обычный порядок выполнения кода, выполнение с одним потоком, а другой-многопоточное выполнение здесь. Сравните время завершения страницы, код следующим образом: testspeed1.asp: <%
startTime = timer ()
функция gethttppage (url)
при ошибке резюме следующим
Dim http
Установить http = server.createObject ("msxml2.xmlhttp")
Http.open "post", url, false
Http.send ()
Если http.readystate <> 4, то функция выхода
gethttppage = bytes2bstr (http.responsebody)
Содержание = Gethttppage
Response.write "<xmp>"
Response.write (содержание)
Response.write "</xmp>"
Установите http = ничего
Если err.number <> 0, то err.clear
конечная функция
Функция Bytes2BSTR (VIN)
Dim Strreturn
Dim I, ThisChode, NextChode
strreturn = ""
Для i = 1 к Lenb (VIN)
ThisChode = ASCB (MIDB (VIN, I, 1))
Если этот код <& H80, тогда
strreturn = strreturn & chr (this charcode)
Еще
NextChode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thisChode) * & h100 + cint (nextcharcode))
i = i + 1
Конец, если
Следующий
Bytes2bstr = strreturn
Конечная функция
gethttppage ("http://www.sohu.com/")
gethttppage ("http://www.sina.com.cn/")
%> Время выполнения скрипта: <%= fix ((timer ()-startime)*1000)%> MS TestSpeed2.asp: <%
startTime = timer ()
функция gethttppage (url)
при ошибке резюме следующим
Dim http
Установить http = server.createObject ("msxml2.xmlhttp")
Http.open "post", url, false
Http.send ()
Если http.readystate <> 4, то функция выхода