<!--#include file="function.asp" -->
<%
Public Const table_width="1002"
'--------------底部页面
Public Const l_bottom_dis=" 技术支持：SuiYue<a href=""http://www.SEOSuiYue.com"" target=""_blank "">网站建设</a>"
Public Const l_bottom_admin="&nbsp;&nbsp;<a href=../sy/login.asp target=_blank >后台管理</a>"

'--------------所在位置
Public Const l_your_now="您现在的位置："
Public Const l_your_about="企业介绍"
Public Const l_your_product="产品展示"
Public Const l_your_news="新闻动态"
Public Const l_your_contact="联系方式"
Public Const l_your_feedback="客户反馈"

'--------------产品展示
Public Const l_product_type="产品分类："
Public Const l_product_title="产品名称："
Public Const l_product_text="产品说明："

'--------------客户反馈
Public Const l_feed_title="尊敬的客户：<br>　　您好！非常感谢您登录我公司的网站。为提高我公司服务质量，请将您的需求、想法或建议填入下列表格，以便我们能够及时的为您提供周到的服务。</br></br>"
Public Const l_feed_0="主　　题："
Public Const l_feed_1="联 系 人："
Public Const l_feed_2="联系电话："
Public Const l_feed_3="手　　机："
Public Const l_feed_4="联系传真："
Public Const l_feed_5="电子邮件："
Public Const l_feed_6="公司名称："
Public Const l_feed_7="地　　址："
Public Const l_feed_8="邮政编码："
Public Const l_feed_9="详细内容："
Public Const l_feed_10="验 证 码："
Public Const l_feed_submit="提 交"
Public Const l_feed_reset="重 填"
Public Const l_fok="提交成功,感谢您的支持!"

'page.asp
Public Const p_all="共有"
Public Const p_dw="条"
Public Const p_Previous="上一页"
Public Const p_next="下一页"

Function RemoveHTML(strHTML) 
Dim objRegExp, Match, Matches 
Set objRegExp = New Regexp 
objRegExp.IgnoreCase = True 
objRegExp.Global = True 
'取闭合的<> 
objRegExp.Pattern = "<.+?>" 
'进行匹配 
Set Matches = objRegExp.Execute(strHTML) 
' 遍历匹配集合，并替换掉匹配的项目 
For Each Match in Matches 
strHtml=Replace(strHTML,Match.Value,"") 
Next 
RemoveHTML=strHTML 
Set objRegExp = Nothing 
End Function
'调用 str=RemoveHTML(str)


'调用栏目位置
Function pagelocal(pgid) 
set rsloc=server.CreateObject("adodb.recordset")
rsloc.open "select * from com_nav where id="&pgid&"",conn,1,1
news_title=rsloc("title"&Language)
news_link=rsloc("link"&Language)
response.Write("<A  href="&news_link&" target=_self>"&news_title&"</A>")
rsloc.close
set rsloc=nothing
End Function

sub about_title()
typeid=request("typeid")
if typeid="" then
response.write ""
elseif typeid=0 then
response.write ""
end if
if typeid<>"" and typeid<>0 then
set rstype=server.CreateObject("adodb.recordset")	
rstype.open "select * from com_news where id="&typeid&" order by pid asc,id desc",conn,1,1
response.write ""&rstype("title"&language)&""
rstype.close
set rstype=nothing
end if
end sub

sub news_title()
typeid=request("typeid")
if typeid="" then
response.write "信息列表"
elseif typeid=0 then
response.write "信息列表"
end if
if typeid<>"" and typeid<>0 then
set rstype=server.CreateObject("adodb.recordset")	
rstype.open "select * from com_class where id="&typeid&" order by pid asc,id desc",conn,1,1
response.write ""&rstype("classname"&language)&""
rstype.close
set rstype=nothing
end if
end sub
%>