Public Sub zcy_duwenzi(txt) '读文字 On Error Resume Next Set X.AudioOutputStream = Nothing X.Resume X.Speak txt, SVSFIsNotXML + SVSFlagsAsync Response.Write ("eeeeeeeeeeeeeeeee")'这里是为了测试朗读是否进行 End Sub
其他内容省略。。。。
我用vb进行测试是正常的，代码为：
Dim testdll As zcy_reading_class '类模块名字
Private Sub Command1_Click() Set testdll = New zcy_reading_class 'DLL的一个新实例 Call testdll.zcy_duwenzi("txt") '读文字 End Sub
但是我用asp则不能读，代码为:
<% on error resume next Dim zcyzzzm_reading Set zcyzzzm_reading = Server.CreateObject("zcy_reading.zcy_reading_class") call zcyzzzm_reading.zcy_duwenzi("txt") '读文字 %>
