<%
function isDisNew(theDate)
if (DateDiff("h", theDate,now)<72) then
isDisNew=true '新的
else
isDisNew=false '旧的
end if
end function
%>
<%
function limitlen(str,strdate)
if isDisNew(strdate) then
if len(str)>18 then
limitlen=left(str,18)&"……"
else
limitlen=str
end if
else
if len(str)>21 then
limitlen=left(str,21)&"……"
else
limitlen=str
end if
end if
end function
%>
<%
function limitlen1(str,strdate)
if isDisNew(strdate) then
if len(str)>4 then
limitlen1=left(str,4)&"……"
else
limitlen1=str
end if
else
if len(str)>7 then
limitlen1=left(str,7)&"……"
else
limitlen1=str
end if
end if
end function
%>
<%
function limitlen4(str)
if len(str)>10 then
limitlen4=left(str,10)&"…"
else
limitlen4=str
end if
end function
function replacestr(str)
'str=replace(str,"
","")
'str=replace(str,"
","")
'str=replace(str," ","")
'replacestr=str
end function
%>
<%
function limitlen2(str,strdate)
if isDisNew(strdate) then
if len(str)>10 then
limitlen2=left(str,10)&"……"
else
limitlen2=str
end if
else
if len(str)>13 then
limitlen2=left(str,13)&"……"
else
limitlen2=str
end if
end if
end function
%>
<%
function limitstr1(str)
if len(str)>11 then
limitstr1=left(str,11)&"……"
else
limitstr1=str
end if
end function
function replacestr(str)
'str=replace(str,"
","")
'str=replace(str,"
","")
'str=replace(str," ","")
'replacestr=str
end function
%>
<%
function limitstr(str)
if len(str)>140 then
limitstr=left(str,140)&"……"
else
limitstr=str
end if
end function
function replacestr(str)
'str=replace(str,"
","")
'str=replace(str,"
","")
'str=replace(str," ","")
'replacestr=str
end function
%>
- 中国优质农产品资讯网--为全国农业行业优秀企业优秀产品提供宣传品牌推广公关会展资讯服务论文征集等专业网站
<%
set openrs=conn.execute("select * from a_content where reject=1 and pass=1 and title_in in (select id+'' from a_channel where group_id='15')")
if not openrs.eof then
%>
<%
end if
%>
