1 <SoapHeader("oHeader")> _ 2 <WebMethod()> _ 3 <ScriptMethod(ResponseFormat:=ResponseFormat.Json)> _ 4 Public Function Test_SyncLock() As String 5 Dim threads(10) As Threading.Thread 6 For i As Integer = 0 To 10 7 threads(i) = New Threading.Thread(AddressOf PrintNumbers) 8 threads(i).Name = String.Format("Worker thread #{0}", i) 9 Next 10 ' Now start each one. 11 For Each t As Threading.Thread In threads 12 t.Start() 13 Next 14 Return "" 15 End Function 16 17 Private Sub PrintNumbers() 18 writeLog("", "a", Threading.Thread.CurrentThread.Name) 19 End Sub 20 21 #Region "Write Log File" 22 23 Private threadLock As Object = New Object() 24 Public Sub writeLog(ByVal dir As String, ByVal fileName As String, ByVal log As String) 25 26 Dim filePath As String = System.IO.Path.Combine(System.Web.Hosting.HostingEnvironment.MapPath("~/"), 27 "Log/" & dir & "/" & fileName & ".log") 28 SyncLock threadLock 29 '创建目录 30 Dim dirPath As String = filePath.Substring(0, filePath.LastIndexOf("/")) 31 If (Directory.Exists(dirPath) = False) Then 32 Directory.CreateDirectory(dirPath) 33 End If 34 Dim aa As System.IO.StreamWriter = New System.IO.StreamWriter(filePath, True, System.Text.Encoding.UTF8) 35 aa.WriteLine(log) 36 aa.Close() 37 aa.Dispose() 38 End SyncLock 39 End Sub 40 #End Region
