%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit %>
<% dim sql,rs,rsc,i
dim border
dim borderid
dim fontlen '标题长度
dim number '每页显示的文章数目
function invert(str)
invert=replace(replace(replace(replace(str,"<","<"),">",">"),"
",chr(13))," "," ")
end function
%>