<% dim ContentID,Page,SortAndID,qs,strings,Sorturl strings=replaceStr(request.QueryString,FileExt,"") 'response.write strings Sorturl=split(strings,"&") SortAndID=split(Sorturl(0),"_") if isNul(replaceStr(request.QueryString,FileExt,"")) then echoMsgAndGo "页面不存在",3 ContentID=SortAndID(0) if not isNul(ContentID) and isNum(ContentID) then ContentID=clng(ContentID) else echoMsgAndGo "页面不存在",3 end if if ubound(SortAndID)=0 then page=1 else page=SortAndID(1) end if if not isNul(page) and isNum(page) then page=clng(page) else echoMsgAndGo "页面不存在",3 end if dim content : content=makeContent(ContentID, Page, false) if isnul(content) then echoMsgAndGo "页面不存在",3 else echo content end If If DebugMode Then echo timer - AppSpan %>