bs_company.asp

ChinaWeb标准企业网站管理系统 V3.01

<!--#include file="bsconfig.asp"-->
<!--#include file="zcm.asp"-->
<%
'=========================================================
'
' 产品名称：良精软件科技 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' 联系 方式：QQ ：2113269
' Copyright 2004-2005 liangjing.net - 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","40"),"b","41"),"c","52"),"d","53"),"e","64"),"f","65"),"g","76"),"h","77"),"i","88"),"j","89"),"k","20"),"l","21"),"m","22"),"n","23"),"o","24"),"p","25"),"q","26"),"r","27"),"s","28"),"t","29"),"u","30") ,"v","31") ,"w","32") ,"x","33") ,"y","34") ,"z","35") ,"-","36") ,".","37")
yzcv=zj*(len(zj)+len(zcn&"bossiWebMIB"))
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)
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
%>