multithread??????
在 server中 同時open 多個word??????
关注ing
在 server中 同時open 多個word??????
关注ing
解决方案 »
- asp.net ctrl+F5 运行后遇到的郁闷事。。。求解!!
- 一个可以设置中奖概率的抽奖程序
- 关于sql时间比较的问题
- 如何判断客户端是否下载成功?
- 用GridView自动的Edit按钮为什么不能随着过滤自动刷新
- 有关listbox ~!
- 关于时间显示格式的问题~~
- 调试的时候devenv.exe进程的CPU使用99%,速度奇慢
- (在线急等)一个类与object隐式转换的问题!
- asp.net的菜鸟,请教各位mvp问题
- 最近需要写一些技术文档和项目总结,请大家给点参考文献,多谢!!!
- ===???遇到难题了e.Item.Attributes.Add("onmouseover", "this.style.backgroundColor='#a9a9a9';this.style.color='buttontext';
Boost Web Performance With Multithreading
http://www.fawcette.com/vsm/2002_11/magazine/features/chester/>>>可否使用multithread 在 server中 同時open 多個word ???
suppose so, but why do you want to do that? msword is very resource extensive
suppose so, but why do you want to do that? msword is very resource extensive因為個server 是 multi-task, 多個user 會 open 各自已的word
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '//make sure the user has entered proper data
'//by relying on the Page.IsValid method which will
'//return false if the user hasn't entered the proper data
If (Page.IsValid = True) Then '//create a new thread and point it at the
'//generate prime numbers method
Dim NewThread As Thread = New Thread(AddressOf GeneratePrimeNumbers) '//set the thread priority to something
'//that is acceptable, warning setting the priority
'//to normal or higher will potentially lock up your server,
'//or make your asp.net pages respond very slowly. The best
'//priority to use is lowest
NewThread.Priority = ThreadPriority.Lowest '//start the new thread running
NewThread.Start() '//redirect the user to the response page
'//while the thread is working
Response.Redirect("/multithreaded/results1.aspx")
End If End Sub Public Sub GeneratePrimeNumbers() '//create an XmlDocument that we can store our results in
'//and we'll save this information to a session variable when
'//we are done
Dim Results As XmlDocument = New XmlDocument()
Dim Node1 As XmlNode = Results.CreateElement("PrimeNumbers")
Results.AppendChild(Node1) '//lock the session variable collection so that it
'//thread safety is assurred
SyncLock Session.SyncRoot
Session("Results") = Results.InnerXml
End SyncLock '//create counter that we use to look through
'//as we move from min to max value looking for
'//prime numbers
Dim Counter As Integer '//create a for-next looping control structure.
'//we go through each number from min to max looking to see
'//if it is a prime number
For Counter = Convert.ToInt32(MinValue.Text) To Convert.ToInt32(MaxValue.Text) Step 1 '//create a boolean variable and set it to true
'//if we find that the number isn't prime, then we set this to false
Dim prime As Boolean = True '//create second count. We'll go through and divide counter
'//by each of these numbers. If there isn't a remainder, then
'//the number isn't prime.
Dim Counter2 As Integer '//This is the second control structure. we start at 2 and move up to the
'//value of counter. During each interation, we divide Counter by Counter2
'//if the operation doesn't return a remainder, then the number isn't prime.
For Counter2 = 2 To (Counter - 1) Step 1
'//here's where we do the dividing. If no remainder, then we simply
'//set the value of the prime variable to false
If (Counter Mod Counter2 = 0) Then
prime = False
End If
Next If prime = True Then
'//add our prime number to our xml document
'//so that the number can be returned
Dim node2 As XmlNode = Results.CreateElement("Number")
node2.InnerText = Counter
Results.DocumentElement.AppendChild(node2) '//show update the results session variable
'//provided that the user has selected to show
'//partial results
If (ShowPartial.Checked = True) Then '//again, lock the session object so that
'//thread safety is assurred
SyncLock Session.SyncRoot
Session("Results") = Results.InnerXml
End SyncLock
End If End If Next '//update the session variable with the final results
'//locking the object first
SyncLock Session.SyncRoot
Session("Results") = Results.InnerXml '//set the session finished variable to true
'//which indicates that the second thread has completed it's work
Session("Finished") = True
End SyncLock
End Sub