مشکل با Long Running Process

[shahab_ksh]

با سلام

من از کد زیر برای Long Process استفاده می کنم



idu = Guid.NewGuid()
Dim ts AsThreadStart = NewThreadStart(AddressOf LongRunningProcess)
Dim th AsThread = NewThread(ts)
th.Start()


و تابع LongRunningProcess بصورت زیر می باشد



For i = 0 To 1000 Step i + 1
Thread.Sleep(10)

Next


خوب این کد بصورت صحیح اجرا میشه اما مشکل اینه

وقتی شما قصد اضافه کردن کدی رو غیر از Thread.Sleep(10) دارید

به مشکل بر میخورید و iis دچار مشکل میشه

این کد



ProtectedSub LongRunningProcess()　
Dim i AsInteger

For i = 0 To 10 Step i + 1
Thread.Sleep(100)
　
Dim appPath AsString = Request.PhysicalApplicationPath
Dim filePath AsString = appPath + i + ".txt"
Dim w AsStreamWriter
w = File.CreateText(filePath)
w.WriteLine("This is a test line.")
w.WriteLine("This is another line.")
w.Flush()
w.Close()

Next
EndSub