% OPTION EXPLICIT %> <% 'If we do not set response.buffer=true, the redirect will not work response.buffer=true dim catID,subCatID,Page catID = "9" subCatID = Request.QueryString("subCatID") Page = Request.QueryString("Page") %>
师父与弟子合影 师父单影 师父法像 师父相关物 <% dim i for i = 1 to numberOfPage IF i = cint(Page) then response.write("第" & CStr(i) & "页" & chr(13)) else response.write("第" & CStr(i) & "页" & chr(13)) end if next %>