<%Response.Expires=0%> <% dim outtext dim num '倒数第几个跟帖 dim allnum '总共多少跟帖 dim star '第几页 dim rootID if request("rootID")="" then response.write "非法的贴子参数。" response.end elseif not isInteger(request("rootID")) then response.write "非法的贴子参数。" response.end else rootID=request("rootID") end if num=0 outtext="  " function HTMLEncode(fString) fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = replace(fString, "'", "") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "；") fString = Replace(fString, CHR(10), "，") HTMLEncode = fString end function dim totalusetable set rs=conn.execute("select child,PostTable from topic where topicid="&rootid) allnum=rs(0) totalusetable=rs(1) sql="select layer,rootid,announceid,topic,body,username,postuserid from "&totalusetable&" where boardid="& boardid &" and rootid="& rootid &" and parentid>0 and locktopic<2 order by rootid desc,orders" set rs=conn.execute(sql) %>