<%
function gettipnum()
dim tmprs
tmprs=conn.execute("Select Count(NewsID) from News ")
gettipnum=tmprs(0)
set tmprs=nothing
if isnull(gettipnum) then gettipnum=0
end function
function CovtTitle(content)
if content<>"" then
CovtTitle=content
CovtTitle=replace(CovtTitle,"[粗]","")
if instr(1,CovtTitle,"",1)<>0 then CovtTitle=CovtTitle+""
CovtTitle=replace(CovtTitle,"[红]","")
if instr(1,CovtTitle,"0 then CovtTitle=CovtTitle+""
CovtTitle=replace(CovtTitle,"[蓝]","")
if instr(1,CovtTitle,"0 then CovtTitle=CovtTitle+""
CovtTitle=replace(CovtTitle,"[绿]","")
if instr(1,CovtTitle,"0 then CovtTitle=CovtTitle+""
CovtTitle=replace(CovtTitle,"[紫]","")
if instr(1,CovtTitle,"0 then CovtTitle=CovtTitle+""
CovtTitle=replace(CovtTitle,"[酱]","")
if instr(1,CovtTitle,"0 then CovtTitle=CovtTitle+""
CovtTitle=replace(CovtTitle,"[橙]","")
if instr(1,CovtTitle,"0 then CovtTitle=CovtTitle+""
CovtTitle=replace(CovtTitle,"[建议]","[建议]")
CovtTitle=replace(CovtTitle,"[注意]","[注意]")
CovtTitle=replace(CovtTitle,"[下载]","[下载]")
CovtTitle=replace(CovtTitle,"[公告]","[公告]")
CovtTitle=replace(CovtTitle,"[转载]","[转载]")
CovtTitle=replace(CovtTitle,"[焦点]","[焦点]")
CovtTitle=replace(CovtTitle,"[社会]","[社会]")
CovtTitle=replace(CovtTitle,"[推荐]","[推荐]")
CovtTitle=replace(CovtTitle,"[原创]","[原创]")
end if
End function
%>
