用ASP开”多线程”

要在ASP中使用多线程，可以使用VBScript中的几个对象。其中最常用的是Scripting.Run方法和ScriptControl对象。

下面是使用Scripting.Run方法的示例：

Sub RunThread()
    Dim objFSO, objThread
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objThread = objFSO.Run("c:\mythread.vbs", 1, True)
    Set objThread = Nothing
    Set objFSO = Nothing
End Sub

这个代码创建了一个名为RunThread的VBScript子例程，它使用Scripting.FileSystemObject对象来运行名为mythread.vbs的VBScript文件。这个方法的第一个参数是要运行的脚本的文件名，第二个参数是运行状态（0表示隐藏，1表示显示），第三个参数则指定是否等待脚本完成。设置为True之后，将等待直到脚本执行完毕，然后才会继续执行下面的代码。

下面是使用ScriptControl对象的示例：

Sub RunThread2()
    Dim objSC, objThread
    Set objSC = CreateObject("ScriptControl")
    objSC.language = "VBScript"
    objSC.addcode "Sub MySub()" & vbCrLf & _
                "   MsgBox(""Hello World"")" & vbCrLf & _
                "End Sub"
    Set objThread = objSC.run("MySub")
    Set objThread = Nothing
    Set objSC = Nothing
End Sub

这个代码创建了一个名为RunThread2的VBScript子例程，它使用ScriptControl对象来运行VBScript子例程MySub。在这个示例中，我们首先创建了一个ScriptControl对象，并设置其语言为“VBScript”。然后在对象中添加了VBScript代码字符串，这段代码将在运行MySub命令时执行。

在这两个示例中，我们使用不同的方法来创建多线程。第一个示例使用Scripting.FileSystemObject.Run方法来运行一个独立的脚本文件，第二个示例则使用ScriptControl对象来直接运行脚本代码。根据应用场景不同，可以选择不同的方法来实现多线程。