进入邮箱      06-1-24更新

* 应影友要求，精艺论坛终于开张了，请大家踊跃投稿！                                   * 应影友要求，精艺论坛终于开张了，请大家踊跃投稿！                                         * 应影友要求，精艺论坛终于开张了，请大家踊跃投稿！            ·可以免费群聊的[大家聊吧]也开张啦！一起来聊吧！

<% dim visitors whichfile=server.mappath("asp/count.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichfile) visitors=thisfile.readline thisfile.close countlen=len(visitors) for i=1 to countlen response.write "" next visitors=visitors+1 Set out=fs.CreateTextFile(whichfile) out.WriteLine(visitors) out.close set fs=nothing %>快速网600*800