%
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
%>