Application.Lock '更新缓存。 Application.Contents.remove(bbsinfo&"IndexBoard"&Boardid) Application.Contents.remove(bbsinfo&"list"&boardid) Application.Contents.remove(BBSInfo&"ToDayPostNum") Application.Contents.remove(BBSInfo&"UserNum") Application.Contents.remove(bbsinfo&"Boardinfo"&BoardID) Application.UnLock Call CreateIndexHtml end if end if