<% call spiderbot() dim page: page = request("page") if Len(page) = 0 or not isnumeric(page) or instr(page,",") > 0 then page = 1 else page = Int(page) if page < 1 then page = 1 if (createhtml = 1 or createhtml = 3) and page = 1 then ' 调用静态文件 on error resume next Server.transfer("index." & defaultext) if err then err.clear call createindex(1) conn.close: set conn = nothing Server.Transfer("Index." & defaultext) if err then err.clear: response.write "

Create Index error!

": response.end end if else ' 动态生成 if not chkcache("Cache_Index_" & page) then call clscache call setcache("Cache_Index_" & page, createindex(page)) conn.close: set conn = nothing end if dim html html = getcache("Cache_Index_" & page) html = rewriterule(html) response.write html end if %>