用VB编写留言板

   add = InStr(StrData(I), "+")
        If add = 0 Then Exit Do
      Mid(StrData(I), add, 1) = " "
    Loop
Next I
End Function
注①：“TempFileName = "YourWebSitePath1\" & Number”中的YourWebSitePath1是由网络管理员指定的Web服务器上的绝对路径，用于存放临时文件。若是在自己计算机上进行测试，可以先设定为“c:\windows\temp\”。
注②：本句中的YourWebSitePath2亦是由网络管理员分配的服务器路径，用于存放超文本文档。自己测试时，可以先设定为“c:\inetpub\webpub\”。
注③：在上传时，“webpub”目录要随注②中YourWebSitePath2的改变而改变，不要遗忘，否则要出错。