<%
'*******************************************************
'易达CMS中小企业快速建站系统
'软件开发 黑龙江省世纪伟成网络科技有限公司
'网址：http://yidacms.com
'软件享有著作权，未经公司或开发者同意禁止更改以下代码。
'*******************************************************
Function opentxt(filePath) 
set stm=Server.CreateObject("adodb.stream") 
stm.Type=1 
stm.Mode=3
stm.Open 
stm.LoadFromFile filePath
stm.Position=0 
stm.Type=2
stm.Charset="utf-8"
opentxt = tempclass(stm.ReadText) 
stm.Close 
set stm=nothing 
End Function
'================================================
'作　用：网页中出现的文字！（可修改""符号内的文字）
'================================================
zanwuchanpin = "暂无产品!"
zanwuxinwen = "暂无新闻!"
zanwuflash = "暂无FLASH图片展示"
zanwugeichanpinfenlei = "暂无该类产品!"
zanwufenlei = "暂无分类!"
fanhuishangyiye = "返回上一页!"
sheweishouye = "设为首页"
shoucangbenzhan = "收藏本站"
zanwuneirong = "暂无内容!"
'================================================
'作　用：过滤留言不想出现的文字！
'================================================
function guolv(a)
a=replace(a,"李洪志","文明用语")
a=replace(a,"垃圾","文明用语")
a=replace(a,"法轮功","文明用语")
a=replace(a,"admin","文明用语")
a=replace(a,"管理员","文明用语")
a=replace(a,"SB","文明用语")
a=replace(a,"sb","文明用语")
a=replace(a,"傻逼","文明用语")
a=replace(a,"中国共产党","文明用语")
guolv=a
end function
'================================================
'当前版本号，请不要删除！
'================================================
Version = Chr("69")&Chr("52")&"免费版(UTF-8)"
%>