<% 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 dim html html = CreateContent(id, page) html = rewriterule(html) if qsscharset = 1 then response.Charset="utf-8" session.codepage = 65001 end if response.write html if isobject(conn) then conn.close: set conn = nothing %>