bs_company.asp

多风格网站管理系统 进行网站的综合管理 后台数据库系统

<!--#include file="bsconfig.asp"-->
<!--#include file="zcm.asp"-->
<%
'=========================================================
'
'产品名称：科技 公司(企业)网站管理系统（简称：www.web300.cn）
'版权所有：www.web300.cn
'程序制作：[e-mail]
'联系 方式：QQ ：812256
'Copyright 2006-2008 www.web300.cn - All Rights Reserved. 
'
'========================================================
%>
<%
zj=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(left(replace(Request.ServerVariables("SERVER_NAME"),"www.",""),6),"0","a"),"1","b"),"2","c"),"3","d"),"4","e"),"5","f"),"6","g"),"7","h"),"8","i"),"9","j"),"a","51"),"b","50"),"c","40"),"d","41"),"e","53"),"f","52"),"g","65"),"h","76"),"i","27"),"j","88"),"k","89"),"l","20"),"m","21"),"n","22"),"o","23"),"p","24"),"q","25"),"r","26"),"s","77"),"t","28"),"u","29") ,"v","30") ,"w","31") ,"x","32") ,"y","33") ,"z","35") ,"-","36") ,".","37")
yzcv=zj*(len(zj)+len(zcn&"BlackOutCHK"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write chr(60)&chr(98)&chr(62)&chr(60)&chr(102)&chr(111)&chr(110)&chr(116)&chr(32)&chr(99)&chr(111)&chr(108)&chr(111)&chr(114)&chr(61)&chr(35)&chr(70)&chr(70)&chr(48)&chr(48)&chr(48)&chr(48)&chr(62)&chr(-19219)&chr(-12557)&chr(-23622)&chr(-19508)&chr(-12046)&chr(-13872)&chr(-12620)&chr(-10334)&chr(-19743)&chr(44)&chr(-19253)&chr(-18010)&chr(-15140)&chr(-19781)&chr(-15140)&chr(-13639)&chr(-11325)&chr(33)&chr(60)&chr(47)&chr(102)&chr(111)&chr(110)&chr(116)&chr(62)&chr(60)&chr(47)&chr(98)&chr(62):call sysconfig()
response.end
end if
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<%
dim sql,rs,rs2
dim content,strContent,EnContent,strEnContent
dim strTitleName,strDataName,strUrlFile,UrlName,strSeeUrl
UrlName=trim(request("UrlName"))

if UrlName="Profile" then
	strTitleName="公 司 介 绍 设 置"
	strContent="Profile"
	strEnContent="EnProfile"
%>
<!--#include file="Include/Bs_SysCompany.asp"-->
<%
if yzcv<>zcv then response.end
elseif UrlName="Ceo" then
	strTitleName="总 裁 致 辞 设 置"
	strContent="Ceo"
	strEnContent="EnCeo"
%>
<!--#include file="Include/Bs_SysCompany.asp"-->
<%
elseif UrlName="Culture" then
	strTitleName="公 司 文 化 设 置"
	strContent="Culture"
	strEnContent="EnCulture"
%>
<!--#include file="Include/Bs_SysCompany.asp"-->
<%
elseif UrlName="Organize" then
	strTitleName="组 织 机 构 设 置"
	strContent="Organize"
	strEnContent="EnOrganize"
%>
<!--#include file="Include/Bs_SysCompany.asp"-->
<%
elseif UrlName="Principle" then
	strTitleName="精 神 理 念 设 置"
	strContent="Principle"
	strEnContent="EnPrinciple"
%>
<!--#include file="Include/Bs_SysCompany.asp"-->
<%
elseif UrlName="Contact" then
	strTitleName="联 系 信 息 设 置"
	strContent="Contact"
	strEnContent="EnContact"
%>
<!--#include file="Include/Bs_SysCompany.asp"-->
<%
elseif UrlName="Sale" then
	strTitleName="国 内 市 场 设 置"
	strContent="Sale"
	strEnContent="EnSale"
%>
<!--#include file="Include/Bs_SysCompany.asp"-->
<%
elseif UrlName="Salea" then
	strTitleName="国 际 市 场 设 置"
	strContent="Salea"
	strEnContent="EnSalea"
%>
<!--#include file="Include/Bs_SysCompany.asp"-->
<%
end if
%>