<%
if isnull(isopenpreview170905) or isopenpreview170905="" then isopenpreview170905=0
if isnull(content170905) or content170905="" then content170905=""
if isnull(tqzwzs170905) or tqzwzs170905="" then tqzwzs170905=200
if isnull(isdelimg170905) or isdelimg170905="" then isdelimg170905=0
if not gonext and isopenpreview170905=1 then
'      desstr170905 = RemoveHTML(content170905)
      desstr170905 = content170905
if isdelimg170905=0 then
if desstr170905="" or len(desstr170905)<4 then
      desstr170905 = lefts(nohtmlsaveimg170905(left(content,500)), tqzwzs170905)
	  if len(desstr170905)<tqzwzs170905/2 then desstr170905 = lefts(nohtmlsaveimg170905(left(content,2500)), tqzwzs170905)
	  if len(desstr170905)<tqzwzs170905/2 then desstr170905 = lefts(nohtmlsaveimg170905(content), tqzwzs170905)
End If
else
if desstr170905="" or len(desstr170905)<4 then
      desstr170905 = lefts(nohtmldelimg170905(left(content,500)), tqzwzs170905)
	  if len(desstr170905)<tqzwzs170905/2 then desstr170905 = lefts(nohtmldelimg170905(left(content,2500)), tqzwzs170905)
	  if len(desstr170905)<tqzwzs170905/2 then desstr170905 = lefts(nohtmldelimg170905(content), tqzwzs170905)
End If
end if
%>
tmpstr=tmpstr+("<div class=\"partshow170905\">");
tmpstr=tmpstr+("<div class=\"partshowstr170905\">温馨提示：这里是文章的部分内容（全文共：<%=len(content)%> 字，当前仅显示 <%=len(desstr170905)%> 字），阅读全文请按照上方提示操作");
tmpstr=tmpstr+("</div>");
<%
response.Write tojs2(tr_arcontent(desstr170905, 700, 1, "tdload", pageno), "tmpstr")
%>
tmpstr=tmpstr+("</div>");
<%end if
function nohtmlsaveimg170905(str) 
Set   re=new   RegExp 
re.IgnoreCase   =true 
re.Global=True 
re.Pattern="(<(?!img).[^<]*>)" 
str=re.replace(str,"") 
re.Pattern="(<\/(?!p)[^<]?>)" 
str=re.replace(str,"") 
nohtmlsaveimg170905=str 
set re=nothing 
end function

function nohtmldelimg170905(str) 
Set   re=new   RegExp 
re.IgnoreCase   =true 
re.Global=True 
re.Pattern="<.+?>"
str=re.replace(str,"") 
re.Pattern="(<\/(?!p)[^<]?>)" 
str=re.replace(str,"") 
nohtmldelimg170905=str 
set re=nothing 
end function
%>