<%
Domain=Request.ServerVariables("SERVER_NAME")
soFilePath=Request.ServerVariables("PATH_INFO")
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
sowinpath=Domain&soFilePath
%>
<%
function todays()
dim tmprs
tmprs=conn.execute("Select count(NewsID) from News Where year(date)=year(date()) and month(date)=month(date()) and day(date)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
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
function BTitle(content)
if content<>"" then
BTitle=content
BTitle=replace(BTitle,"[粗]","")
BTitle=replace(BTitle,"[红]","")
BTitle=replace(BTitle,"[蓝]","")
BTitle=replace(BTitle,"[绿]","")
BTitle=replace(BTitle,"[紫]","")
BTitle=replace(BTitle,"[酱]","")
BTitle=replace(BTitle,"[橙]","")
end if
End function
%>
