还是不行
去掉new哪行编译可以通过,但在asp运行时显示
错误类型:
Microsoft VBScript 运行时错误 (0x800A005B)

解决方案 »

  1.   

    你先在Form1中增加Winsock控件,然后在类初始化时Load Form1
    Private WithEvents mywinsock As Form1.Winsock1
    然后Set mywinsock = Form1.Winsock1
      

  2.   

    编译时在Private WithEvents mywinsock As Form1.Winsock1
    哪行显示
     子程序或函数中的属性无效
      

  3.   

    private WithEvents mywinsock As MSWinsockLib.Winsock
    Set mywinsock = Form1.Winsock1
      

  4.   

    点工程菜单的引用菜单项,出现可以引用的activex dll,选择浏览,到系统的system目录找到winsock控件的ocx文件MSWINSCK.OCX选择即可
    private withevents mysock as mswinsocklib.winsockset mysock=new mswinsocklib.winsock