<% dim id: id = request("id") dim page: page = request("page") if Len(id) = 0 or not isnumeric(id) or instr(id,",") > 0 then response.write "

id error!

" :response.end 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 not chkcache("Cache_List_" & id & "_" & page) then call setcache("Cache_List_" & id & "_" & page, CreateChannel(id, page)) conn.close: set conn = nothing end if dim html html = getcache("Cache_List_" & id & "_" & page) html = rewriterule(html) response.write html %>